Очень очень срочно!

[DelphiMan]

Помогите написать программу для скачивания файлов с интернета. Я даже не придстовляю как это написать.

[KORN]

юзай Idhttp, и вообще ищи на форуме перед тем как спросить.. это уже было сотни раз.. разве так сложно немного поискать7

var
  stream: tmemorystream;
begin
  stream:=tmemorystream.create;
  idhttp.get('Url', stream);
  stream.savetofile('filename');
  stream.free;
end;

[DelphiMan]

У меня ошибка при компиляцыи Undeclared identifier 'idHTTP'.

[KORN]

а ты хоть этот компонент на форму положил7 и хоть код то под себя подправил7

[DelphiMan]

Я ненайду этот компонент где он находится в Internet или InterBase.У меня Делфи 5 может там его нету.

[KORN]

не знаю как в delphi 5, но он находится на вкладке indy clients

в общем на пользуйся
http://www.google.ru/search?hl=ru&q=...%B2+Google&lr=

[DelphiMan]

у меня нет вкладки indy clients.Сайт что ты мне дал то что?

[KORN]

это называется поиск... в нем ищут.. там можно найти еще способы как скачать файл из нета... возмем к примеру первую ссылку: и оп ля

uses Wininet; 

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end; 

Использовать функцию GetInetFile очень просто:

var FileOnNet, LocalFileName: string
begin
   FileOnNet:='http://www.codenet.ru/export/forum.xml';
   LocalFileName:='codenet.xml'; 

   if GetInetFile(FileOnNet,LocalFileName) then
      ShowMessage('Download successful')
   else
      ShowMessage('Error in file download'); 

end;

[Квэнди]

закрыто.
причины: название темы, содержание вопроса.