The same laptop connected at work, but a other network and the filename is uploaded but the size stay at 0 and afther 20-30 secs a No Send message ?
At work I have a rooter, a gateway
At home a rooter no gateway
Where in the firewall ?? do I have to change a parameter to let the FTP work ?
- Code: Select all Expand view
- function Upload( cDatei )
local oInternet := TInternet():New()
local oFTP := TFTP():New( cFtpHost, oInternet, cUser, cLogin )
local aInfo := {}
local I := 0
local cDir := "c:\marc32" //Setup():Daten() + "\xReport"
local cFile:="c:\marc32\test.jpg"
*----------------------------------------------------------
xbrowser(oFtp)
if Empty( oFTP:hFTP )
MsgStop( "Cannot connect to the specified FTP site!" )
return nil
endif
if ! Empty( oFTP:hFTP )
if FTPPUTFILE( oFTP:hFTP, cFile,"\fivewin\test2.jpg" , 0, 0 ) = .t.
msginfo("Send")
else
msginfo("No Send")
endif
else
MsgAlert( "oFTP:hFTP is null" )
endif
oInternet:End()
return nil