Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - JPG ausdruck unter Delphi 2009. Problem?


LitleBigMan - Do 02.07.09 17:43
Titel: JPG ausdruck unter Delphi 2009. Problem?
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...


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 user profile iconGausi: Delphi-Tags hinzugefügt


jaenicke - 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 - Do 02.07.09 20:48

Bei meiner Suche nach einer Antwort auf Dein Problem bin ich auf die Seite Bitmap bzw jpg mit Rave drucken [http://www.delphipraxis.net/topic18716_bitmap+bzw+jpg+mit+rave+drucken.html&highlight=customconnection] gestoßen.
Könnte Dir das weiterhelfen? (Ich weiß, mal wieder eine fremd-Verlinkung...)


jaenicke - 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 - 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.