Barcode aus Bild auslesen

[himitsu]

Wo kommt denn der Fehler?

Hier in XE läuft es zuindestens endlich mal.

Delphi-Quellcode:

uses PngImage, JPeg;

P := TPicture.Create;
try
  P.LoadFromFile(S);
  ReadBarcode(Memo1.Lines, P.Graphic);
finally
  P.Free;
end;

Das TPicture kann auch ein TImage.Picture sein oder statt dem P.Graphic direkt TBitmap, TJPEGImage, TPNGImage oder andere TGraphic-Nachfahren.


[add]
Du hast hoffentlich nicht direkt ein TStrings verwendet? (TStringList)