Bilder drucken mit GR32lib

[alienous]

hi,

hab ein kleines problem, beim druck im LOMETRIC modus (wahrscheinlich bei allen modi) erscheint mir das gedruckte bild verfälscht! dabei öffne ich das bild mit der Image32 kompo, und übergebe das handle dem drucker, also ich verändere am bild nichts, und trotzdem erscheint es mir "heller" und evntl mit einem rotstich im vergleich zum ausdruck des selben bildes mit photoshop etc.

woran kann das liegen? habt ihr ähnliche erfahrungen gemacht? wieso sehen die bilder, die mit anderen komerziellen programmen gedruckt werden, viel besser aus? behandeln die die bilder noch mit irgendwelchen routinen oder hat es was mit den farbschemen zutun?

komme da echt nich weiter, need help!

danke

[SirThornberry]

wie übergibst du denn dem Drucker das Handle?

[alienous]

ach sorry, hab mich da wohl verschrieben, das is meine methode

Delphi-Quellcode:

procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra : Tbitmap32;
begin
        gra := Tbitmap32.Create;
        gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);
        gra.Rotate270();
        gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
        gra.Free;
end;

und der aufruf:

Delphi-Quellcode:

  with Printer do
  begin
    BeginDoc;
    SetMapMode(Canvas.Handle, MM_LOMETRIC);
    BildDrucken(Canvas, 0, 0, motivbreite, motivhoehe, TestMotiv); 
    EndDoc;
  end;

so, hoffentlich isses zu verstehen

[SirThornberry]

Hast du es schonmal mit einem normalen TBitmap versucht? Im übrigen scheint es als würde dein Bild durch dein Drehen gespiegelt ausgegeben werden denn durch dein drehen wird links und rechts auch mit vertauscht.

[alienous]

meinste das liegt am spiegeln? weiss gerade nicht wo du das siehst, wie würdest du es machen?

und da das programm später dazu genutzt wird, um fotos zu drucken, kann ich nicht die normalen imagekomponenten nutzen, da die allein schon von der qualität schlechter sind. eventuell sollen noch so gimmiks wie bildrand rein, dazu braucht man ja transparenz. hab mich vorher informiert hier im board durch suchen, und denke, das für mich somit ja nur gr32 in frage kommt. aber so wie es aussieht, nutzen die kompo doch ziehmlich viele, ist es denen etwa nich aufgefallen? schon seltsam die problematik.

[alienous]

habe jetz noch etwas mit

gra.ResamplerClassName := 'TLinearResampler'; experimentiert, und dabei die ausgabe in ein TImage32 auf der form geleitet, dabei werden die farben ziehmlich stark verfälscht, mit und ohne den resampler! wieso? liegt es eventuell am drawto?
wenn ich das bild direkt mit der kompo öffne, wird das bild korrekt angezeigt.

Delphi-Quellcode:

procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra : Tbitmap32;
begin
        gra := Tbitmap32.Create;
        gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);
        gra.ResamplerClassName := 'TLinearResampler';
        //gra.Rotate270();
        gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
        gra.Free;
end;

[DGL-luke]

Ich würd n TKernelResampler mit Lanczos hernehmen.

also Classname auf TKernelResampler und irgendwo kannst du dann diesen Kernel einstellen... "ResamplerKernel" oder "Kernelmode" im TBitmap32 muss das sein...

[alienous]

soo, habs jetz so ungefähr, liegt der fehler aber wirklich am fehlenden resampler? schaut euch mal das bild im anhang aus, wie das kindergesicht angezeigt wird nach dem code hier:

Delphi-Quellcode:

procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra,gra2 : Tbitmap32;
    KRS: TKernelResampler;
begin
        gra := Tbitmap32.Create;
        gra2 := Tbitmap32.Create;
        gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);

        //KRS := TKernelResampler.Create(gra);
        //KRS.Kernel := TLanczosKernel.Create;
      
        gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
        gra.Free;
        gra2.Free;
end;

kann es auch sein, das tbitmap32 das bild beim drawto oder beim rotieren eventuell etwas aufhellt?

danke

[DGL-luke]

also sowas sollte eigentlich nicht passieren... und aufgehellt wird normalerweise auch nichts... ich bin mit meinem latein am ende. das sieht ja schon nach veritablen falschfarben aus...

[SirThornberry]

was spricht dagegen das bild mit bitblt oder stretchblt auf die Druckercanvas zu bringen?