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
