请用unigui编写一个读身份证信息的页面

下面是一个基于 Delphi 和 UniGUI 框架的读取身份证信息的页面示例：

首先，在 UniGUI 中创建一个新的 Web 应用程序项目。然后，添加一个新的 UniMainModule 模块，将以下代码添加到 OnCreate 事件处理程序中：

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
begin
  UniSession.AddJS('https://cdn.bootcss.com/jquery/3.4.1/jquery.min.js');
  UniSession.AddJS('https://cdn.bootcss.com/bootstrap/4.3.1/js/bootstrap.min.js');
  UniSession.AddCSS('https://cdn.bootcss.com/bootstrap/4.3.1/css/bootstrap.min.css');
end;

上面的代码会在页面中添加 Bootstrap 和 jQuery 库以及相关的 CSS 样式。

接下来，我们需要添加一个 UniPanel 组件，并将其设置为占满整个页面。然后，再添加一个 UniButton 组件和一个 UniMemo 组件，代码如下：

object UniPanel1: TUniPanel
  AlignWithMargins = True
  Width = 100%
  Height = 100%
  Margins.Left = 10
  Margins.Top = 10
  Margins.Right = 10
  Margins.Bottom = 10
  TabOrder = 0
  object UniButton1: TUniButton
    Width = 100
    Height = 40
    Left = 400
    Top = 20
    Caption = '读取身份证信息'
    TabOrder = 0
    OnClick = UniButton1Click
  end
  object UniMemo1: TUniMemo
    Width = 600
    Height = 400
    Left = 100
    Top = 80
    ReadOnly = True
    TabOrder = 1
  end
end

UniButton1 的 OnClick 事件处理程序将会读取身份证信息，并将信息显示在 UniMemo1 中。下面是 UniButton1Click 事件处理程序的代码：

procedure TUniMainModule.UniButton1Click(Sender: TObject);
var
  idCardReader: TIdCardReader;
  idCardInfo: TIdCardInfo;
begin
  idCardReader := TIdCardReader.Create;
  try
    if idCardReader.Open then
    begin
      idCardInfo := idCardReader.ReadCardInfo;
      if idCardInfo.Success then
      begin
        UniMemo1.Lines.Clear;
        UniMemo1.Lines.Add('姓名：' + idCardInfo.Name);
        UniMemo1.Lines.Add('性别：' + idCardInfo.Gender);
        UniMemo1.Lines.Add('民族：' + idCardInfo.Nation);
        UniMemo1.Lines.Add('出生日期：' + idCardInfo.BirthDate);
        UniMemo1.Lines.Add('住址：' + idCardInfo.Address);
        UniMemo1.Lines.Add('身份证号码：' + idCardInfo.CardNo);
      end
      else
      begin
        UniMemo1.Lines.Clear;
        UniMemo1.Lines.Add('读取身份证信息失败');
      end;
    end
    else
    begin
      UniMemo1.Lines.Clear;
      UniMemo1.Lines.Add('打开身份证读卡器失败');
    end;
  finally
    idCardReader.Free;
  end;
end;

上面的代码创建了一个 TIdCardReader 对象，并调用它的 Open 方法打开读卡器设备。如果打开成功，则调用 ReadCardInfo 方法读取身份证信息，并将信息显示在 UniMemo1 中。如果读取失败，则显示错误信息。

最后，我们需要在 UniMainModule 的 Uses 中添加 IdCardReader 单元，以便使用 TIdCardReader 类型。

这样，一个简单的读取身份证信息的页面就完成了。