Как скачать файл в папку с программой

[hiddenf]

не подскажите как можно сделать скачку обновки в папку с программой?

[RenatPro]

Скачивание файла с интернета!

Создаем новый проект - кидаем на форму: idHTTP, Button

В обработчике Button.OnClick добавим код:

Цитата: procedure TForm1.Button1Click(Sender: TObject); var kach:tmemorystream; begin kach:=TMemoryStream.Create; idHTTP1.Get('ubdate.ru/ubdate.exe',kach); //Адрес к файлу который хотим скачать kach.SaveToFile('ubdate.exe'); //Куда сохранять end

[NebesaBag]

А если

kach.SaveToFile('ubdate.exe');

не поможет, то попробуйте

kach.SaveToFile(GetCurrentDir+'update.exe');

[Flayer-Soft]

Кидаешь кнопку на форму, кидаешь OpenDialog, IdHTTP

PHP код:

    procedure TForm1.Button1Click(Sender: TObject);
var
kach:tmemorystream;
begin
kach:=TMemoryStream.Create;

idHTTP1.Get('zhyk.ru/program.exe',kach); 

if OpenDialog1.Execute then
kach.SaveToFile(OpenDialog1.FileName); 

end;