FTP Client

← →
neveGreen (2008-12-14 15:58) [0]

Вот написал типа фтп клиент:
procedure FTPDownloadFile(FTPHost: String; FTPPort: Integer; FTPUserName, FTPPassword, FTPFilename, NewFilename: String); var FTPClient: TIdFTP; DounloadedFile: TFileStream; begin try FTPClient := TIdFTP.Create(Form1); FTPClient.Host := FTPHost; FTPClient.Port := FTPPort; FTPClient.Passive := False; FTPClient.Username := FTPUserName; FTPClient.Password := FTPPassword; DounloadedFile := TFileStream.Create(ExtractFilePath(Application.ExeName) + NewFilename, fmCreate); try FTPClient.Connect(); ShowMessage("Connect Ok!"); FTPClient.Get(FTPFilename, DounloadedFile); ShowMessage("Get file Ok!"); FTPClient.Disconnect; ShowMessage("Diconnected Ok!"); except on E:Exception do ShowMessage("Error:" + E.Message); end; finally FTPClient.Free; DounloadedFile.Free; end; end;
Скажите чем он хуже обсуждаемого сдесь http://programmersforum.ru/archive/index.php/t-6016.html
и что можно сделать лучше

← →
@!!ex © (2008-12-14 16:28) [1]

Не написал, я взял компонент и сделал обработчик.
По сабжу: где докачка?

← →
neveGreen (2008-12-14 16:33) [2]

я не знаю как сделать докачку

← →
clickmaker © (2008-12-15 12:49) [3]

> как сделать докачку

procedure Get(const ASourceFile: string; ADest: TIdStream; AResume: Boolean = false; AStartBytes: integer = 0); overload;

докачка реализовывается командой REST посылаемой серверу, в ответ сервер должен послать "350" в случае поддержки команды. В параметре команды посылается сдвиг в файле в байтах.
это так, на будущее, вдгур руками захочется сделать :)

FTP Client Найти похожие ветки