5,557
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
//上传多媒体文件(这里以上传图片为例)
function wxUpMedia(HTTP: TIdHTTP; AccessToken, MediaType, MediaFile: String): String;
const
UpMediaUrl : String = 'https://api.weixin.qq.com/cgi-bin/media/upload?access_token=%s&type=%s';
var
Url: String;
FormData: TIdMultiPartFormDataStream;
RespData: TStringStream;
begin
RespData := TStringStream.Create('');
FormData := TIdMultiPartFormDataStream.Create;
try
FormData.AddFile('media', MediaFile);
Url := Format(UpMediaUrl, [AccessToken, MediaType]);
HTTP.Post(Url, FormData, RespData);
Result := RespData.DataString;
finally
FormData.Free;
RespData.Free;
end;
end;
以上函数,我能上传成功,但是,图片发给用户确无法显示,后来我改成了在我方服务器上上传,发送带URL的图文信息给客户就可以正常显示了