Bildgröße anpassen

[markus lemcke]

Hallo,

ich bekomme vom kunden immer wieder bilder in jpg-format. einige bilder sind viel zu groß und ich muss sie kleiner machen. ich habe da ein programm mit dem ich sagen kann höhe um 50% reduzieren und breite um 50% reduzieren. Nachteil von diesem programm ist, ich muss jedes bild öffnen, anpassen, speichern!

hierfür hätte ich gerne ein programm!
gibt es da was fertiges oder muss man was programmieren?

Wenn programmieren, wie setze ich die reduzierung von prozentangaben um. muss image1.picture.width reduziert werden oder?

Gruß

Markus

[Frank Kneffel]

Irvanview kann Batch konvertierungen durchführen. Schau mal unter http://www.irfanview.de

[Robert Marquardt]

Hier eine Funktion die das beste macht was das Windows API hinkriegt.
Das ist allerdings nicht sonderlich toll.
Der Hinweis auf Irfanview sollte befolgt werden. Bildverarbeitungsprogramme haben erheblich ausgefeiltere Algorithmen zur Verfuegung.
GDI+ koennte verwendet werden, aber das ist ein C++ API.

procedure BitmapReduce(Source: TBitmap);
var
Dest: TBitmap;
begin
Dest := TBitmap.Create;
Dest.Width := Source.Width div 2;
Dest.Height := Source.Height div 2;
SetStretchBltMode(Source.Canvas.Handle, HALFTONE);
SetStretchBltMode(Dest.Canvas.Handle, HALFTONE);
StretchBlt(Dest.Canvas.Handle, 0, 0, Dest.Width, Dest.Height,
Source.Canvas.Handle, 0, 0, Source.Width, Source.Height, SRCCOPY);
Source.Assign(Dest);
Dest.Free;
end

[markus lemcke]

danke frank und robert