Le 12/05/2011 17:09, Graham Powell a écrit :
When are you doing the "PUT"? In that routine after the "CWD"
Yes in the routine after the "CWD" like I do on FTP server which allows
active mode.
I don't use Event "TftpClient.OnRequestDone".
Must I wait for something ?
I have tried to add :
while FtpClient1.State<>ftpReady do
begin
application.ProcessMessages;
end;
After each command without better result.
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
--
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
