Try to use passive mode FTP
Re: FTP Classes & Passive Mode Message #
386142.
>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
--sb--