微信公众号：1-IDHTTP控件：GET/POST 请求获取access_token

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

（图来源于方蓓？）

首先要理解公众号的流程。通过图知道，我们要：
1、你要有个web服务器，用于和微信服务器通讯。你的web服务器必须让微信服务器能找到。
2、通信要求按照微信公众号开发要求的格式提供相关的数据。（get和post）
3、关于白名单问题：一定要确认清楚。特别是调试时上网的机器ip是随机的。否则会返回错误。
有了这样的思路，问题就简单了，无论选用何种开发工具。
关于access_token：

access_token是公众号的全局唯一接口调用凭据，公众号调用各接口时都需使用access_token。开发者需要进行妥善保存。access_token的存储至少要保留512个字符空间。
access_token的有效期目前为2个小时，需定时刷新，重复获取将导致上次获取的access_token失效。
公众平台的API调用所需的access_token的使用及生成方式说明：
1、建议公众号开发者使用中控服务器统一获取和刷新Access_token，其他业务逻辑服务器所使用的access_token均来自于该中控服务器，不应该各自去刷新，否则容易造成冲突，导致access_token覆盖而影响业务；
2、目前Access_token的有效期通过返回的expire_in来传达，目前是7200秒之内的值。中控服务器需要根据这个有效时间提前去刷新新access_token。在刷新过程中，中控服务器可对外继续输出的老access_token，
此时公众平台后台会保证在5分钟内，新老access_token都可用，这保证了第三方业务的平滑过渡；
3、Access_token的有效时间可能会在未来有调整，所以中控服务器不仅需要内部定时主动刷新，还需要提供被动刷新access_token的接口，这样便于业务服务器在API调用获知access_token已超时的情况下，可以触发access_token的刷新流程。
公众号可以使用AppID和AppSecret调用本接口来获取access_token。AppID和AppSecret可在“微信公众平台-开发-基本配置”页中获得（需要已经成为开发者，且帐号没有异常状态）。
调用接口时，请登录“微信公众平台-开发-基本配置”提前将服务器IP地址添加到IP白名单中，点击查看设置方法，否则将无法调用成功。

我们看用Tidhttp实现的get和post

procedure GetDemo;
var
IdHttp : TIdHTTP;
Url : string;//请求地址
ResponseStream : TStringStream; //返回信息
ResponseStr : string;
begin
//创建IDHTTP控件
IdHttp := TIdHTTP.Create(nil);
//TStringStream对象用于保存响应信息
ResponseStream := TStringStream.Create('');
try
//请求地址
Url := 'http://dict.youdao.com/';
try
IdHttp.Get(Url,ResponseStream);
except
on e : Exception do
begin
ShowMessage(e.Message);
end;
end;
//获取网页返回的信息
ResponseStr := ResponseStream.DataString;
//网页中的存在中文时，需要进行UTF8解码
ResponseStr := UTF8Decode(ResponseStr);
finally
IdHttp.Free;
ResponseStream.Free;
end;
end;

//如果Get需要添加请求参数，则直接在地址后添加，各参数间用&连接。如：http://dict.youdao.com？param1=1&param2=2

procedure PostDemo;
var
IdHttp : TIdHTTP;
Url : string;//请求地址
ResponseStream : TStringStream; //返回信息
ResponseStr : string; RequestList : TStringList; //请求信息
RequestStream : TStringStream;
begin
//创建IDHTTP控件
IdHttp := TIdHTTP.Create(nil);
//TStringStream对象用于保存响应信息
ResponseStream := TStringStream.Create(''); RequestStream := TStringStream.Create('');
RequestList := TStringList.Create;
try
Url := 'http://f.youdao.com/?path=fanyi&vendor=fanyiinput';
try
//以列表的方式提交参数
RequestList.Add('text=love');
IdHttp.Post(Url,RequestList,ResponseStream); //以流的方式提交参数
RequestStream.WriteString('text=love');
IdHttp.Post(Url,RequestStream,ResponseStream);
except
on e : Exception do
begin
ShowMessage(e.Message);
end;
end;
//获取网页返回的信息
ResponseStr := ResponseStream.DataString;
//网页中的存在中文时，需要进行UTF8解码
ResponseStr := UTF8Decode(ResponseStr);
finally
IdHttp.Free;
RequestList.Free;
RequestStream.Free;
ResponseStream.Free;
end;
end;

==================================
Post请求在网页中多使用List形式提交参数。
不过在一些API中规定了POST的请求格式为 JSON 格式或 XML，这是需要注意发起请求前需要先设置 ContentType 属性，使用Stream方式提交已上面代码为例：
提交 JSON 格式：IdHttp.Request.ContentType :='application/json';
提交 XML 格式： IdHttp.Request.ContentType :='text/xml';
如未按要求格式提交，一般会返回 HTTP 1.1 / 415

//（https://www.cnblogs.com/limingliyu/archive/2016/07/03/5638966.html）

那么获取公众号access_token 的获取就简单了

procedure GetToken(http: TIdHTTP;AppID, AppSecret: String);
var
Url: string;
J: TJSONObject;
begin
Url := Format(TokenUrl, [AppID, AppSecret]);//AppID,AppSecret在你的公众平台上可以查到
J := TJSONObject.ParseJSONValue(GetMethod(http,Url, 1)) as TJSONObject;
try
    if J.Count > 0 then
    begin
      Access_Token := J.GetValue('access_token').Value;//这就是后面做什么都要用到的access_token，每天获取的次数是每天2000次，所以不能每次用都重新获取
      Expires_IN := J.GetValue('expires_in').Value.ToInteger;//access_token的过期时间，7200秒，所以要在过期前重新获取
    end;
finally
    J.Free;
end;
end;
==================================================

返回的结果：

{
"access_token": "7_ApAFIX15HI_hv8fpSou94-0HS38zWzvMO6hJBLXiWLc5VxvEloLmwKXlK5BP9dLNirRSV6F3c-sXWjsYzj77e0B5RVjt_hAZiSpRpOhfQBlPiO5-_cQp5QN9B-wzPEl2A0n8F8CwIudwGUD9ETPfABANCY",
"expires_in": 7200
}

function GetMethod(HTTP: TIdHTTP; Url: String; Max: Integer): String;
var
RespData: TStringStream;
begin
RespData := TStringStream.Create('', TEncoding.UTF8);
try
try
HTTP.Get(Url, RespData);
HTTP.Request.Referer := Url;
Result := RespData.DataString;
except
Dec(Max);
if Max = then
begin
Result := '';
Exit;
end;
Result := GetMethod(http,Url, Max);
end;
finally
FreeAndNil(RespData);
end;
end;