首页 > 代码库 > Delphi XE7 用indy开发微信公众平台所有功能,可刷阅读,可刷赞,可加推广（除微支付）
Delphi XE7 用indy开发微信公众平台所有功能,可刷阅读,可刷赞,可加推广（除微支付）
http://www.cnblogs.com/devinlee/p/4565933.htmlDelphi 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="http://www.mamicode.com/%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;复制代码作者微信：Leedege
Delphi XE7 用indy开发微信公众平台所有功能,可刷阅读,可刷赞,可加推广（除微支付）
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。