When are you doing the "PUT"? In that routine after the "CWD" or are you waiting for the RequestDone from the "CWD"?
Graham -----Original Message----- From: twsocket-boun...@elists.org [mailto:twsocket-boun...@elists.org] On Behalf Of Fabrice Vendé Sent: 12 May 2011 15:40 To: ICS support mailing Subject: Re: [twsocket] TFtpCli and FTP server in passive mode Le 12/05/2011 14:20, Francois PIETTE a écrit : > I have tested your code and it works perfectly from here. > Here is the log using YOUR code and ICS-V7 updated form SVN repository > right now: Hello Francois, I have downloaded and installed the last update (http://wiki.overbyte.be/arch/icsv7w.zip) on my Delphi 2010. And I have exactly the same problem. TftpClient.put seems to be ignored. With this code : procedure TForm8.icsClick(Sender: TObject); begin FtpClient1.HostName:=site.text; FtpClient1.username:=login.text; FtpClient1.password:=password.text; FtpClient1.Passive:=true; FtpClient1.connect; FtpClient1.HostDirName :='.'; FtpClient1.cwd; FtpClient1.LocalFileName :='h:\test.txt'; FtpClient1.HostFileName :='test.txt'; // FtpClient1.Passive:=true; <- with this no change FtpClient1.put; FtpClient1.Quit; end; I have this result : < 220-FileZilla Server version 0.9.37 beta < 220-written by Tim Kosse (tim.ko...@gmx.de) < 220 Please visit http://sourceforge.net/projects/filezilla/ USER username > USER username < 331 Password required for cob PASS ***** > PASS **** < 230 Logged on CWD . > CWD . < 250 CWD successful. "/" is current directory. PASV > PASV < 27 Entering Passive Mode (213,56,128,2,5,73) QUIT > QUIT < < 221 Goodbye My components properties : object FtpClient1: TFtpClient Timeout = 15 MultiThreaded = False Port = 'ftp' CodePage = 0 DataPortRangeStart = 0 DataPortRangeEnd = 0 LocalAddr = '0.0.0.0' DisplayFileFlag = False Binary = True ShareMode = ftpShareExclusive Options = [ftpAcceptLF] ConnectionType = ftpDirect ProxyPort = 'ftp' Language = 'EN' OnDisplay = FtpClient1Display OnDisplayFile = FtpClient1DisplayFile OnCommand = FtpClient1Command OnError = FtpClient1Error OnRequestDone = FtpClient1RequestDone OnStateChange = FtpClient1StateChange BandwidthLimit = 10000 BandwidthSampling = 1000 Left = 192 Top = 152 end Put work in active mode but FTP server give me an error "425"... > > < 220-FileZilla Server version 0.9.24 beta < 220 Micro$oft free >> USER fpiette > < 331 Password required for fpiette >> PASS *********** > < 230 Logged on >> CWD . > < 250 CWD successful. "/" is current directory. >> TYPE I > < 200 Type set to I >> PASV > < 227 Entering Passive Mode (193,200,60,61,8,1) ! Upload Size 45 >> STOR DeleteMe.txt > < 150 Connection accepted > < 226 Transfer OK > ! 45bytes received/sent in 62 milliseconds >> QUIT > < 221 Goodbye > > Regards, -- Fabrice Vendé techni...@infocob.com <mailto:techni...@infocob.com> <http://www.infocob.com/> SARL Infocob <http://www.infocob.com/> 154 avenue de Talmont BP20076 85102 Les Sables d'Olonne Cedex -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
