Delphi Wacom SDK

Question

最近，我的公司买了一个Wacom STU-530签名簿，我必须实现一个程序，从它获取客户签名，并创建一个带有签名的pdf。我使用FastReport来实现PDF，但我需要从wacom平板电脑获取签名。通过sdk，我实现了以下代码：

procedure TfrmMain.btnFirmaClick(Sender: TObject);
var
  objFirma: SigObj;
  ctlFirma: TSigCtl;
  picFirma: TPicture;
  res: CaptureResult;
begin
  picFirma := TPicture.Create;
  ctlFirma := TSigCtl.Create(Self);
  res := ctlFirma.Capture('Firmare per accettazione',
    'Formazione del personale in affiancamento');
  case res of
    CaptureOK: begin
      objFirma := SigObj(ctlFirma.Signature);
      SetOlePicture(picFirma, objFirma.Picture(300, 300, 'image/bmp', 0.5, $000000,
        $ffffff, -1.0, -1.0, RenderOutputPicture or RenderColor32BPP or
        RenderEncodeData));
      picFirma.SaveToFile('firma.bmp');
    end;
  end;
  ctlFirma.Free;
  picFirma.Free;
end;

SigObj有一个返回IPictureDisp的方法，我需要将它转换成TImage，所以我使用了SetOlePicture，但是当我保存图像时，它是不可读的。如果我尝试用来保存图片

picFirma.bitmap.SaveToFile('firma.bmp')  

生成的位图是空的。我的代码出了什么问题？

Answer 1

根据Signature SDK附带的Signature Components接口，要获取位图形式的签名，需要使用RenderBitmap方法。

标志RenderBitmap( outputFilename，dimensionX，dimensionY，mimeType，inkWidth，nkColor，backgroundColor，paddingX，paddingY，flags)

呈现签名的图像，创建图像文件或返回二进制数据。可选地，使用隐写术技术对生成的图像中的SigObj数据进行编码。

    objFirma:= SigObj(ctlFirma.Signature);
    objFirma.RenderBitmap('firma.bmp', 300, 300, 'image/bmp', 0.5, $000000,
    $ffffff, -1.0, -1.0, RenderOutputFilename or RenderColor32BPP or RenderEncodeData);

Answer 2

在当前版本的Wacom signature SDK 4.5.6中，您的代码运行良好。