QR Code Schreiben - Lesen

[himitsu]

Mal an einem Beispiel, auch wenn kein QRCode.

www.imagesinfo.com/products/barcode-reader/
ImagesInfo Barcode Reader Control (BarcodeR.ocx)
* ActiveX TypeLib importiert und BARCODERLib_TLB generiert
* laut Doku die nötigenen Aufrufe in 'ner Testanwendung zusammengeschrieben und bissl getestet (das war der größte Teil, der paartägigen Arbeit, samt Parameteroptimierungen für unsere Bildgrößen und die Scandauer)
* 'ne kleine Komponente/Funktion drumrum, geht aber auch ohne (Image rein > Liste mit Barcodes raus)

Delphi-Quellcode:

// Kapselung/Ansteuerung der Komponenten zum Suchen der Barcodes
procedure ReadBarcode(var Codes: TBarcodeList; Source: TGraphic; Filter: TBarcodeFilter = nil;
  BarTypes: TZBSymbolTypes = []; CheckDigit: Boolean = BarcodeCheckDigit; Density: Integer = BarcodeDensity);

// Kommaseparierte Liste der gefundenen Barcodes
function GetAllBarcodes(const Codes: TBarcodeList): string;

* fertig und nun nur noch ein kleiner Aufruf überall im Programm


Entweder gibt es schon eine fertige Delphi-Komponente, aber ansonsten läuft das grundsätzlich in etwa überall so ab, egal ob ActiveX oder direkt die DLL angesprochen.
Bei ActiveX übersetzt Delphi für einen die API-Aufrufe, was man bei der DLL selber machen müsste, falls es keine Delphi-PAS vom Hersteller oder Anderen gibt.