Bitmap an den Drucker senden

[Moony]

Hallo zusammen!

Ich habe lediglich ein Druckerhandle und möchte an diesen Drucker eine Bitmap schicken. wie mache ich das am besten?

Danke & Gruß, Moony

[Luckie]

Zeichne auf den Canvas des Druckers. Siehe dazu BeginDoc und EndDoc.

[Moony]

Das ist schon alles klar. Mein Problem ist, dass über ein anderes Modul der BeginDoc aufgerufen wird. Somit gibt es ein Druckerhandle von meiner Application muß ich dann ann dieses Druckerhandle & dieses Dokument Daten an den Drucker schicken (in meinem Fall eine Bitmap). Anschließend wird über das Modul das EndDoc aufgerufen und somit der Auftrag abgeschlossen.

Ich habe also lediglich das Druckerhandle und an dieses muss ich meine Bitmap schicken.

Normalerweise mache ich das über Canvas.StretchDraw(), aber ich habe nur das Handle und mit diesem muß ich weiterarbeiten.

[Luckie]

Zitat von Moony:

Das ist schon alles klar.

Und warum sagst du da snicht gleich?

Zitat:

Mein Problem ist, dass über ein anderes Modul der BeginDoc aufgerufen wird. Somit gibt es ein Druckerhandle von meiner Application muß ich dann ann dieses Druckerhandle & dieses Dokument Daten an den Drucker schicken (in meinem Fall eine Bitmap). Anschließend wird über das Modul das EndDoc aufgerufen und somit der Auftrag abgeschlossen.

Warum hast du das nicht gleich in deinem ersten Beitrag geschrieben?

Zitat:

Normalerweise mache ich das über Canvas.StretchDraw(), aber ich habe nur das Handle und mit diesem muß ich weiterarbeiten.

Dann hol dir doch mit dem Handle mittel GetDC den DC für den Drucker.

[Moony]

Aber danach habe ich doch wieder ein Handle und ich brauche doch das Canvas von meinem Handle oder sehe ich das falsch?

Oder soll ich mir danach ein TCanvas erzeugen und diesem mein Handle zuweisen?

[Moony]

Ich habe das jetzt folgendermaßen gemacht, aber irgendwie will er nicht wirklich:

Delphi-Quellcode:

  myCanvas  := TCanvas.Create;
  myGraphic := TBitmap.Create;
  myGraphic.LoadFromFile(ExtractFilePath(Application.ExeName) +  '!NewCard.bmp');
  myCanvas.Handle := PrntHandle; // PrntHandle ist das Druckerhandle was ich habe.
  X := GetDeviceCaps(PrntHandle,PHYSICALOFFSETX);
  Y := GetDeviceCaps(PrntHandle,PHYSICALOFFSETY);
  rc := Rect(0 - X, 0 - Y, 1027, 648);

  myCanvas.StretchDraw(rc, myGraphic);

[Larsi]

Wie hasten das geschaft dass dein zweiter post lehr ist? geht das? fehler bei meinem firefox?

[Moony]

Wie meinst du das denn? mein Post ist gar nicht leer...da steht mein quellcode drin.

[bluesbear]

Zitat von Moony:

Wie meinst du das denn? mein Post ist gar nicht leer...da steht mein quellcode drin.

Also bei mir ist #3 auch leer (Opera), jfyi

[Moony]

Stimmt, jetzt müßte das sichtbar ssein. wahrsheinlich war das ein Anzeigefehler.

Kannst du mir denn bei meinem Problem weiterhelfen????