Как отправить файл на сервер по HTTP? Delphi , Интернет и Сети , Интернет Как отправить файл на сервер по HTTP?
{ =============================================================================
отправить файл
=============================================================================}
function SendFile (aRequest, aFilename : string): string;
var lFormData : TIdMultiPartFormDataStream;
lResponce : string;
HTTPRequest: TIdHTTP;
begin
if UseProxy then
begin
HTTPRequest.ProxyParams.ProxyServer:=ProxyServer;
HTTPRequest.ProxyParams.ProxyPort:= StrToInt( ProxyPort );
HTTPRequest.ProxyParams.BasicAuthentication:=ProxyAuth;
HTTPRequest.ProxyParams.ProxyUsername:=ProxyName;
HTTPRequest.ProxyParams.ProxyPassword:=ProxyPass;
end
else HTTPRequest.ProxyParams.Clear;
if trim(aRequest)='' then exit;
lFormData := TIdMultiPartFormDataStream.Create;
lFormData.AddFile('File',aFilename,'application/octet-stream');
lFormData.AddFormField('rq', aRequest);
lFormData.AddFormField('EmptyField', '');
{$IFDEF DEBUG}
Writeln(#13#10 + 'Request: ' +#13#10+ aRequest);
Writeln(' Send file :' + aFilename);
{$ENDIF}
try
lResponce := HTTPRequest.Post('http://'+server, lFormData);
except
ShowMessage('
Server Connection error!
');
lResponce := '';
end;
lFormData.Free;
{$IFDEF DEBUG}
Writeln(#13#10 + 'Responce: ' + #13#10 + lResponce);
{$ENDIF}
Result:= lResponce;
end;
//=============================================================================
kan
Статья Как отправить файл на сервер по HTTP? раздела Интернет и Сети Интернет может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы :: 2012-04-30 14:57:18 :: re:Как отправить файл на сервер по HTTP? пользователь: Kirill .
Нерабочая функция, по крайней мере по 2м причинам:
1. HTTPRequest - пустой указатель на TIdHTTP, т.к. объект не создается.
2. На сервере должен быть скрипт для обработки запроса.
Есть новая версия?
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
:: Главная :: Интернет ::