Forum: Multimedia
Delphi
by bitsetter,
19. Jun 2007
Das hier könntest du ansonsten auch noch versuchen.
Forum: Multimedia
Delphi
by bitsetter,
19. Jun 2007
Ich meine ich habe den Code mit meinem Drucker getestet und es ist auch was ausgedruckt worden.
Kannst du denn nicht mal ein anderes Bild nehmen und es vorher schon mal in das Image laden und dann nochmal testen?
Forum: Multimedia
Delphi
by bitsetter,
19. Jun 2007
Komisch bei mir funktioniert der Code, habe ihn getestet.
Forum: Multimedia
Delphi
by bitsetter,
19. Jun 2007
und hiermit?
procedure PrintImage(iLeft, iTop: integer; Img: TImage);
var
GraphicRect: TRect;
begin
iLeft:= iLeft* 10;
iTop:= iTop* 10;
ZeroMemory(@GraphicRect, SizeOf(GraphicRect));
GraphicRect.Right:= Img.Picture.Graphic.Width;
GraphicRect.Bottom:= Img.Picture.Graphic.Height;
Forum: Multimedia
Delphi
by bitsetter,
19. Jun 2007
Hallo,
wird das Bild denn wenigstens in das Image geladen?
Mit dem Code wird das Bild normalerweise nur sehr klein gedruckt (Verhältnis ~ 1/10) und ist meist gar nicht zu sehen.