zoukankan      html  css  js  c++  java
  • idhttp+tidmultpartfromdatastream

    参阅:https://www.cnblogs.com/ClaireWu/p/12487028.html

    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;
  • 相关阅读:
    html向servlet传乱码解决办法
    myeclipse破解方法
    django cookie
    django 时间计数
    bzoj1698 / P1606 [USACO07FEB]白银莲花池Lilypad Pond
    bzoj1689 / P1589 [Usaco2005 Open] Muddy roads 泥泞的路
    bzoj1660 / P2866 [USACO06NOV]糟糕的一天Bad Hair Day
    bzoj1657: [Usaco2006 Mar]Mooo 奶牛的歌声
    bzoj1655: [Usaco2006 Jan] Dollar Dayz 奶牛商店
    bzoj1654 / P2863 [USACO06JAN]牛的舞会The Cow Prom
  • 原文地址:https://www.cnblogs.com/suhq/p/13175147.html
Copyright © 2011-2022 走看看