[Помогите!] Скачать файл с файлообменика

[megbum]

Как реализовать на Indy скачать файл с файлообменика?
зайти на сайт и нажать кнопку скачать я могу а как сохранить файл на комп после того как вылезет окошко для сохранения

[Роспотребнадзор]

Цитата: Сообщение от megbum Как реализовать на Indy скачать файл с файлообменика? зайти на сайт и нажать кнопку скачать я могу а как сохранить файл на комп после того как вылезет окошко для сохранения

procedure TForm1.Button1Click(Sender: TObject); 
var LoadStream: TMemoryStream; 
begin 
 LoadStream := TMemoryStream.Create; // выделение памяти под переменную 
 idHTTP1.Get(Ссылка на файл, LoadStream); // загрузка в поток данных из сети 
 LoadStream.SaveToFile(Имя, под которым сохраняем файл); // сохраняем данные из потока на жестком диске 
 LoadStream.Free; // освобождаем память 
end;

Во время заргрузки файла, форма будет наглухо зависать, что бы уменьшить зависания, добавь компонет TIdAntiFreeze. Этот компонент располагается на вкладке Indy Misc

[megbum]

РОСПОТРЕБНАДЗОР, Спасибо чувак=)
А куда файл на жестком диске сохраняется?

[metraz]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР procedure TForm1.Button1Click(Sender: TObject); var LoadStream: TMemoryStream; begin LoadStream := TMemoryStream.Create; // выделение памяти под переменную idHTTP1.Get(Ссылка на файл, LoadStream); // загрузка в поток данных из сети LoadStream.SaveToFile(Имя, под которым сохраняем файл); // сохраняем данные из потока на жестком диске LoadStream.Free; // освобождаем память end; Во время заргрузки файла, форма будет наглухо зависать, что бы уменьшить зависания, добавь компонет TIdAntiFreeze. Этот компонент располагается на вкладке Indy Misc

Не стоит. Лучше вынести загрузку вообще в отдельный поток.

[VeTaL_UA]

Напишите процедурку на винсоках и вынесите её в поток, вот вам и правильное решение.

[Роспотребнадзор]

Цитата: Сообщение от megbum А куда файл на жестком диске сохраняется?

Туда же, где и лежит эксешник программы