Delphi 百度智能云 OCR API 调用控件

103 阅读 0 评论 68 点赞

我是靠谱客的博主要减肥心情，这篇文章主要介绍Delphi 百度智能云 OCR API 调用控件，现在分享给大家，希望可以做个参考。

百度智能云提供了OCR识别功能，其识别种类非常丰富，包括：卡证文字识别、通用场景文字识别、交通场景文字识别、财务票据文字识别...等等。无论是移动端，还是PC端，通过调用OCR服务，可以方便的识别成需要的文字。

在百度智能云官方提供的调用文档中，并没有提供delphi的调用示例，本文提供delphi调用百度智能云OCR的例子。要想调用百度智能云OCR，首先需要在百度智能云-智能时代基础设施网址中申请好账号（注意：有些OCR识别需要申请权限），这个不在本文中讨论。

根据百度智能云提供的文档，我们开发了Delphi调用的控件，并编写了使用该控件的Demo示例。

在该控件及Demo中，提供如下功能及知识点：

Delphi 调用百度OCR API，一个函数完成百度智能云中所有OCR识别；
原生TNetHTTPClient的使用方法；
图像剧中按比例放置；
JSON的两种格式化方法函数。

OCR中的核心函数：

复制代码

function TOCR_Baidu_Component.WebPost(URL, Body: string;
  var ResponseStr: string): Boolean;
var
  NetHTTPClient: TNetHTTPClient;
  AResponseContent: TMemoryStream;
  ARequestContent: TMemoryStream;
  HTTPResponse: IHTTPResponse;
  B: TBytes;
begin
  // 首先检查URL是否正确，就简单的判断是否为空即可
  if Trim(URL) = '' then
  begin
    ResponseStr := 'URL 参数不能为空!';
    Exit(False);
  end;

// 准备请求数据
  ARequestContent := nil;
  if Body <> '' then
  begin
    ARequestContent := TMemoryStream.Create;
    B := Tencoding.UTF8.GetBytes(Body);
    ARequestContent.Write(B[0], Length(B)); // 写入数据
    ARequestContent.Position := 0; // 这一句不能少，否则发送的参数为空
  end;

NetHTTPClient := TNetHTTPClient.Create(nil);
  NetHTTPClient.Asynchronous := False; // 表示同步请求
  NetHTTPClient.ContentType := 'application/x-www-form-urlencoded';
  NetHTTPClient.ConnectionTimeout := 3 * 1000; // 连接超时10秒钟
  AResponseContent := TMemoryStream.Create;
  try
    try
      HTTPResponse := NetHTTPClient.Post(URL, ARequestContent,
        AResponseContent);
    except
      on E: Exception do
      begin
        ResponseStr := E.Message;
        Exit(False);
      end;
    end;
    // 如果返回状态不正确，则返回错误信息
    if HTTPResponse.StatusCode <> 200 then
    begin
      ResponseStr := HTTPResponse.StatusText;
      Exit(False);
    end;
    // 正确返回字符串
    SetLength(B, AResponseContent.Size);
    AResponseContent.Read(B[0], AResponseContent.Size);
    ResponseStr := Tencoding.UTF8.GetString(B);
    Result := True;
  finally
    NetHTTPClient.Free;
    AResponseContent.Free;
    if ARequestContent <> nil then
      ARequestContent.Free;
  end;
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
function TOCR_Baidu_Component.WebPost(URL, Body: string;
  var ResponseStr: string): Boolean;
var
  NetHTTPClient: TNetHTTPClient;
  AResponseContent: TMemoryStream;
  ARequestContent: TMemoryStream;
  HTTPResponse: IHTTPResponse;
  B: TBytes;
begin
  // 首先检查URL是否正确，就简单的判断是否为空即可
  if Trim(URL) = '' then
  begin
    ResponseStr := 'URL 参数不能为空!';
    Exit(False);
  end;

  // 准备请求数据
  ARequestContent := nil;
  if Body <> '' then
  begin
    ARequestContent := TMemoryStream.Create;
    B := Tencoding.UTF8.GetBytes(Body);
    ARequestContent.Write(B[0], Length(B)); // 写入数据
    ARequestContent.Position := 0; // 这一句不能少，否则发送的参数为空
  end;

  NetHTTPClient := TNetHTTPClient.Create(nil);
  NetHTTPClient.Asynchronous := False; // 表示同步请求
  NetHTTPClient.ContentType := 'application/x-www-form-urlencoded';
  NetHTTPClient.ConnectionTimeout := 3 * 1000; // 连接超时10秒钟
  AResponseContent := TMemoryStream.Create;
  try
    try
      HTTPResponse := NetHTTPClient.Post(URL, ARequestContent,
        AResponseContent);
    except
      on E: Exception do
      begin
        ResponseStr := E.Message;
        Exit(False);
      end;
    end;
    // 如果返回状态不正确，则返回错误信息
    if HTTPResponse.StatusCode <> 200 then
    begin
      ResponseStr := HTTPResponse.StatusText;
      Exit(False);
    end;
    // 正确返回字符串
    SetLength(B, AResponseContent.Size);
    AResponseContent.Read(B[0], AResponseContent.Size);
    ResponseStr := Tencoding.UTF8.GetString(B);
    Result := True;
  finally
    NetHTTPClient.Free;
    AResponseContent.Free;
    if ARequestContent <> nil then
      ARequestContent.Free;
  end;
end;