GR32 Resampler

[gandime]

hi,
ich möchte via GR32 ein bild verkleinern und habe gerade erst angefangen mir GR32 und da is schon mein erstes prob
bei diesem code wird es beim verkleinern schwarz hab auch schon nen bissel rumgeguckt und hab gelesen das es am "Resampler" liegt blos ich weiss nicht was ich da einstellen muss und welche funktionen das teil hat

Delphi-Quellcode:

procedure Stretch(OldFile: string; ResX,ResY: Integer);
var bmp: TBitmap32;
begin
  bmp := TBitmap32.Create;
  with bmp do
   begin
    LoadFromFile(OldFile);
    Resampler:=  // joa da muss wohl iwas hin^^
    Draw(rect(0,0,width-1,height-1),rect(0,0,Resx-1,resy-1),bmp);
    Width := ResX;
    height := ResY;
    SaveToFile(OldFile);
  end;
end;

mfg gandime

[Khabarakh]

Einfach mal in der Hilfe nach Resampler suchen ;) .
Allerdings sollte standardmäßig schon ein Resampler eingestellt sein, das Problem liegt also an einer anderen Stelle: beim Ändern der Größe wird der Bitmapinhalt gelöscht. Erstelle also ein zweites Bitmap, nachdem du die Datei geladen hast, stelle in diesem die gewünschte Größe ein, kopiere das erste hinein und speichere es.

[gandime]

nö immer noch schwarz

Delphi-Quellcode:

var b,bb: TBitmap32;
begin
  bb := TBitmap32.Create;
  b:=TBitmap32.Create;
  bb.LoadFromFile(OldFile);
  b.Draw(rect(0,0,bb.width-1,bb.height-1),rect(0,0,Resx-1,resy-1),bb);
  b.Width := ResX;
  b.height := ResY;
  b.SaveToFile('C:\ka.jpg');

und bei der hilfe vom resampler steige ich ned durch

[Khabarakh]

Und jetzt lies dir bitte nochmal meinen Post ganz genau durch, besonders die Reihenfolge der Schritte...

[gandime]

entweder du meinst es so

Delphi-Quellcode:

var b,bb: TBitmap32;
begin
  bb := TBitmap32.Create;
  b:=TBitmap32.Create;
  bb.LoadFromFile(OldFile);
  b.Assign(bb);
  b.Draw(rect(0,0,b.width-1,b.height-1),rect(0,0,Resx-1,resy-1),b);
  b.Width := ResX;
  b.height := ResY;
  b.SaveToFile('C:\ka.jpg');
end;

oder ich weiss nicht was du meinst

[alienous]

Delphi-Quellcode:

  b.Draw(rect(0,0,bb.width-1,bb.height-1),rect(0,0,Resx-1,resy-1),bb);
  b.Width := ResX;
  b.height := ResY;

nein, du musst nur Khabarakhs post genau lesen, du zeichnest in deinem code erst das bild auf B, und dann weisste HINTERHER die größe zu mit width und height, das is die falsche reihenfolge! denn hier in zeile 2 wird dein bild das du in zeile 1 gezeichnet hast, wieder GELÖSCHT! ;)

[gandime]

naja is auch egal ich habs jetzt anders gelöst
aber trotzdem thx

[xJulian]

Ich bin mal so frei, den Thread zu klauen, mit den neuen Resamplern komme ich nämlich auch noch nicht klar. :(

Mein Code (kopiert und angepasst aus dem Resampler-Beispiel):

Delphi-Quellcode:

Destination.SetSize(400, 300);
sw := Cropped.Width / Destination.Width;
sh := Cropped.Height / Destination.Height;
TKernelResampler.Create(Cropped);
TKernelResampler(Cropped.Resampler).Kernel := TMitchellKernel.Create;
Cropped.Resampler.PrepareSampling;
for j := 0 to Destination.Height - 1 do
  for i := 0 to Destination.Width - 1 do
    begin
      Destination.Pixel[i,j] := Cropped.Resampler.GetSampleFloat(i * sw - 0.5, j * sh - 0.5);
    end;
Cropped.Resampler.FinalizeSampling;

Cropped und Destination sind jeweils TBitmap32, wobei Cropped ein Bild enthält. Nachdem dieser Code durchgelaufen ist, enthält Destination wie geplant ein verkleinertes Bild, allerdings einfach auf Pixelbasis verkleinert, also ohne Resampling. Und das obwohl ein Resampler angegeben wurde. Es gibt übrigens keine Fehlermeldungen o.Ä.

Leider ist das Beispiel, das da mitgeliefert wird, meiner Meinung nach etwas unklar. Jedenfalls ist der Aufbau etwas komplizierter als die Handhabung des (nun veralteten) StretchFilter... Hat jemand schon Erfahrungen mit Resamplern gesammelt?

Nebenbei: Hallo allerseits! :)

Nachtrag: Tjo, nach noch ein bisschen Suche (dabei hatte ich mir doch vorgenommen, nicht gleich mit dem ersten Beitrag negativ aufzufallen... :roll: ) und mit Hilfe von hier konnte ich das Problem lösen. Es geht ja doch einfacher als gedacht; konsequenterweise ist das Resampling-Beispiel noch um einiges schlechter als gedacht. ;) Hier der funktionierende Code:

Delphi-Quellcode:

Destination.SetSize(400, 300);
cropRect := Rect(0, 0, Cropped.Width, Cropped.Height);
destRect := Rect(0, 0, Destination.Width, Destination.Height);
Resampler := TKernelResampler.Create(Cropped);
Resampler.Kernel := TMitchellKernel.Create;
Resampler.Resample(Destination, destRect, destRect, Cropped, cropRect, dmOpaque, nil);

[DGL-luke]

Hmm... also ich kann das so machen:

Delphi-Quellcode:

res := TKernelResampler.Create(bild);
res.Kernel := TLanczoskernel.Create;

bild.draw(rect(0,0,bild.width,bild.height),bild2,rect(0,0, bild2.width, bild2.height));

nur mal rein sinngemäß, ich verkleinere/vergrößere hier bild2 auf bild. ich hoffe, die parameter für draw stimmen so ungefähr...

[Andru]

Würde das Thema gern nochmals aufgreifen.


Wenn ich nun mein Bild verkleinert habe, kann ich dann auch noch die Qualität einstellen?
Also bei JPGs? So werden mein Pics bei 400x300 um die 600KB groß.


Hoffe, Ihr könnt mir helfen!

Gruß Andru