[suche] bild verkleinern <-- einfachsten weg

[gandime]

hi,
ich suche den absolut einfachsten weg ein bild (.bmp) zu verkleinern ohne viele spielereien usw.
ich hab hab schon im forum was gefunden aber kapiere das nicht so richtig, da ich ka von grafik usw habe.

mfg gandime

[BenjaminH]

Nur zur Ausgabe, oder soll das Bild auch gespeichert werden?

[gandime]

also dasbild soll ausgelesen werden
und dann wieder als bmp gespeichert werden

[Hador]

Guck dir mal

Delphi-Quellcode:

Canvas.StretchDraw

an.

Das sollte dir weiterhelfen.

[gandime]

ja wie gesagt ich hab ka davon

Delphi-Quellcode:

procedure StretchDraw(var Rect: TRect; Graphic: TGraphic);

Rect: TRect;
Graphic: TGraphic;

was muss ich dann z.b. für die beiden sachen eigeben damit ich der bild auf 500 X 500 picel bekommen

edit:
also soweit bin ich schonmal

Delphi-Quellcode:

  bitmap:=TBitmap.Create;
  bitmap.LoadFromFile('C:\bild.bmp');
  bitmap.canvas.StretchDraw({joa was soll da jetzt tolles reun});
  bitmap.SaveToFile('C:\bild2.bmp');

[3_of_8]

In Rect gibst du die Koordinaten an. Graphic ist die zu zeichnende Grafik.

Also wenn du ein Bitmap laden und als 500x500 zeichnen willst, geht das so:

Delphi-Quellcode:

var bmp: TBitmap;
begin
bmp:=TBitmap.Create;
bmp.loadfromfile('blubb.bmp');
image1.canvas.stretchdraw(Rectangle(0,0,499,499), bmp);
bmp.free;
end;

[gandime]

joa das sieht gut aus aber rectangel will noch einen weiteren parameter

DC:HDC

[3_of_8]

Stimmt, es heißt nicht Rectangle, sondern Rect.

[gandime]

ich glaube da muss noch "Bitmap.Canvas.Handle" rein aber dann sagt der

also in deinem fall "bmp.Canvas.Handle"

[Pascal Error] Unit1.pas(70): E2010 Incompatible types: 'TRect' and 'LongBool'

[Hador]

So ich habe dir mal ein kleines Beispiel dazu geschrieben:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  Types, Graphics;

var
  bmp, tmpbmp: TBitmap;

begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('...');

  tmpbmp := TBitmap.Create;
  tmpbmp.Width := 500;
  tmpbmp.Height := 500;
  tmpbmp.Canvas.StretchDraw(Rect(0, 0, 500, 500), bmp);
  bmp.Assign(tmpbmp);
  tmpbmp.Free;

  bmp.SaveToFile('...');
  bmp.Free;
end.

[3_of_8]

Zitat:

Zitat von gandime

ich glaube da muss noch "Bitmap.Canvas.Handle" rein aber dann sagt der

also in deinem fall "bmp.Canvas.Handle"

[Pascal Error] Unit1.pas(70): E2010 Incompatible types: 'TRect' and 'LongBool'

Nein, muss es nicht. Noch mal: Rect ist die Funktion, nicht Rectangle.

[gandime]

joa thx das geht jetzt bloss...

naja iwie erkennt man jetzt kaum noch etwas auf dem bild...

also brauche ich eine methode die das besser skalliert

[3_of_8]

Tja - Das ist ein Problem.

Wie groß ist denn der Skalierungsfaktor?

[gandime]

von 1280 X 800 nach 800 X 600
und da erkennt man absolut nichts mehr...

[Hador]

Dann wirst du wohl um die graphics32-Komponenten nicht herumkommen.