Как отправить файл на сервер по 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

Функция SendFile в Delphi позволяет отправить файл на сервер по протоколу HTTP, используя класс TIdHTTP и объект TIdMultiPartFormDataStream.

Комментарии и вопросы

:: 2012-04-30 14:57:18 :: re:Как отправить файл на сервер по HTTP?

пользователь: Kirill.

Нерабочая функция, по крайней мере по 2м причинам:
1. HTTPRequest - пустой указатель на TIdHTTP, т.к. объект не создается.
2. На сервере должен быть скрипт для обработки запроса.
Есть новая версия?

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

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

Время компиляции файла: 2024-05-19 17:53:24
2024-05-20 00:18:03/0.0033619403839111/2