Текущий архив: 2009.01.25;
Скачать: CL | DM;
Вниз
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;
← →
antonn © (2008-12-15 13:04) [4]докачка реализовывается командой REST посылаемой серверу, в ответ сервер должен послать "350" в случае поддержки команды. В параметре команды посылается сдвиг в файле в байтах.
это так, на будущее, вдгур руками захочется сделать :)
Страницы: 1 вся ветка
Текущий архив: 2009.01.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
