Bild mit Text drucken

[netscanner]

Hallo Leute,
nach einer längeren Delphi Pause habe ich mich entschlossen mich wieder ein bisschen dieser Programmiersprache zu widmen und bei meinem ersten Programm bin ich auch gleich auf Probleme gestoßen.
Ich will ein Bild auswählen und einen Text sin ein Edit Feld schreiben. Das war kein Problem :)
Nun soll das Bild und der Text auf einem DIN a4 Blatt erscheinen (Immer an der gleichen Stelle). Dann soll das Bild gedruckt werden - das ist mein Problem.

1.) Wie kann ich ein virtuelles A4 Blatt erstellen (Man muss es nicht sehen)?
2.) Wie drucke ich dieses Blatt dann aus?



Danke im Vorraus für eine Antworten

Martin (netscanner)

[FAlter]

Hi,

Delphi-Quellcode:

uses
  Printers;

...
  Printer.BeginDoc;
  with Printer.Canvas do
  begin
    //TODO: Zeichenoperationen
  end;
  Printer.EndDoc;

[Corpsman]

Also ich nehm immer ein Bitmap

210x297 Pixel Groß ( weil sich das so schön umrechnen Läst ) und male in den Vorschau bereich entsprechend rein.

Wenn du das nachher druckst must du immer mit Printer.pagewidth und Printer.pageheight das ganze von Pixel in cm umrechnen.
Ist aber einfacher 3 satz das kriegt jeder hin ;).

Den Text dann via Canvas.Textout drauf und Fertig.

[netscanner]

okey aber wie bekomme ich jetzt das Bitmap erstellt :oops:

[Corpsman]

Wie LLang war denn deine Pause ?

Delphi-Quellcode:

var b:Tbitmap;
begin
b:=Tbitmap.create;
b.width := 210;
b.height:= 297;
..

b.free;

[netscanner]

Eigentlich nur ein Jahr...

Das Problem ist, dass ich mich dann auf eine andere Programmiersprache spezialisiert habe und jetzt die beiden Sprachen durcheinander bringe...

[FAlter]

Hi,

besser in 'nem try-finally-Block:

Delphi-Quellcode:

BMP := TBitmap.Create;
try
  ...
finally
  BMP.Free;
end;

Aber wenn du es wrst in eine BMP schreibst und dann druckst solltest du aufpassen, da es bei manchen Druckern Probleme geben kann wenn du StretchDraw verwendest. Dazu gibt es aber irgendwo schon 'nen Thread mit Lösung.

Mfg
FAlter

[Corpsman]

NEIN

um himmelswillen Druck das BMP blos net.

das BMP ist nur die Vorschau.

Wenn du dann hergehst und das Teil Druckst must du alles auf das Canvas von Printer Umrechnen.

Wenn du das BMP mit Stretchdraw zeichnen würdest sähe das nachher total Sch.. aus.

[netscanner]

also so langsam glaub ich ich geb delphi auf :cry:
ich bekomms nichtmal mehr hin ein bild auf das tbitmap zu laden...


hier ein misratener codefetzen:

Delphi-Quellcode:

var b:Tbitmap;
c:tgraphic;
begin
b:=Tbitmap.create;
b.width := 210;
b.height:= 297;
c:=tgraphic.Create;
c.LoadFromFile('hallo.bmp');
b.canvas.Draw(0,0,c);
end;

Kann mir da jemand einen Tipp geben was falsch ist?

[Corpsman]

C mus auch tbitmap sein !!