Delphi7调用百度API

使用Delphi7调用百度的自然语言处理API接口
使用idHTTP和TIdSSLIOHandlerSocket控件
idHTTP.HandleRedirects=true
idHTTP.HTTPOptions [holnProcessAuth=false,hoForceEncodeParams=true]
idHTTP.IOHandler=idSSLIOHandlerSocket
idHTTP.ProtocolVersion=pv1_1
idHTTP.Request.UserAgent=Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30; CIBA; MAXTHON 2.0)
idSSLIOHandlerSocket.SSLOptions.Method=sslvSSLv3
idSSLIOHandlerSocket.SSLOptions.Mode=sslmClient

procedure TForm1.Button1Click(Sender: TObject);
var
url,token:string;
stream:TStringStream;
begin
  url:='https://aip.baidubce.com/rpc/2.0/nlp/v1/dnnlm_cn';
  token:='token串';
  url := url+'?access_token='+token;
  stream:=TStringStream.Create('{"input_sequence":"百度是个搜索公司"}');
  stream.Position:=0;
  IdHTTP1.Request.ContentType:='application/json';
  IdHTTP1.Request.Connection:='Keep-Alive';
  Memo1.Lines.Text:=IdHTTP1.Post(url,stream);
end;