| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

FTP Client

neveGreen ©   (2008-12-14 15:58:00) 

Вот написал типа фтп клиент:

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
и что можно сделать лучше

---

antonn   (2008-12-15 13:04:00) [1]

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

---

clickmaker   (2008-12-15 12:49:00) [2]

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

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

---

neveGreen   (2008-12-14 16:33:00) [3]

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

---

@!!ex   (2008-12-14 16:28:00) [4]

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

---

Наверх