delphi 调用百度的人脸识别api，一直提示连接超时。

最新推荐文章于 2022-04-27 13:22:17 发布

zhouyaowei1983

最新推荐文章于 2022-04-27 13:22:17 发布

阅读量1.6k

点赞数

分类专栏： delphi 文章标签：百度人脸识别 delphi

本文链接：https://blog.csdn.net/zyw38121913/article/details/83722486

版权

delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

代码如下：

procedure TForm1.postface2;
var
bmp: tbitmap;
i1,j1,i2,j2,h: integer;
ss,url,face_fields: string;

mem: TMemoryStream;
str1: tstringlist;
memstr: TStringStream;
//ssl: tIdSSLIOHandlerSocketOpenSSL;
w: WideString;
MyClass: TComponent;
begin
url:='https://www.aip.baidubce.com/rest/2.0/face/v2/detect?access_token=24.411d031966fac2b752bb48e6d69f432a.2592000.1543939048.282335-14634734';
face_fields:='age,beauty,expression,faceshape,gender,glasses,landmark,race,qualities';
str1:= tstringlist.Create;
str1.Add('image='+ URLEncode(ss));
str1.Add('max_face_num=1');
str1.Add('image='+ URLEncode(face_fields));
memstr:= TStringStream.Create;
idhttp1.ReadTimeout:= 65000;
idhttp1.ConnectTimeout := 65000;
idhttp1.Request.ContentType:= 'application/x-www-form-urlencoded';
try
idhttp1.Post( url,str1,memstr);
memstr.Position:= 0;
ss:= memstr.Encoding.UTF8.GetString(memstr.Bytes);
finally
str1.Free;
memstr.Free;
end;