人体分析Demo-百度API

procedure TFrmMain.cxButton2Click(Sender: TObject);
var
  memImg: TMemoryStream;
  strImg: TStringStream;
  sUrl: string;
  lstParam: TStrings;
  ret: ISuperObject;

  buff: dWORD;
begin
  memImg := TMemoryStream.Create;
  strImg := TStringStream.Create(‘‘);
  lstParam := TStringList.Create;
  try
    if Image2.Picture.Graphic = nil then
    begin
      ShowMessage(‘图片为空, 请下加载图片‘);
      Exit;
    end;
    Image2.Picture.Graphic.SaveToStream(memImg);
    memImg.Position := 0;
    memImg.ReadBuffer(buff, 2);
    memImg.Position := 0;
    EncdDecd.EncodeStream(memImg, strImg);
    lstParam.Add(Format(‘image=%S‘, [strImg.DataString]));
    lstParam.Add(Format(‘show=true‘, []));
    sUrl := Format(sUrl_TrafficStat, [FToken]);
    ret := SO(UTF8Decode(IdHTTP1.Post(sUrl, lstParam)));
    cxMemo1.Text := ret.AsString;
    Image2.Picture.Bitmap.Assign(StringToBitmap(ret.S[‘image‘]));
  finally
    memImg.Free;
    strImg.Free;
    lstParam.Free;
  end;
end;