其他分享
首页 > 其他分享> > delphi 使用idhttp+TIdMultiPartFormDataStream 上传表单post文件并解决ssl问题

delphi 使用idhttp+TIdMultiPartFormDataStream 上传表单post文件并解决ssl问题

作者:互联网

最近工作需要对接企业微信的推送信息接口

里面有发文件的功能

所以特地记录下上传文件并且使用idhttp遇到的访问ssl网址报错问题

参考文档:https://blog.csdn.net/huohuotu/article/details/77337087

官方上传临时素材文档:https://work.weixin.qq.com/api/doc/90000/90135/90253

下面不多说,直接贴上代码

 

function xxx.UploadFile(const sAccessToken, sFile, sFileType: string):string;
var
  IdHttp: TIdHTTP;
  MutPartForm: TIdMultiPartFormDataStream;
  Ms: TStringStream;
  sTmp: string;
begin
  Result := '';
  try
    Ms := TStringStream.Create('', TEncoding.UTF8);
    IdHttp := TIdHttp.Create(nil);
    IdHttp.ReadTimeout := 30000;
    MutPartForm := TIdMultiPartFormDataStream.Create;
    try
      IdHttp.AllowCookies    := True;
      IdHttp.HandleRedirects := True; //允许重定向
      // Http1.1
      IdHttp.HTTPOptions := IdHttp.HTTPOptions + [hoKeepOrigProtocol];
      IdHttp.ProtocolVersion := pv1_1;
      //MutPartForm.AddFormField('file', sFile);
      sTmp := Format('http://qyapi.weixin.qq.com/cgi-bin/media/upload?access_token=%s&type=%s',[sAccessToken, sFileType]);
      IdHttp.Post(sTmp, MutPartForm, Ms);
      Result := Ms.DataString;
    finally
      Ms.Free;
      IdHttp.Free;
      MutPartForm.Free;
    end;
  except
    on E: Exception do Result := E.Message;
  end;
end;

  

但是这段代码会遇到两个问题:

1:发送的文件显示了完整的路径和文件名

2:有时候会报 IOHandler value is not valid错误

当然,如果你不在意文件名并且没有遇到这个报错问题的话,可以用这段代码

下面是解决这两个问题的改进版:

function xxx.UploadFile(const sAccessToken, sFile, sFileType: string):string;
var
  IdHttp: TIdHTTP;
  MutPartForm: TIdMultiPartFormDataStream;
  Ms: TStringStream;
  sTmp: string;
  LStream: TIdReadFileExclusiveStream;
  SSLIO: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := '';
  try
    Ms := TStringStream.Create('', TEncoding.UTF8);
    IdHttp := TIdHttp.Create(nil);
    IdHttp.ReadTimeout := 30000;
    MutPartForm := TIdMultiPartFormDataStream.Create;
    LStream := TIdReadFileExclusiveStream.Create(sFile);
    SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      IdHttp.AllowCookies    := True;
      IdHttp.HandleRedirects := True; //允许重定向
      SSLIO.SSLOptions.Method:=sslvTLSv1;
      SSLIO.SSLOptions.Mode := sslmClient;
      IdHttp.IOHandler := SSLIO;
      // Http1.1
      IdHttp.HTTPOptions := IdHttp.HTTPOptions + [hoKeepOrigProtocol];
      IdHttp.ProtocolVersion := pv1_1;
      MutPartForm.AddObject('media', 'application/octet-stream', LStream, ExtractFileName(sFile));
      sTmp := Format('http://qyapi.weixin.qq.com/cgi-bin/media/upload?access_token=%s&type=%s',[sAccessToken, sFileType]);
      IdHttp.Post(sTmp, MutPartForm, Ms);
      Result := Ms.DataString;
    finally
      LStream.Free;
      Ms.Free;
      IdHttp.Free;
      MutPartForm.Free;
      SSLIO.Free;
    end;
  except
    on E: Exception do Result := E.Message;
  end;
end;

  

 需要增加uses引用的单元:IdGlobal, IdHTTP, IdMultipartFormData, IdSSLOpenSSL

 三个参数 ,获取的access_token, 文件路径,和文件类型,

文件类型:分别有图片(image)、语音(voice)、视频(video),普通文件(file)

 

标签:string,idhttp,delphi,MutPartForm,Free,ssl,Ms,IdHttp,Create
来源: https://www.cnblogs.com/ClaireWu/p/12487028.html