Send file via FTP - SOLVED

[Jeff Barnes]

I have an issue sending a file via FTP.
I have copied the code directly from another app of mine where the code works perfectly (it was compiled with an older version of FWH / xHarbour)

When I try with my current FWH / xHarbour it never connects.
I have verified the user/pass. If I copy the string (cUrl) into my browser it will connect.

Any idea of what I have missed or has something changed in FWH/xHarbour?

Code: Select all  Expand view

cUrl := "ftp://myUser:myPass@mySite.net"
oUrl := tUrl():New(cUrl)
           
oFtp := tIPClientftp():New(oUrl,,.t.)
oFtp:nConnTimeout := 60000
oFtp:bUsePasv     := .t.
                   
IF oFtp:open(cUrl)
   IF oFtp:UpLoadFile(cZipFile)  
       MsgInfo("Sent")
   ELSE
       MsgInfo("Not Sent")
   ENDIF
   oFtp:Close()
ELSE
   MsgInfo("Not Connected")   //  <-- This is always the responce
ENDIF
 

[StefanHaupt]

Jeff,

tIpClientFtp is a class of xHarbour, maybe something was changed in the last releases.

What version of xHarbour are you using ?

[Colin Haig]

Hi Jeff

I have similar code except for

cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer

Cheers

Colin

[Jeff Barnes]

Hi Stefan,

I am currently using: FWH 12.01, xHarbour 1.2.1, Bcc582


Hi Colin

Your cUrl is the same as mine ... I am not using variables is the only difference

[StefanHaupt]

Jeff,

which release of xHarbour ?

I´m using release 9411 and your sample is working here

BTW, in your line oFtp := tIPClientftp():New(oUrl,,.t.) you should delete on comma
from TClientFtp.prg

Code: Select all  Expand view

METHOD New( oUrl,lTrace, oCredentials) CLASS tIPClientFTP )
 

Code: Select all  Expand view

oFtp := tIPClientftp():New(oUrl,.t.)

[Jeff Barnes]

xHarbour release 9421

[StefanHaupt]

I checked with release 9804, it´s connecting but the file is not sent.

It´s a xharbour problem

[Jeff Barnes]

Got it working.

Here is the code that finally worked....

Code: Select all  Expand view

cUrl := "ftp://MyUser:MyPassword@MyServer.com"
oUrl:=TUrl():NEW( cUrl )
oUrl:cUserID:="MyUser"
oUrl:cPassword:="MyPassword"
oUrl:cServer:="MyServer.com"
oUrl:cAddress:="ftp://MyUser:MyPassword@MyServer.com"
       
oFtp:=TIPClientFTP():New( oUrl )    
IF .NOT. oFtp:open()
   MsgInfo("Error: Could not connect."+CRLF+ oFtp:lastErrorMessage(),"ERROR" )
ELSE
   IF oFtp:UpLoadFile(cFile)  
      MsgInfo("sent")
   ELSE
      MsgInfo("not sent")
   ENDIF
   oFtp:Close()
ENDIF