[mak-karpov]

Хелп!

Мне программно нужно скачать файл с сервера.
Мож кто знает?

[Alexo]

WinInet на данном сайте есть статьи по нему.

[:S.p.a.m.]

http://codelab.3dn.ru/publ/13-1-0-128
Пойдет?

[M.A.D.M.A.N.]

http://www.delphisources.ru/forum/showthread.php?t=5121

[mak-karpov]

Спасибо всем!
В принципе сам разобрался.

Код:

var str : TMemoryStream;
begin
  str := TMemoryStream.Create;
  IdHTTP1.Get(Edit1.Text, str);
  str.SaveToFile(GetCurrentDir+'\files\'+Edit2.Text);
  Application.MessageBox('Закачка завершена!', 'ОК', MB_ICONINFORMATION + MB_OK);

[Alexo]

В таком виде как ты организуешь прогресс бар?

Application.MessageBox('Закачка завершена!', 'ОК', MB_ICONINFORMATION + MB_OK);

А чем тебе тут обычный ShowMessage ненравиться?

[mak-karpov]

в винде много видишь сообщений без иконки?

[Alexo]

Во многих местах она нужна?)

[mak-karpov]

да, не во многих, но с ней красивее