标签：
http://www.cnblogs.com/devinlee/p/4565933.html Delphi XE7 用indy开发微信公众平台所有功能,可刷阅读,可刷赞,可加推广（除微支付） 关注作者的微信公众平台，测试效果 包含微信公众平台的所有功能（除微支付） 示例代码：（如需要全部代码，请加作者微信：Leedege） 复制代码 function UpNews(Num: Integer; AccessToken: String): String; var J: TJSONObject; N: array of TJSONObject; Url: String; temp: String; i: Integer; readnum, ad: TStringList; begin J := TJSONObject.Create; readnum := TStringList.Create; ad := TStringList.Create; ad.LoadFromFile(‘ad.txt‘); SetLength(N, Num); try J.AddPair(‘articles‘, TJSONArray.Create); with J.GetValue(‘articles‘) as TJSONArray do for i := 0 to Num - 1 do begin temp := TNewsMsg(NewsList.Items[i]^).Content; if TNewsMsg(NewsList.Items[i]^).AddTop then temp := TNewsMsg(NewsList.Items[i]^).adTop + temp; readnum.LoadFromFile(‘readnum.txt‘); if TNewsMsg(NewsList.Items[i]^).RefreshReadNum then readnum.Text := StringReplace(readnum.Text, ‘readNum‘, TNewsMsg(NewsList.Items[i]^).readnum, [rfReplaceAll]); if TNewsMsg(NewsList.Items[i]^).RefreshLikeNum then readnum.Text := StringReplace(readnum.Text, ‘likeNum">‘, TNewsMsg(NewsList.Items[i]^).LikeNum, [rfReplaceAll]); if TNewsMsg(NewsList.Items[i]^).SourceURL <> ‘‘ then readnum.Text := StringReplace(readnum.Text, ‘href=""‘, Format(‘href="%s"‘, [TNewsMsg(NewsList.Items[i]^).SourceURL]), [rfReplaceAll]); temp := temp + readnum.Text; readnum.Clear; if TNewsMsg(NewsList.Items[i]^).AddBottom then temp := temp + ad.Text + TNewsMsg(NewsList.Items[i]^).adBottom; N[i] := TJSONObject.Create; N[i].AddPair(‘thumb_media_id‘, UpMedia(AccessToken, ‘image‘, TNewsMsg(NewsList.Items[i]^).CoverFile)); N[i].AddPair(‘author‘, TNewsMsg(NewsList.Items[i]^).Author); N[i].AddPair(‘title‘, TNewsMsg(NewsList.Items[i]^).Title); N[i].AddPair(‘content_source_url‘, ‘‘); N[i].AddPair(‘content‘, temp); N[i].AddPair(‘digest‘, TNewsMsg(NewsList.Items[i]^).Digest); N[i].AddPair(‘show_cover_pic‘, TNewsMsg(NewsList.Items[i]^) .ShowCover.ToString); Add(N[i]); temp := ‘‘; end; Url := Format(UpNewsUrl, [AccessToken]); temp := PostMethod(Url, UTF8Encode(J.ToString), 1); J := TJSONObject.ParseJSONValue(temp) as TJSONObject; if J.Count > 0 then Result := J.GetValue(‘media_id‘).Value; finally J.Free; readnum.Free; ad.Free; end; end; 复制代码 作者微信：LeedegeDelphi XE7 用indy开发微信公众平台所有功能,可刷阅读,可刷赞,可加推广（除微支付）
标签：
原文地址：http://www.cnblogs.com/westsoft/p/5925514.html
