From c53b3b0b8bbdc2e1704858ce02c555e574cefb0b Mon Sep 17 00:00:00 2001 From: r-zakarya <82443831+r-zakarya@users.noreply.github.com> Date: Thu, 17 Sep 2026 19:01:25 +0100 Subject: [PATCH] chore(apk): retire le diagnostic temporaire du scan QR Co-Authored-By: Claude Opus 5 --- mainApk.pas | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) diff --git a/mainApk.pas b/mainApk.pas index 2ff66e1..1d139be 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -3384,15 +3384,11 @@ begin var LMgr: TScanManager; LRes: TReadResult; - LText, LDiag: string; + LText: string; LHints: TDictionary; - LW, LH: Integer; begin LText := ''; - LDiag := ''; LRes := nil; - LW := LBmp.Width; - LH := LBmp.Height; // TRY_HARDER : le chercheur de motifs balaie chaque ligne au lieu // d'en sauter - indispensable pour un QR photographie sur un ecran. LHints := TDictionary.Create; @@ -3403,11 +3399,7 @@ begin LRes := LMgr.Scan(LBmp); if LRes <> nil then LText := LRes.Text; except - on E: Exception do - begin - LText := ''; - LDiag := E.ClassName + ': ' + E.Message; - end; + LText := ''; end; finally LRes.Free; @@ -3418,11 +3410,6 @@ begin procedure begin FScanBusy := False; - // DIAG scan (temporaire) : les premiers essais, puis un sur vingt. - if (FScanFrame <= 40) or (FScanFrame mod 80 = 0) then - Log(Format('QR scan frame %d: %dx%d, %s', [FScanFrame, LW, LH, - IfThen(LDiag <> '', LDiag, - IfThen(LText = '', 'nothing found', 'read ' + IntToStr(Length(LText)) + ' chars'))])); if (not FScanning) or (LText = '') then Exit; // CHERCHE, NE COMPARE PAS LE DEBUT : le texte decode est arrive // avec un caractere invisible en tete (104 lus pour 103 emis),