[转载红鱼儿]Delphi实现微信开发(3)如何使用multipart/form-data格式上传文件

简介: 开始前,先看下要实现的微信接口,上传多媒体文件,这个接口是用Form表单形式上传的文件。对我来说,对http的Form表单一知半解,还好,查到这个资料,如果你也和我一样,必须看看这篇文章。 在xalion窑主的指导下,我使用了indy自带的TIdMultiPartFormDataStre am类,来提交上传的文件。

开始前,先看下要实现的微信接口,上传多媒体文件,这个接口是用Form表单形式上传的文件。对我来说,对http的Form表单一知半解,还好,查到这个资料,如果你也和我一样,必须看看这篇文章

xalion窑主的指导下,我使用了indy自带的TIdMultiPartFormDataStre

am类,来提交上传的文件。

如果使用indy的idhttp,则调用这个方法,即可以提交Form.
function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string;

在窑主的建议下,使用了TMS Sparkle组件,对TIdMultiPartFormDataStream进行提交。

先实现下面这个函数,向指定网址提交TIdMultiPartFormDataStream对象:
function PostForm(url: string; aSource: TIdMultiPartFormDataStream): string;
var
  FClient: THttpClient;
  Req: THttpRequest;
  Resp: THttpResponse;
//  buffer: TBytes;
begin
  FClient := THttpClient.Create;
  Resp := nil;
  Req := FClient.CreateRequest;
  try
    Req.Uri := url;
    Req.Method := 'POST';
    Req.Headers.SetValue('content-type', aSource.RequestContentType);
    Req.SetContent(GetContentAsBytes(aSource));
    Resp := FClient.Send(Req);
    Result := TEncoding.UTF8.GetString(Resp.ContentAsBytes);
  finally
    FreeAndNil(Req);
    FreeAndNil(Resp);
    FreeAndNil(FClient);
  end;
end;
上述方法中,使用了GetContentAsBytes函数,把一个TStream转换为TBytes.这个函数是参考TMS Sparkle的实现改写的。
function GetContentAsBytes(aSource: TStream): TBytes;
const
  BufSize = 8192;
var
  BytesRead: Integer;
  TotalRead: Integer;
begin
  Setlength(Result, 0);
  TotalRead := 0;
  repeat
    Setlength(Result, Length(Result) + BufSize);
    BytesRead := aSource.Read(Result[TotalRead], BufSize);
    TotalRead := TotalRead + BytesRead;
  until BytesRead <> BufSize;
  Setlength(Result, TotalRead);
end;

最后,具体封装上传文件的接口。调用这个接口,以变参的方式,返回微信平台返回的结果。具体的实现过程,建立一个TIdMultiPartFormDataStream对象,叫FormData,再调用FormData.AddFile方法,将上传的文件加入其中。之后,利用上面实现的PostForm提交FormData对象,接下来,对微信平台返回的结果进行处理,并利用变参返回。

procedure UploadMedia(access_token, aFilePath: string; var aType: string;
  var media_id: string; var Created_at: TDatetime; var errcode: Integer;
  var errmsg: string);
var
  url: string;
  FormData: TIdMultiPartFormDataStream;
  r: string;
  jo: TjsonObject;
  jv: Tjsonvalue;
begin
  url := Format
    ('http://file.api.weixin.qq.com/cgi-bin/media/upload?access_token=%s&type=%s',
    [access_token, aType]);
  FormData := TIdMultiPartFormDataStream.Create;
  try
    FormData.AddFile('media', aFilePath);
    r := PostForm(url, FormData);
    jo := TjsonObject.ParseJSONValue(r) as TjsonObject;
    if jo.TryGetValue('media_id', jv) then
    begin
      aType := jo.GetValue('type').Value;
      media_id := jo.GetValue('media_id').Value;
      Created_at := DateUtils.UnixToDateTime(jo.GetValue('created_at')
        .Value.ToInteger, False);
      errcode := 0;
      errmsg := '';
    end
    else
    begin
      errcode := jo.GetValue('errcode').Value.ToInteger;
      errmsg := jo.GetValue('errmsg').Value;
    end;
  finally
    FreeAndNil(FormData);
  end;
end;

调用代码:
procedure Twm.UploadMedia(id: integer; aFile, aType: string);
var
  errcode: integer;
  errmsg: string;
  Created_at: TDateTime;
  stype, media_id: string;
begin
  if not qUploadMedia.Active then
    qUploadMedia.Open;
  stype := aType;
  WX_Impl.UploadMedia(GetAccessToken(id.ToString), aFile, stype, media_id,
    Created_at, errcode, errmsg);
  if errcode = 0 then
  begin
    //写入本地表.
    qUploadMedia.AppendRecord([id, stype, media_id, Created_at, aFile]);
    webLogger.WriteLog('上传成功,media_id=:' + media_id + '  时间:' +
      DateToStr(Created_at) + ' Type:' + sType)
  end
  else
    webLogger.WriteLog('上传失败:' + errcode.ToString + ':' + errmsg);
end;


参考的原文地址在这里。
目录
相关文章
|
1月前
|
弹性计算 前端开发 小程序
微信小程序上传文件至阿里云OSS直传(java后端签名+前端直传)
当前的通用文件上传方式是通过前端上传到服务器,再由服务器转存至对象存储。这种方式在处理小文件时效率尚可,但大文件上传因受限于服务器带宽,速度较慢。例如,一个100MB的文件在5Mbps带宽的阿里云ECS上上传至服务器需160秒。为解决此问题,可以采用后端签名的方式,使微信小程序直接上传文件到阿里云OSS,绕过服务器中转。具体操作包括在JAVA后端引入相关依赖,生成签名,并在微信小程序前端使用这个签名进行文件上传,注意设置正确的请求头和formData参数。这样能提高大文件上传的速度。
|
Web App开发 测试技术
[转载红鱼儿]delphi 实现微信开发(1)
大体思路: 1.用户向服务号发消息,(这里可以是个菜单项,也可以是一个关键词,如:注册会员。) 2.kbmmw web server收到消息,生成一个图文消息给微信,在图文消息中做好自己的url,在url中,可以把第一步消息带来的openid写到url的参数表中。
1302 0
|
数据库
[转载红鱼儿]delphi 实现微信开发(2)接入微信公众号平台
先要学习一下接入的资料,在这里,因为原理都在,所以一定要认真阅读,然后,利用Delphi实现一个对应函数,然后申请微信公众平台接口测试帐号。 function CheckSignature(const signature, timestamp, nonce, token: string): bo...
1223 0
|
11天前
|
小程序 前端开发 API
微信小程序全栈开发中的异常处理与日志记录
【4月更文挑战第12天】本文探讨了微信小程序全栈开发中的异常处理和日志记录,强调其对确保应用稳定性和用户体验的重要性。异常处理涵盖前端(网络、页面跳转、用户输入、逻辑异常)和后端(数据库、API、业务逻辑)方面;日志记录则关注关键操作和异常情况的追踪。实践中,前端可利用try-catch处理异常,后端借助日志框架记录异常,同时采用集中式日志管理工具提升分析效率。开发者应注意安全性、性能和团队协作,以优化异常处理与日志记录流程。
|
11天前
|
小程序 安全 数据安全/隐私保护
微信小程序全栈开发中的身份认证与授权机制
【4月更文挑战第12天】本文探讨了微信小程序全栈开发中的身份认证与授权机制。身份认证包括手机号验证、微信登录和第三方登录,而授权机制涉及角色权限控制、ACL和OAuth 2.0。实践中,开发者可利用微信登录获取用户信息,集成第三方登录,以及实施角色和ACL进行权限控制。注意点包括安全性、用户体验和合规性,以保障小程序的安全运行和良好体验。通过这些方法,开发者能有效掌握小程序全栈开发技术。
|
11天前
|
JavaScript 前端开发 小程序
微信小程序全栈开发之性能优化策略
【4月更文挑战第12天】本文探讨了微信小程序全栈开发的性能优化策略,包括前端的资源和渲染优化,如图片压缩、虚拟DOM、代码分割;后端的数据库和API优化,如索引创建、缓存使用、RESTful API设计;以及服务器的负载均衡和CDN加速。通过这些方法,开发者可提升小程序性能,优化用户体验,增强商业价值。
|
11天前
|
小程序 前端开发 JavaScript
微信小程序全栈开发中的PWA技术应用
【4月更文挑战第12天】本文探讨了微信小程序全栈开发中PWA技术的应用,PWA结合Web的开放性和原生应用的性能,提供离线访问、后台运行、桌面图标和原生体验。开发者可利用Service Worker实现离线访问,Worker处理后台运行,Web App Manifest添加桌面图标,CSS和JavaScript提升原生体验。实践中需注意兼容性、性能优化和用户体验。PWA技术能提升小程序的性能和用户体验,助力开发者打造优质小程序。
|
1月前
|
小程序 前端开发 程序员
微信小程序开发入门教程-小程序账号注册及开通
微信小程序开发入门教程-小程序账号注册及开通
|
11天前
|
SQL 安全 小程序
探索微信小程序全栈开发的安全性问题
【4月更文挑战第12天】本文探讨了微信小程序全栈开发中的安全性问题,包括数据安全、接口安全、隐私保护和代码安全。为解决这些问题,建议采取数据加密、使用HTTPS协议、身份认证与授权、输入验证、安全审计及漏洞扫描以及安全培训等措施。通过这些方法,开发者可提升小程序安全性,保护用户隐私和数据。
|
1月前
|
小程序 JavaScript
在使用微信小程序开发中用vant2框架中的Uploader 文件上传wx.uploadFile无反应和使用多图上传
网上有的说是bind:after-read="afterRead"的命名问题不支持-,但是我这儿执行了console.log("file",file);证明函数运行了。后来发现是multiple="true"原因开启了多图上传,如果是多图上传的话file就是数组了
25 2

热门文章

最新文章