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

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

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;

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

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 не будет опубликован. Обязательные поля помечены *