19 мая 2011
Скачиваем файл по ссылке
Банальная, казалось бы, задача — скачать файл из интернета по ссылке — часто вызывает у новичков много проблем. На самом деле решить эту задачу довольно просто. Для этого нам понадобятся компоненты 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 комментариев
Спасибо за пример
а как вернуть дату закачиваемого файла?
с помощью synapse это возможно?