Kann es sein das es daran liegt dass das TBitmap nicht erzeugt ist ?
Delphi-Quellcode:
procedure ZeichneBarcode;
var
myBmp :TBitMap;
myZintBarcode :TZintBarcode;
begin
myZintBarcode := TZintBarcode.Create;
myBmp := TBitmap.Create;
myZintBarcode.Clear;
myZintBarcode.Data := '00340311640213278478';
myZintBarcode.BarcodeType := tBARCODE_CODE128;
myZintBarcode.Option3 := 100;
myZintBarcode.Scale := 1;
myZintBarcode.GetBarcode(myBmp);
Form1.Canvas.Draw(0,0,myBmp);
myBmp.Free;
myZintBarcode.Free;
end;
Rollo