Показать сообщение отдельно
  #5  
Старый 14.11.2008, 10:46
Аватар для mak-karpov
mak-karpov mak-karpov вне форума
Активный
 
Регистрация: 18.09.2008
Сообщения: 235
Версия Delphi: 2010 и 7
Репутация: 1242
По умолчанию

Спасибо всем!
В принципе сам разобрался.
Код:
var str : TMemoryStream;
begin
  str := TMemoryStream.Create;
  IdHTTP1.Get(Edit1.Text, str);
  str.SaveToFile(GetCurrentDir+'\files\'+Edit2.Text);
  Application.MessageBox('Закачка завершена!', 'ОК', MB_ICONINFORMATION + MB_OK);
__________________
Кнопка "+" - весы в правом верхнем углу сообщения...
Ответить с цитированием