``` 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