```
unit uEocr;
interface
uses
System.Classes, System.SysUtils;
// init , ocr , un 三個函數的字母的大小寫必須與其申明相同。
// 本例全是小寫字母
// dll 是 windows 規范。不受編寫語言限制
// ocr.dll 是一個易語言的 DLL
function init(): integer; stdcall; external 'ocr.dll';
function ocr(APic: Pbyte; ACount: integer): Pansichar; stdcall; external 'ocr.dll';
function un(): integer; stdcall; external 'ocr.dll';
function DoOcrCode(APicFileName: string): string;
implementation
function DoOcrCode(APicFileName: string): string;
var
M: TMemoryStream;
sCode: AnsiString;
begin
Result := '';
M := TMemoryStream.Create;
try
M.LoadFromFile(APicFileName);
// M.Memory 為 Stream 的起始地址
sCode := ocr(M.Memory, M.Size); // 如果您的圖片在內存中,請用此方法
Result := string(sCode);
finally
M.Free;
end;
end;
initialization // 單元初始化區
init(); // 初始化
finalization // 單元結束區
un(); // 結束
end.
```
本例源代碼名稱: EOcr_D11.0.zip
請在各QQ群或網盤中下載
鏈接:https://pan.baidu.com/s/1qs96T6ZePP0UEK_8NeOzPg
提取碼:1234
- 0.1 教程說明
- 0.2 delphi xe8 安裝
- 0.2.2 XE 10.3.3 安裝
- 0.3 delphi IDE 的非常必要的配置
- 0.4 調試中的異常處理
- 0.5 工程路徑設置
- 0.6 開發工具界面切換成中文的問題
- 一、實用技巧
- 0.嘗試為event取名叫伊文特
- 1.各種(變量)數據在內存中是什么樣子的?
- 2
- 3
- 4.亂碼問題
- 5
- 二、多線程
- 三、DLL相關
- 1.DLL中函數參數如何設計?
- 2.調用易語言DLL識別驗證碼
- 四、界面設計
- 1.關于解耦問題
- 2.登錄功能設計
- 五、面向對象基礎知識
- 1.窗口間傳遞值
- 3.避免又臭又長的裹腳布
- 2.擴展 TStringGrid , delphi 7 示例
- 六、初學者誤區集錦
- 七 TList 集合
- 1.附加信息Pointer設計
- 2.用 TList 來建立組件間的聯系
- 3.泛型 TList<T> 示例