ACamera - winsoft

[arnof]

in ScanBitmap is the live Picture:

Delphi-Quellcode:

procedure TFM_Scann.ACameraDataReady(Sender: TObject; var ReleaseData: Boolean);
begin


 if (Processing = 0) and (barcodescanning=0) then
  begin
    Inc(Processing);
    try
     ACamera.DataToRgba(@RgbaData[0], ACamera.PreviewRotation, ACamera.PreviewHorizMirror);
     ....


    if (ACamera.PreviewRotation = ro0) or (ACamera.PreviewRotation = ro180) then
     ACamera.UpdateBitmap(ScanBitmap, @RgbaData[0], RgbaDataWidth, RgbaDataHeight)
    else
     ACamera.UpdateBitmap(ScanBitmap, @RgbaData[0], RgbaDataHeight, RgbaDataWidth);

     ....

   finally
    Dec(Processing);
   end;


end;