delphi 調用百度識別

来源:https://www.cnblogs.com/wuxi15/archive/2020/04/07/12650896.html
-Advertisement-
Play Games

雖然百度大家一直在罵,但是我發現其實百度有些東西還是可以用的。現在大家都搞人工智慧了,我們Delphi也不可以落後。廢話不多說,直接上代碼 第一步,先獲取AccessToken function GetAccessToken(const client_id, client_secret: strin ...


雖然百度大家一直在罵,但是我發現其實百度有些東西還是可以用的。現在大家都搞人工智慧了,我們Delphi也不可以落後。廢話不多說,直接上代碼

第一步,先獲取AccessToken

function GetAccessToken(const client_id, client_secret: string;
  HTTP: TNetHTTPClient;out access_token,expires_in,error:String):Boolean;
var
 URL:String;
 cParam:TStringList;
 FJson:TJsonObject;
 S:string;
begin
  URL:='https://aip.baidubce.com/oauth/2.0/token';
  cParam:=TStringList.Create;
  cParam.Add('grant_type=client_credentials');
  cParam.Add('client_id='+client_id);
  cParam.Add('client_secret='+client_secret);
  try
  s:=HTTP.Post(URL,cParam).ContentAsString;
  FJson:=TJSONObject.ParseJSONValue(s) as TJSONObject;
  error:='';
  if FJson.Values['error']<>nil then
   begin
     if FJson.Values['error_description'].Value='unknown client id' then
       error:='API Key不正確';
     if FJson.Values['error_description'].Value='Client authentication failed' then
       error:='Secret Key不正確';
     if error='' then
       error:='未知錯誤';
       FJson.Free;
     Exit(false);
   end;
    access_token:=FJson.Values['access_token'].Value;
    expires_in:=FJson.Values['expires_in'].Value;
    Result:=True;
    FJson.Free;
  finally
    cParam.Clear;
    cParam.Free;
  end;
end;

  第二步,將我們要識別的圖片進行編碼

function ImageTobase64(Image:TStream):String;
Var
 FStream:TStringStream;
begin
 FStream:=TStringStream.Create;
 TBase64Encoding.Base64.Encode(Image,FStream);
 FStream.Position:=0;
 REsult:=TURLEncoding.URL.Encode(FStream.DataString);
end;

  最後,就是調用百度的識別服務了

function GetORC(Image:TStream;HTTP: TNetHTTPClient;const access_token:String):string;
var
  cImage:String;
  URL:String;
  cParam:TStringStream;
  cStr:TStringList;
  JO:TJSONObject;
  JA:TJSONArray;
  JV:TJSONValue;
begin

  cImage:=ImageTobase64(Image);
//  URL:='https://aip.baidubce.com/rest/2.0/ocr/v1/general?access_token='+access_token;
  URL:='https://aip.baidubce.com/rest/2.0/ocr/v1/accurate_basic?access_token='+access_token;
  HTTP.ContentType:='application/x-www-form-urlencoded;charset=UTF-8';
  cParam:= TStringStream.Create;
  cStr:=TStringList.Create;
  cStr.Add('image='+cImage);
  cSTr.Add('detect_direction=true');
  cstr.Delimiter:='&';
  cParam.WriteString(cStr.DelimitedText);
  cstr.Free;
  cParam.Position:=0;
  result:=HTTP.Post(URL,cParam).ContentAsString();
  JO:=TJSONObject.ParseJSONValue(Result) as TJSONObject;
  if JO.Values['error_code']<>nil then
    begin
      result:=JO.Values['error_code'].Value+','+JO.Values['error_msg'].Value;
      Exit;
    end;
  JA:=Jo.Values['words_result'] as TJSONArray;
  result:='';
  for JV in JA do
    result:=Result+Jv.P['words'].Value;

//  Result:=JA.ToString;
  cParam.Free;

end;

  這裡貼上的都是關鍵的代碼,具體的使用和免費額度,請自行百度。下麵再貼一下效果圖

 

 

  

 

 

 

 

 

 


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • 本文參考:http://www.ruanyifeng.com/blog/2014/02/css_transition_and_animation.html 1. transition基本用法: <!DOCTYPE html> <html lang="en"> <head> <meta charset ...
  • 本篇文章將給新人小白帶來學習web前端必看攻略。近些年來IT崗位大火,這些攻略是新手小白學習想要學習web前端很值得借鑒的,相信很多人也知道學好一門IT技術並非簡單事,在多年的授業生涯里總結了一套適合新手小白學習web前端必看的基礎攻略,今天就分享給大家。 第一:基礎的重要性 無論做什麼都一定要有扎 ...
  • 1、安裝插件 cnpm install --save vue-lazyload 2、引入組件 src/main.js 3、頁面中使用懶載入,把 :src 換成 v-lazy 效果圖 ...
  • 1、安裝jsonp cnpm install --save jsonp 2、jsonp API jsonp( url, opts, fn ) 3、封裝jsonp方法 src/assets/js/jsonp.js import jsonp from 'jsonp'; /*data格式案例 { id:1 ...
  • 效果圖 src/pages/home/nav.vue <template> <div class="nav"> <ul class="nav-list"> <li class="nav-item" v-for="(nav,index) in navItems" :key="index"> <a :h ...
  • 先上效果圖: 沒有打字的功能,純屬是個界面圖(一時無聊寫的) 代碼如下: <!DOCTYPE html> <html> <head> <meta charset="utf-8" /> <title>鍵盤ui </title> </head> <style type="text/css"> *{ ma ...
  • 1、在進行tp5->tp5.1的時候,沒有想太多,直接使用之前的代碼;結果在該操作中,多次調用該get方法,tp5.1的鏈式操作一直保持了之前的搜索條件,截圖如下:(具體的代碼沒有展示) 2、然後查閱了手冊,發現手冊說的很明白(嘗試了改變tp的版本,但是都沒有作用) 文檔位置:資料庫-》查詢構造器- ...
  • 本文主要記錄,使用 VBScript,如何找到 Excel 頁面中的,最後一行。 參考 VBA 中的解決方式: 很多 VBA 與 VBScript 的解決方法都是通用的,尤其是針對 Excel 的時候, 所以,我們先來看下 VBA 中,常用的3中方法: VBScript 中的解決方式: 然後,我們來 ...
一周排行
    -Advertisement-
    Play Games
  • C#TMS系統代碼-基礎頁面BaseCity學習 本人純新手,剛進公司跟領導報道,我說我是java全棧,他問我會不會C#,我說大學學過,他說這個TMS系統就給你來管了。外包已經把代碼給我了,這幾天先把增刪改查的代碼背一下,說不定後面就要趕鴨子上架了 Service頁面 //using => impo ...
  • 委托與事件 委托 委托的定義 委托是C#中的一種類型,用於存儲對方法的引用。它允許將方法作為參數傳遞給其他方法,實現回調、事件處理和動態調用等功能。通俗來講,就是委托包含方法的記憶體地址,方法匹配與委托相同的簽名,因此通過使用正確的參數類型來調用方法。 委托的特性 引用方法:委托允許存儲對方法的引用, ...
  • 前言 這幾天閑來沒事看看ABP vNext的文檔和源碼,關於關於依賴註入(屬性註入)這塊兒產生了興趣。 我們都知道。Volo.ABP 依賴註入容器使用了第三方組件Autofac實現的。有三種註入方式,構造函數註入和方法註入和屬性註入。 ABP的屬性註入原則參考如下: 這時候我就開始疑惑了,因為我知道 ...
  • C#TMS系統代碼-業務頁面ShippingNotice學習 學一個業務頁面,ok,領導開完會就被裁掉了,很突然啊,他收拾東西的時候我還以為他要旅游提前請假了,還在尋思為什麼回家連自己買的幾箱飲料都要叫跑腿帶走,怕被偷嗎?還好我在他開會之前拿了兩瓶芬達 感覺感覺前面的BaseCity差不太多,這邊的 ...
  • 概述:在C#中,通過`Expression`類、`AndAlso`和`OrElse`方法可組合兩個`Expression<Func<T, bool>>`,實現多條件動態查詢。通過創建表達式樹,可輕鬆構建複雜的查詢條件。 在C#中,可以使用AndAlso和OrElse方法組合兩個Expression< ...
  • 閑來無聊在我的Biwen.QuickApi中實現一下極簡的事件匯流排,其實代碼還是蠻簡單的,對於初學者可能有些幫助 就貼出來,有什麼不足的地方也歡迎板磚交流~ 首先定義一個事件約定的空介面 public interface IEvent{} 然後定義事件訂閱者介面 public interface I ...
  • 1. 案例 成某三甲醫預約系統, 該項目在2024年初進行上線測試,在正常運行了兩天後,業務系統報錯:The connection pool has been exhausted, either raise MaxPoolSize (currently 800) or Timeout (curren ...
  • 背景 我們有些工具在 Web 版中已經有了很好的實踐,而在 WPF 中重新開發也是一種費時費力的操作,那麼直接集成則是最省事省力的方法了。 思路解釋 為什麼要使用 WPF?莫問為什麼,老 C# 開發的堅持,另外因為 Windows 上已經裝了 Webview2/edge 整體打包比 electron ...
  • EDP是一套集組織架構,許可權框架【功能許可權,操作許可權,數據訪問許可權,WebApi許可權】,自動化日誌,動態Interface,WebApi管理等基礎功能於一體的,基於.net的企業應用開發框架。通過友好的編碼方式實現數據行、列許可權的管控。 ...
  • .Net8.0 Blazor Hybird 桌面端 (WPF/Winform) 實測可以完整運行在 win7sp1/win10/win11. 如果用其他工具打包,還可以運行在mac/linux下, 傳送門BlazorHybrid 發佈為無依賴包方式 安裝 WebView2Runtime 1.57 M ...