百度獲取圖片 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 = 0 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 := 0;
      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 > 0 then
      begin
        { 1,遍歷JSON數據 }
         mmo2.Lines.Add('遍歷JSON數據：' + #13#10);
         mmo2.Lines.Add('JSON數據數量：' + IntToStr(JSONObject.Count));
        for i := 0 to JSONObject.Count - 1 do
        begin
          if i = 0 then
          begin
            temp := JSONObject.Get(i).ToString + #13#10;;
          end
          else
          begin
            temp := temp + JSONObject.Get(i).ToString + #13#10;
          end;
        end;
          mmo2.Lines.Add(temp);
          temp := 'words = ' + JSONObject.Values['words_result'].ToString + #13#10;
          jsonArray := TJSONArray(JSONObject.GetValue('words_result'));
           if jsonArray.Count > 0 then
        begin
          // 得到JSON數組字符串
          temp := 'other = ' + JSONObject.GetValue('words_result').ToString + #13#10;

          // 循環取得JSON數組中每個元素
          for i := 0 to jsonArray.Size - 1 do
          begin
            JSONObject2:=TJSONObject.ParseJSONValue(Trim(jsonArray.Items[i].ToString)) as TJSONObject;
            temp := temp + IntToStr(i + 1) + ' : ' + JSONObject2.Values['words'].ToString + #13#10;
          end;
        end;
        Mmo2.Lines.Add(temp);
      end;

   // mmo2.Lines.Add(SJson.GetValue('words').ToString);
    h := pos('words":', ss);
    if h > 0 then
    begin
      while h > 0 do
      begin
        delete(ss, 1, h + 6);
        delete(ss, 1, pos('"', ss));
        mmo1.Lines.Add(copy(ss, 1, pos('"', ss) - 1));
        h := pos('words":', ss);
      end;
    end
    else
      mmo1.Lines.Add(ss);

  end;
end;