Ftp
Marcelo Antonio Lázzaro Carli
Bom dia, na rotina abaixo de ftp, mostra o nome do arquivo no msginfo, mas não grava na pasta local. Onde estou errando?
If ISOBJECT(oClient)
oClient:bUsePasv := .T.
lResp:= oClient:CWD([\])
lResp:= oClient:CWD(Alltrim(f_AcessaIni(GetCurrentFolder() + [\ENZZA.INI], [Ftp Imagem], [Pasta Ftp], .F.)))
aListFiles:= oClient:listFiles(cFileImg)
If Len(aListFiles) > 0
msginfo(alistfiles[1][1]) // mostra o nome do arquivo, que no caso é demoimg.jpg
oClient:MGET(cFileImg, cDirCopy_) // mas aqui não salva na pasta local
Else
MsgInfo([Imagem não foi Encontrada!!!], [Erro])
Endif
Endif
oClient:Close()
Att.
Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
https://malc-informatica.ueniweb.com
http://marcelo.lx.com.br
Email / Skype: malc...@life.com.br
******************************************************************************
Se for repassar, apague o meu nome e endereço.
Ajude a combater a propagação de vírus e spams
coloque TODOS os destinatários em CÓPIA OCULTA (Cco / Bcc)
******************************************************************************
De: minigu...@googlegroups.com [mailto:minigu...@googlegroups.com] Em nome de Pete
Enviada em: quinta-feira, 1 de julho de 2021 16:18
Para: Harbour Minigui
Assunto: [harbourminigui] DO REPORT
Hello team (and all)
I was recently preparing some reports and found the `DO REPORT` command quite handy for the
occasion. Then I realized that the module (h_report.prg and i_report.ch) needed some refinements.
So I added the ability to define the fontname used to print the report (other than the hard-coded "courier new")
and I did implement some internationalization of the few messages that are displayed during the
report creation. I guess it might be useful for update MiniGUI.
Below is the modified code, feel free to review and use it as you wish, as well as,
add translation in your language.
regards,
Pete
--
Visit our website on http://www.hmgextended.com/ or https://www.hmgextended.org/
---
You received this message because you are subscribed to the Google Groups "Harbour Minigui" group.
To unsubscribe from this group and stop receiving emails from it, send an email to minigui-foru...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/minigui-forum/f676009f-e851-413a-98a7-e1113f667d03n%40googlegroups.com.
