Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c