Estah batido mas problemas com FTP x xharbour...
Enviado: 22 Abr 2013 15:45
Caros, finalmente estou com tempo para implementar atualizacao via ftp no meu sistema, quando comecei os testes o comando DownloadFile(ftpfile) estah puxando o arquivo tranquilamente, acontece que agora o danado diz que fez o download soh q o arquivo estah com 0 bytes, pode funcionar e em minutos deixar de funcionar assim... alguem saberia me dizer o q ocorre ?
Estou usando o xhb + hwgui. Segue abaixo o codigo q estah ocorrendo o problema.
Estou usando o xhb + hwgui. Segue abaixo o codigo q estah ocorrendo o problema.
Código: Selecionar todos
*************************************************
Function Inicia_Progress(fdestino,wTotal,ftpfile)
*************************************************
Private oDlg:=nil
Private fFtpFile:=FtpFile
oFTP:exGauge := { | done, size| ShowGauge(done, size,fDestino)}
if Os_IsWinNT()
ShowNotifyInfo(oMainWindow:handle ,.F.,NIL, NIL,"","")
ShowNotifyInfo(oMainWindow:handle ,.T.,NIL, NIL,"Fazendo o download do seguinte arquivo: "+FtpFile,"Servidor: "+FTPSERVER)
Else
Hw_Atualiza_Dialogo("Fazendo o download do seguinte arquivo: "+FtpFile,"Servidor: "+FTPSERVER)
endif
IF !oFtp:DownloadFile(ftpfile) //Aqui o arquivo estah sendo puxado mas vem com 0 (ZERO) Bytes
if Os_IsWinNT()
ShowNotifyInfo(oMainWindow:handle ,.F.,NIL, NIL,"","")
ShowNotifyInfo(oMainWindow:handle ,.T.,NIL, NIL,"Nao foi possivel fazer o download do arquivo.","Tente mais tarde")
Else
Hw_Atualiza_Dialogo("Nao foi possivel fazer o download do arquivo. Tente mais tarde")
endif
inkey(5)
Return .f.
Endif
Return .t.
