Delphi 如何使用ZXing查找qrcode方向？

我在使用VCL和Delphi-Rio为Delphi使用ZXing移植

我在扫描单据，实际上是用富士通的快速扫描仪扫描收据。这是一个巨大的数量

问题是，除了纸张的方向外，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;

函数TFormMain.decodicaqrcodeimagemscanneada（ImagemScanneada:TBitmap）：字符串；
变量
扫描位图：TBitmap；
结果：实验结果；
扫描经理：TScanManager；
开始
结果：=''；
尝试
ScanManager:=TScanManager.Create（TBarcodeFormat.Auto，nil）；
scanBitmap:=TBitmap.Create；
scanBitmap.Assign（ImagemScanneada）；
ResultadoLeitura:=无；
ResultadoLeitura:=ScanManager.Scan（扫描位图）；
如果（结果为零），则
开始
结果：=ResultadoLeitura.Text；
结束；
最后
结果自由基；
扫描位图。免费；
ScanManager.Free；
结束；
结束；

我想知道是否有办法获得qrcode的方向，将其用作扫描收据位置的指示器。因此，我可以旋转位图，使所有收据的方向相同