RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件 > 正文

delphi TNetHttpClient上传文件

作者:admin 来源: 日期:2018/1/8 20:44:13 人气: 标签:TNetHttpClient

Delphi如何实现multipart/form-data方式上传文件呢?以前我们是使用indy,也就是用idHttp加TIdMultiPartFormDataStream来实现;本着研究精神,今天看了一下TNetHttpClient的定义,发现有个function Post(const AURL: string; const ASource: TMultipartFormData; const AResponseContent: TStream = nil;  const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;的定义,然后官网查看了一下TMultipartFormData的说明,确认TNetHttpClient是可以独立完成formdata方式上传文件操作的,实验代码如下:

uses System.Net.Mime, // 用于支持 TMultipartFormData

  System.Net.HttpClientComponent; // 用于支持 TNetHTTPClient

 

procedure TfrmMain.Button1Click(Sender: TObject);

var

  cHttp: TNetHTTPClient;

  vData: TMultipartFormData;

  vRsp: TStringStream;

begin

  if OpenDialog1.Execute then

  begin

    cHttp := TNetHTTPClient.Create(nil);

    vData := TMultipartFormData.Create;

    vRsp := TStringStream.Create('', TEncoding.GetEncoding(65001));

    try

      vData.AddFile('fname', OpenDialog1.FileName);

      with cHttp do

      begin

        ConnectionTimeout := 2000; // 2秒

        ResponseTimeout := 10000; // 10秒

        AcceptCharSet := 'utf-8';

        AcceptEncoding := '65001';

        AcceptLanguage := 'zh-CN';

        ContentType := 'multipart/form-data';

        UserAgent := 'Embarcadero URI Client/1.0';

        try

          Memo1.Lines.Add('尝试上传文件 ' + OpenDialog1.FileName);

          Post('https://www.offeu.com/upfile', vData, vRsp);

          Application.ProcessMessages;

        except

          on E: Exception do

            // Error sending data: (12002) 操作超时.

            // Error receiving data: (12002) 操作超时

            if Copy(E.Message, 1, Pos(':', E.Message) - 1) = 'Error sending data'

            then

              Memo1.Lines.Add('Error:连接失败!')

            else if Copy(E.Message, 1, Pos(':', E.Message) - 1) = 'Error receiving data'

            then

              Memo1.Lines.Add('Error:接收失败,请延长接收超时时间!')

            else

              Memo1.Lines.Add('Error:' + E.Message);

        end;

        Memo1.Lines.Add(vRsp.DataString);

      end;

    finally

      cHttp.Free;

      vRsp.Free;

      vData.Free;

    end;

  end;

end;

 

我拿自己的网站的formdata接口进行了测试,上传文件很稳定。

 

不过,有个问题,因为emb官方没有提供数据发送的定义,所以无法实现上传进度的显示,但针对下载这块,又提供了,所以只能显示下载进度。

https://www.offeu.com/www/index_id_158.html


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料