Have you tried with the FtpTst sample program delivered with ICS ? > FTPClient seems to be Version: 2.86
Quite old. Please try with latest ICS version downloaded from _my_ website. It works with D5. -- [EMAIL PROTECTED] http://www.overbyte.be ----- Original Message ----- From: "David Rose" <[EMAIL PROTECTED]> To: <twsocket@elists.org> Sent: Friday, May 13, 2005 6:02 PM Subject: [twsocket] FTP client stalling > 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 > -- 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
