I have written a simple program to upload some files from my PC to our FTP
site. Basically once a new build of our software is complete, the program
kicks in to upload the files.
However about 75% of the time, the upload stalls after 8760 bytes.
As far as I can see (from Google) this is a magic number with TCP/IP under
windows.
If I try and upload the same files to the same location using a commercial
FTP program, then it never seems to have a problem, so I'm assuming that
it either doesn't stall or internally copes with the stall without
reporting it to me.
Any suggestions ?
These are the properties of the component and below is the simple code I'm
using to operate it. Delphi 5, FTPClient seems to be Version: 2.86
object FtpClient1: TFtpClient
Timeout = 60
MultiThreaded = False
HostName = 'ftp.navigator.co.uk'
Port = 'ftp'
LocalAddr = '0.0.0.0'
UserName = XXXX <-removed from posting
PassWord = XXXX <-removed from posting
HostDirName = '/'
DisplayFileFlag = True
Binary = False
ShareMode = ftpShareCompat
Options = [ftpAcceptLF]
ConnectionType = ftpDirect
OnCommand = FtpClient1Command
OnProgress = FtpClient1Progress
OnSessionConnected = FtpClient1SessionConnected
OnSessionClosed = FtpClient1SessionClosed
OnRequestDone = FtpClient1RequestDone
OnBgException = FtpClient1BgException
Left = 288
Top = 77
end
FTPClient1.connect;
FTPClient1.HostDirName := paramstr(1);
FTPClient1.HostFileName := paramstr(3);
FTPClient1.localfilename := paramstr(2);
if FTPClient1.Cwd() then
begin
if not (FTPClient1.Binary) then
begin
FTPClient1.Binary := true;
FTPClient1.TypeSet();
end;
FTPClient1.dele;
FTPClient1.put;
All the FTPClient1 events write to a Tmemo to report the progress/status.
regards
David
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
