百度获取图片 json格式解析

var

  h,i: integer;

  ss, url: string;

  mem: TMemoryStream;

  str1: tstringlist;

  memstr: TStringStream;

  iddec: TIdEncoderMIME;

  JSONObject,JSONObject2: TJSONObject; // JSON类

  jsonArray: TJSONArray; // JSON数组变量

  temp: string; // 临时使用变量

begin

  token := '24.49a7c8acdbf69413ce0f998ad39a7a3d.2592000.1548050649.282335-9533039'; //图片获取的token

  if token = '' then

    Application.MessageBox('请输入token', '提示', MB_OK + MB_ICONINFORMATION + MB_TOPMOST)

  else if cxImage1.Picture.Width =  then

    Application.MessageBox('请先载入图片', '提示', MB_OK + MB_ICONSTOP + MB_TOPMOST)

  else

  begin

    iddec := TIdEncoderMIME.Create;

    screen.Cursor := crhourglass;

       // ssl.SSLOptions.Method:= sslvSSLv3;

    memstr := TStringStream.Create;

    mem := TMemoryStream.Create;

    str1 := tstringlist.Create;

    try

      cxImage1.Picture.SaveToStream(mem);

      mem.Position := ;

      ss := iddec.Encode(mem);  //  *******

      mem.Free; //提交

      str1.Add('image=' + URLEncode(ss));

      url := 'https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic?access_token=';

 // https://aip.baidubce.com/rest/2.0/ocr/v1/general_basic?access_token=

 // https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic ?access_token=

      url := url + token;

      RESTRequest1.AddParameter('image', ss);   //传送一个图片的流

      RESTClient1.BaseURL := url;

      restrequest1.Execute;

      ss := RESTResponse1.Content;  //获取返回值

    finally

      memstr.Free;

      str1.Free;

      iddec.Free;

      screen.Cursor := crdefault;

    end;

    JSONObject := nil;

    JSONObject:=TJSONObject.ParseJSONValue(Trim(ss)) as TJSONObject;

       if JSONObject.Count >  then

      begin

        { 1,遍历JSON数据 }

         mmo2.Lines.Add('遍历JSON数据：' + ##);

         mmo2.Lines.Add('JSON数据数量：' + IntToStr(JSONObject.Count));

        for i :=  to JSONObject.Count -  do

        begin

          if i =  then

          begin

            temp := JSONObject.Get(i).ToString + ##;;

          end

          else

          begin

            temp := temp + JSONObject.Get(i).ToString + ##;

          end;

        end;

          mmo2.Lines.Add(temp);

          temp := 'words = ' + JSONObject.Values['words_result'].ToString + ##;

          jsonArray := TJSONArray(JSONObject.GetValue('words_result'));

           if jsonArray.Count >  then

        begin

          // 得到JSON数组字符串

          temp := 'other = ' + JSONObject.GetValue('words_result').ToString + ##;

          // 循环取得JSON数组中每个元素

          for i :=  to jsonArray.Size -  do

          begin

            JSONObject2:=TJSONObject.ParseJSONValue(Trim(jsonArray.Items[i].ToString)) as TJSONObject;

            temp := temp + IntToStr(i + ) + ' : ' + JSONObject2.Values['words'].ToString + ##;

          end;

        end;

        Mmo2.Lines.Add(temp);

      end;

   // mmo2.Lines.Add(SJson.GetValue('words').ToString);

    h := pos('words":', ss);

    if h >  then

    begin

      while h >  do

      begin

        delete(ss, , h + );

        delete(ss, , pos('"', ss));

        mmo1.Lines.Add(copy(ss, , pos('"', ss) - ));

        h := pos('words":', ss);

      end;

    end

    else

      mmo1.Lines.Add(ss);

  end;

end;