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.