Image drucken

[MCXSC]

Hallo!

Wie kann ich ein JPEG-Bild, dass in einer TImage-Komponente gespeichert ist, mit BESTIMMTEN Pixel drucken?

Ich habe zwar einen einfachen Code, aber der druckt das Bild nur in Originalgröße, eine BESTMMTE Pixelgröße für Höhe und Breite festzulegen st nicht möglich.

Kann jemand helfen?

MCXSC

[Luckie]

Kopier den Canvas mit StrechtBlt auf den Canvas des Druckers.

[MCXSC]

StrechtBlt??? :-(

Hast du vielleicht einen Beispielcode? :-(

[Khabarakh]

StretchBlt - MSDN

Falls es unklar ist: Als HDC musst du jeweils ?.Canvas.Handle übergeben.
Beispiel:

Delphi-Quellcode:

StretchBlt(Image2.Canvas.Handle,0,0,100,100,Image1.Canvas.Handle,0,0,200,200,SRCCOPY);

[master_chief2]

Ich hab hier mal einen Code, um einen Imageinhalt genau auf die Hälfte eines Blattes zu drucken. Die Verhältnisse zwischen den einzelnen Seiten stimmen auch genau mit dem des Originals überein! (Ausgabe ist in diesem speziellen Fall das Image!) :coder2:

Delphi-Quellcode:

procedure drucken;
var a: Trect;
    h,b:integer;
    v:real;
begin
 h:=Ausgabe.Height;
 b:=Ausgabe.Width;
 v:=h /b;

 Printer.BeginDoc;                                                   //Druckauftrag starten
  With Printer.Canvas do 
   begin
    a:=Bounds(0, 0, Printer.PageWidth, trunc(Printer.PageWidth*v));  //generiert ein Rechteck mit einem punkt links oben und einem rechts unten
    StretchDraw(a, Ausgabe.Picture.Bitmap);                          //zieht den Imageinhalt auf, sodass er in das Rechteck (a) passt  
   end;
 Printer.EndDoc;                                                     //Druckauftrag beenden
end;

[torud]

Leider warf mir Dein Code auch nur ein Leeres Blatt am Printer aus...