Hallo,
ich habe das gerade mal ausprobiert, da ich mir gerade ein kleines Prog. bastel bzw. es versuche
indem BMP's in JPG's gewandelt werden und da auch eine "Bildvorschau" drin aber wenn ich da z.b. einen Screenshot von meinem Desktop mache ( 1600 x 1200) und den mit der Funktion Strech in 800 x 600 anzeigen lasse kann man da nichts lesen wenn ich es aber in Photoshop auf 800 x 600 runterschraube sieht es um einiges besser aus.
Ich habe zwar was gefunden wo man bmp's in jpg's wandeln kann und auch die kompremierungsstufew und grösse des Bildes einstellen kann, raff das aber nicht ganz
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var bmp: TImage;
jpg: TJpegImage;
begin
bmp := TImage.Create(nil);
try
jpg := TJpegImage.Create;
try
bmp.picture.bitmap.LoadFromFile(filename);
jpg.Assign(bmp.picture.bitmap);
//Hier können JPG-Eigenschaften wie Kompression, Größe usw. gesetzt werden
jpg.SaveToFile(ChangeFileExt(BmpFileName, '.jpg'));
finally
jpg.Free;
end;
finally
bmp.Free;
end;
end;
aber wie mache ich das jetzt das er das vorhandene Bild auf z.B. 800 x 600 Pixel macht ?
Wäre nett wenn jemand ein Toturial geben könnte wo das ein bischen besser bzw. ausführlicher beschrieben ist als in dem oben ganannten Beispiel.
Danke schonmal
Gruss TimmA.