
29.11.2009, 13:32
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме: 5749763
Репутация:
1680
|
|
Вот тебе правильный и рабочий код на индюке:
В uses добавляешь: IdMultipartFormData, IdHTTP
А далее функция:
Код:
function DownloadToComp(const fileURL, FileName: string):string;
var
postdownloadhttp:TidHTTP;
d:TIdMultiPartFormDataStream;
begin
postdownloadhttp:=TidHTTP.create(nil);
d:=TIdMultiPartFormDataStream.Create;
d.AddFile('userfile',FileName,'file');
try
postdownloadhttp.Post(fileURL+'?',d);
d.Free;
except
postdownloadhttp.Disconnect;
d.Free;
end;
postdownloadhttp.Free;
end;
работает по аналогии с вин инетом, только через пернатого.
|
|
|