QR-Code scannen

[Amanda]

constructor TfQRScanThread.create;
begin
inherited create(false);

starten := TEvent.create(nil, false, false, '');
fertig := TEvent.create(nil, true, true, '');
qrcode := TEvent.create(nil, true, false, '');

iBMP := TBitmap.Create;

iScanmanager := TScanManager.Create(TBarcodeFormat.QR_CODE, nil);

FreeOnTerminate := true;
end;

procedure TfQRScanThread.Execute ;
var
ReadResult : TReadResult;
str : string;
begin
while not Terminated do begin

if (starten.WaitFor(INFINITE) = wrSignaled) and assigned(iBMP) then begin
try
ReadResult := iScanManager.Scan(iBmp);
if assigned(readResult)then begin
qrcode.SetEvent;

str := readResult.Text;
freeAndNil(ReadResult);

queue(
procedure
begin
fQRCode.CameraComponent1.OnSampleBufferReady := nil;
fQRCode.CameraComponent1.Active := false;
fQRCode.imgCamera.Visible := false;
fQRCode.aScan.Checked := false;

pruefeQRCode(str);
//fQRCode.bild(iBMP, TAlphaColors.Green);
end);

end; // if

except
end; // try
end; // if

fertig.SetEvent;
end; // while

end;

[DaCoda]

Vielen Dank für Eure Vorschläge

Ich habe nun rausgefunden, das wenn ich weissen Hintergrund habe und schwarzen QR-Code, dann geht es. Wenn aber schwarzer Hintergrund und weissen QR-Code, dann nicht (warum weiss ich nun nicht)

[TurboMagic]

Was machen andere QRCode apps aus dem Fall weißer QR Code auf schwarzem Grund?
Können die das?

[DaCoda]

@TurboMagic: Ja wenn ich das nur mit der Kamera scanne dann geht das, auch andere Farbkombinationen.