Скачивание-закачивание файлов с сервера и на сервер

[ЖенёкСупер]

Здравствуйте!
Я недавно нашёл Вот такой код для скачивания файлов из интернета (используя 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;

Теперь хочу спросить Вас о противоположном: как загрузить файл на сервер?
С уважением, ЖенёкСупер!

[Pasha_Sh]

http://programmersforum.ru/showthread.php?t=79416

[ЖенёкСупер]

Я это давно заметил и не зацикливался на этом, но:
Undeclared: 'TIdHTTP';
Undeclared: 'TIdMultiPartFortDateStream'
Помогите найти эти объекты!

[Pasha_Sh]

Мдаа...
ид шттп лежит вроде в вкладке Indy Misc точно не помню(
но можно сделать так

var
idHttp: TIdHTTP;

[ЖенёкСупер]

Не, всё равно пишет ошибку... Наверно какого нибудь ддл в винде нету. Вы не знаете какого?

[Pasha_Sh]

Может ты случайно стёр некоторые компоненты инди(как однажды было у меня)

[Пепел Феникса]

установите InDY
в блоге есть статья об установке(ссылка на блог есть вверху)

[ЖенёкСупер]

Знаете, я в программировании не очень... не могли бы Вы дать готовый код!?

[Пепел Феникса]

1)установка компонентов это отдельная тема, при чем здесь код?
2)учится надо, а не готовое просить.
3)есть поиск по форуму, все это было расписано по триста раз.

[ЖенёкСупер]

Не, компоненты я установил!