Estah batido mas problemas com FTP x xharbour...

[marcos.gurupi]

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.

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.

[marcos.gurupi]

Quase que por acidente eu solucionei o caso, adiconei um inkey(2) antes do comando e deu certo.

[sygecom]

O importante é resolver....bola pra frente.