JPEG drucken

arnedrews

Vermutlich ist dies ein Thread wie viele andere. Aber ich habe gesucht und doch nichts gefunden, was bei mir funktioniert.

Ich möchte ein JPG-Bild über die TPrinter-Komponente ausgeben.
Ähnliche Fragen wurden zwar schon des öfteren gefragt, aber
so ganz bekomme ich das nicht umgesetzt.

Ich habe mal aus einigen Beiträgen folgendes zusammengebastelt:

TJPEGImage *JPG = new TJPEGImage();
TImage *BILD;

JPG->LoadFromFile("bild.jpg");
BILD->Picture->Graphic->Assign(JPG);

Printer()->PrinterIndex = -1;

Printer()->BeginDoc();
Printer()->Canvas->Draw(500,500,BILD->Picture->Graphic);
Printer()->EndDoc();

Wahrscheinlich macht das vorne und hinten keinen Sinn, aber wie
gesagt, aus mehreren Beiträgen habe ich das zusammengewürfelt.

Beim Ausführen bekomme ich nun eine Zugriffsverletzung!
Wo liegen meine Fehler?

Danke an Euch
Gruß Arne

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TJPEGImage *JPG = new TJPEGImage();
JPG->LoadFromFile("bild.jpg");
TRect Rec;
Rec = Rect(0,0,1600, 1200);
Printer()->BeginDoc();
Printer()->Canvas->StretchDraw(Rec,JPG);
Printer()->EndDoc();
delete JPG;
}

arnedrews

Ich bin begeistert!

Vielen Dank! Funktioniert astrein!