I am trying to implement the FTP Service Class written by Robert Abram but have run into some difficulties. I seem to be connecting okay but I receive the following error when trying to retrieve a file from the FTP server:
Error(300000) - Unknown Error Message
Extended Error Info - (0) - 200 Type Set to I
200 PORT Command Successful
213 156693
150 Opening BINARY mode data connection for /webslides/Airports/LoganAir.pdf(156693 bytes)
Below is the code I am using:
SET PROCEDURE TO ftp.prg ADDITIVE
sz_ftp = CREATEOBJECT('ftp_service')
IF sz_ftp.openinternet("XXXX","XXXX","130.205.XXX.XXX","21")
MESSAGEBOX("Successful Connection",64)
ENDIF
IF !sz_ftp.Getftpfile("\WebSlides\Airports\LoganAir.pdf","c:\LoganAirt.pdf",.t.)
?sz_ftp.Geterrorcode(.t.)
ENDIF
I am using VFP 7.0 SP1. Any help would be greatly appreaciated.
Thanks in advance,
Russell
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only