Как отправить файл на сервер по 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. На сервере должен быть скрипт для обработки запроса.
Есть новая версия?

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Интернет ::

24.04.2024 11:22:08/0.00086879730224609/0