[ERLEDIGT]QR Code in Text umwandeln?

[Soner]

Kennt jemand fertige Funktion oder Bibliothek, mit dem man ein Bild mit QR Code wieder in Text umwandeln kann?

[sstvmaster]

Eventuell das hier: https://github.com/LongDirtyAnimAlf/ZXing.Delphi

und da speziell das: https://github.com/LongDirtyAnimAlf/ZXi ... .0/Lazarus

Oder das: http://lacak.users.sourceforge.net/freepascal.html -> "quirc - QR decoder library", als Download in Pascal

[Soner]

Vielen Dank. Ich gucke mir sie an.

Edit: Lacak's quirc ist gut.

[theo]

Edit: Lacak's quirc ist gut.

Funzt. Benötigt aber auf Linux eine kleine Anpassung bei der Demo:

Code: Alles auswählen

uses ... IntfGraphics;

  procedure BitmapToQuircImage(dst: pbyte);
    var
      y, x: integer;
      c4: DWord;
      src: pbyte;
      SrcIntfImg: TLazIntfImage;
      BytePerPixel: Byte;
    begin
      SrcIntfImg := TLazIntfImage.Create(0, 0);
      try
        SrcIntfImg.LoadFromBitmap(Image1.Picture.Bitmap.Handle,
          Image1.Picture.Bitmap.MaskHandle);
        BytePerPixel := SrcIntfImg.DataDescription.BitsPerPixel div 8;
        for y := 0 to SrcIntfImg.Height - 1 do
        begin
          src := SrcIntfImg.GetDataLineStart(y);
          for x := 0 to SrcIntfImg.Width - 1 do
          begin
            c4 := PDWord(src)^ and $FFFFFF;
            // 77(R) + 151(G) + 28(B) = 256
            dst^ := ((c4 shr 16) * 77 + ((c4 shr 8) and $FF) * 151 + (c4 and $FF) * 28) shr 8;
            Inc(src, BytePerPixel);
            Inc(dst);
          end;
        end;
      finally
        SrcIntfImg.Free;
      end;
    end;