JPEG-drucken - unterscheid von Delphi5 zu Delphi2006 .WIn32

[Mandi Nice]

Hallöchen

Bin gerade dabei ein Programm zu schreiben welches JPEG ( Photos von Digitalkameras ) drucken soll.

Unter Delphi 5 funktioniert folgender Code einwandfrei :

Delphi-Quellcode:

procedure TfrmPumpenDatenBank.Button1Click(Sender: TObject);
var ARect :TRect;
   Image1 :TImage;
begin
     with Printer do begin
         BeginDoc;

         SetMapMode (Canvas.Handle,MM_LOMETRIC);

         Image1 := TImage.Create(nil);
         Image1.Picture.LoadFromFile('IM000053.JPG');

         ARect.Left := 200;    ARect.Right := 1700;      ARect.Top := -200;    ARect.Bottom := -1200;
         Canvas.StretchDraw(ARect, Image1.Picture.Graphic);

         EndDoc;
     end;
end;

Aber unter Delphi 2006 druckt er nichts ???

Kann mir da jemand einen Tip geben.
Vielen Dank
hmg (hat mich gfreut )
Mandi

[edit=alcaeus]Delphi-Tags gesetzt. ;) Mfg, alcaeus[/edit]

[Mandi Nice]

Hallöchen

Vielen Dank.
Hat sich erledigt.

Hatte beim Delphi5 die Graphics32 mal zum Testen installiert.
( http://www.graphics32.org/wiki/pub/page/Main/HomePage )
und wie's scheint ändert das auch was beim TImage.

Habe das nun auch im Delphi 2006 installiert und siehe es geht da nun auch.

Vielen Dank an alle die sich Gedanken darüber gemacht haben.

hmg
Mandi

[DGL-luke]

Es sollte auch reichen, wenn du die Unit jpeg, die standardmäßig bei Delphi dabei ist, einbindest.
Wenn du weitere Bildformate in TPicture einlesen können willst, benutze dazu GraphicEx / GraphicEx.