varh,i: integer;ss, url: string;mem: TMemoryStream;str1: tstringlist;memstr: TStringStream;iddec: TIdEncoderMIME;JSONObject,JSONObject2: TJSONObject; // JSON類jsonArray: TJSONArray; // JSON數組變量temp: string; // 臨時使用變量 begintoken := '24.49a7c8acdbf69413ce0f998ad39a7a3d.2592000.1548050649.282335-9533039'; //圖片獲取的tokenif token = '' thenApplication.MessageBox('請輸入token', '提示', MB_OK + MB_ICONINFORMATION + MB_TOPMOST)else if cxImage1.Picture.Width = 0 thenApplication.MessageBox('請先載入圖片', '提示', MB_OK + MB_ICONSTOP + MB_TOPMOST)elsebeginiddec := TIdEncoderMIME.Create;screen.Cursor := crhourglass;// ssl.SSLOptions.Method:= sslvSSLv3;memstr := TStringStream.Create;mem := TMemoryStream.Create;str1 := tstringlist.Create;trycxImage1.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; //獲取返回值finallymemstr.Free;str1.Free;iddec.Free;screen.Cursor := crdefault;end;JSONObject := nil;JSONObject:=TJSONObject.ParseJSONValue(Trim(ss)) as TJSONObject;if JSONObject.Count > 0 thenbegin{ 1,遍歷JSON數據 }mmo2.Lines.Add('遍歷JSON數據：' + #13#10);mmo2.Lines.Add('JSON數據數量：' + IntToStr(JSONObject.Count));for i := 0 to JSONObject.Count - 1 dobeginif i = 0 thenbegintemp := JSONObject.Get(i).ToString + #13#10;;endelsebegintemp := 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 thenbegin// 得到JSON數組字符串temp := 'other = ' + JSONObject.GetValue('words_result').ToString + #13#10;// 循環取得JSON數組中每個元素for i := 0 to jsonArray.Size - 1 dobeginJSONObject2:=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 thenbeginwhile h > 0 dobegindelete(ss, 1, h + 6);delete(ss, 1, pos('"', ss));mmo1.Lines.Add(copy(ss, 1, pos('"', ss) - 1));h := pos('words":', ss);end;endelsemmo1.Lines.Add(ss);end; end;

?

轉載于:https://www.cnblogs.com/Thenext/p/10288703.html

總結

以上是生活随笔為你收集整理的百度获取图片 json格式解析的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。