本文整理自网络,侵删。
var
idhttp2:Tidhttp;
authHost:string;
tokSl:Tstringlist;
begin
authHost:= 'http://aip.baidubce.com/oauth/2.0/token';
try
tokSl:=Tstringlist.Create;
idhttp2:=Tidhttp.Create(nil);
toksl.Add('grant_type=' + grant_type);
toksl.Add('client_id=' + client_id);
toksl.Add('client_secret=' + client_secret);
Result:=idhttp2.Post(authHost,toksl);
finally
toksl.Free;
idhttp2.DisposeOf;
end;
end;
获取结果:
{
"access_token": "1.a6b7dbd428f731035f771b8d********.86400.1292922000-2346678-124328",
"expires_in": 2592000,
"refresh_token": "2.385d55f8615fdfd9edb7c4b********.604800.1293440400-2346678-124328",
"scope": "public audio_tts_post ...",
"session_key": "ANXxSNjwQDugf8615Onqeik********CdlLxn",
"session_secret": "248APxvxjCZ0VEC********aK4oZExMB",
}
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>