JPG ausdruck unter Delphi 2009. Problem?

LitleBigMan · Verfasst: Do 02.07.09 17:43

Ich versuche über Printer.canvas eine Jpg Datei auszudrucken. Und habe damit kein erfolg.
Entweder stelle ich mich zu doof an oder es funktioniert nicht...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure Ausgabe_JPG(X1,Y1,X2,Y2:Integer;Datei:String)
Var Bild:tpicture;
Begin
 // setbkmode(printer.Canvas.Handle,transparent);
  bild:=tpicture.Create;
  bild.Graphic:=tjpegimage.Create;
  tjpegimage(bild.Graphic).LoadFromFile(Datei);
  printer.Canvas.Draw(10,10,bild.Graphic);   ////xxx

..
end;

In Datei steht da richtige drin und bei ////xxx kommt eine zugriffverletzung un das war's dann.
Vorher wir der Druck begonnen und auf 1/10 mm umgestellt. Textausgaben, Linien zeichen,.. alles kein Problem, aber sobald Grafik dazu kommt ist Schluß.

Ich hoffe hier meinen Lichtblick zu finden.

Moderiert von Gausi: Delphi-Tags hinzugefügt

jaenicke · Verfasst: Do 02.07.09 17:46

Wie wäre es, wenn du nur TJpegImage benutzt statt da irgendwie mit TPicture rumzubasteln? ;-)

Ich meine statt das in Graphic zu speichern, kannst du das auch direkt in eine Variable schreiben.

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Bei meiner Suche nach einer Antwort auf Dein Problem bin ich auf die Seite Bitmap bzw jpg mit Rave drucken gestoßen.
Könnte Dir das weiterhelfen? (Ich weiß, mal wieder eine fremd-Verlinkung...)

jaenicke · Verfasst: Do 02.07.09 21:18

Wobei (Rave) Reports ja relativ wenig mit normalem Drucken wie oben zu sehen (Printer.Canvas) zu tun haben. ;-)

LitleBigMan · Verfasst: Fr 03.07.09 12:15

Erst einmal Danke an alle. Das Problem hat sich von selbst erledigt. Es lag an der JPG Datei. Irgendwie mag er diese Datei nicht. Jedes andere Program öffnet diese Datei, nur Delphi weigert sich. Jede andere JPG Datei funktioniert. Manchmal den Fehler nicht bei Delphi suchen oder an sich selber zweifeln, auch andere machen Fehler.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme