Скачиваем файл по ссылке

Банальная, казалось бы, задача — скачать файл из интернета по ссылке — часто вызывает у новичков много проблем. На самом деле решить эту задачу довольно просто. Для этого нам понадобятся компоненты Synapse и всего несколько строчек кода.

[code lang=»delphi»]
var
fs: TFileStream;
link: string;
myfile: string;
begin
// Ссылка для закачки
link:=Edit1.Text;
// Путь к файлу на диске
myfile:=PatchEdit.Text+ExtractFileName(Edit1.Text);

// Создаём файловый поток
fs:=TFileStream.Create(myfile, fmCreate);

with THTTPSend.Create do
begin
if HTTPMethod(‘GET’, link) then
try
Document.SaveToStream(fs);
except
// не смогли сохранить поток
end
else // не смогли получить файл по ссылке;
Free;
end;
[/code]

Скачать готовый пример как обычно можно из нашего файлового архива.

11 комментариев

  1. От koanni

    Ответить

    • От Lazarus.Su

      Ответить

  2. От MeG@ByTe

    Ответить

    • От Lazarus.Su

      Ответить

  3. От LuxCore

    Ответить

    • От Lazarus.Su

      Ответить

  4. От metal-arts

    Ответить

  5. От GIvan

    Ответить

  6. От Marker

    Ответить

  7. От Va-Bank

    Ответить

    • От ya.grisho

      Ответить

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *