我正在使用VCL和Delphi Rio从Spelt/ZXing.Delphi开始使用Delphi的ZXing移植
我正在扫描Documentos,实际上是使用快速的Fujitsu扫描仪扫描的收据。这是一个巨大的数量。
问题在于,除了ZXing纸张的方向外,它还始终读取其上的qrcode(这很好)。
但是,出于存档目的,最好将文档保存在适当的水平位置。
这是我用来获取qrcode值的代码:
function TFormMain.DecodificaQRCodeImagemScanneada(ImagemScanneada: TBitmap): String;
var
scanBitmap: TBitmap;
ResultadoLeitura: TReadResult;
Scanmanager: TScanmanager;
begin
result := '';
try
Scanmanager := TScanmanager.Create(TBarcodeFormat.Auto,nil);
scanBitmap := TBitmap.Create;
scanBitmap.Assign(ImagemScanneada);
ResultadoLeitura := nil;
ResultadoLeitura := Scanmanager.Scan(scanBitmap);
if (ResultadoLeitura <> nil) then
begin
result := ResultadoLeitura.Text;
end;
finally
ResultadoLeitura.Free;
scanBitmap.Free;
Scanmanager.Free;
end;
end;
我想知道是否有一种方法可以将二维码的方向用作所扫描收据位置的指示。这样我就可以旋转位图,并使所有收据的方向相同。