Hallo,
Musste mich nun mal registrieren,
hab bisher immer alles gefunden,
was ich brauchte. Nur eine Sache
macht mir nun Kopfzerbrechen.
Bin gerade dabei, ein Bilder-
Skaliertool zu schreiben, welches
mehrere Bilder in einer Schleife
verarbeitet. Habe alles soweit
lauffähig, jedoch bei zb. 100
Bilder von einer Digitalkamera,
á ~ 4,50 MB (2336x3504x24) "steht"
das Programm, mit Anzeigefehlern,
funktioniert aber soweit.
Diese Anzeigefehler, und das
"stehen" des Programms, würde ich
gerne wenigstens ein bissl eingrenzen.
Hatte versucht jedes Bild auch per
Caption zb: "bearbeite... (img1222.jpg)"
aber die Caption wird nicht upgedated,
während der Laufzeit. Auch eine
Progressbar habe ich eingebunden,
beides "steht".
zum Quelltext:
da habe ich ein Script aus einem anderen
Thread benutzt, und dieses in der Schleife:
Delphi-Quellcode:
procedure BildgroesseAendernJPGExt(Quelle,Ziel:TFileName; MaxBreite,MaxHoehe:integer);
var bmp:TBitmap;
jpeg:TJpegImage;
breite,hohe:integer;
begin
Jpeg:=TJpegImage.Create;
jpeg.LoadFromFile(Quelle);
//Seitenverhältnisgrößen berechnen
if jpeg.Width/MaxBreite < 1 then MaxBreite := jpeg.Width;
if jpeg.Height/MaxHoehe < 1 then MaxHoehe := jpeg.Height;
if jpeg.Width/MaxBreite > jpeg.Height/MaxHoehe then
begin
breite := round( jpeg.Width / (jpeg.Width/MaxBreite));
hohe := round( jpeg.Height / (jpeg.Width/MaxBreite));
end else
begin
breite := round( jpeg.Width / (jpeg.Height/MaxHoehe));
hohe := round( jpeg.Height / (jpeg.Height/MaxHoehe));
end;
//WANDLUNG
try
jpeg.LoadFromFile(Quelle);
bmp:=TBitmap.Create;
try
bmp.width:=breite;
bmp.height:=hohe;
bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
jpeg.assign(bmp);
finally
bmp.free;
end;
jpeg.SavetoFile(Ziel);
finally
jpeg.free;
end;
end;
with ListView1 do
begin
for ii := -1 + Items.Count downto 0 do
begin
dateiname:='';
dateiname := ExtractFileName(ListView1.Items[ii].Caption);
Label3.Caption:='Status: bearbeite Bilder...('+dateiname+')';
BildgroesseAendernJPGExt(ListView1.Items[ii].Caption,'c:\test\'+lowercase(dateiname),800,800);
end;
end;
Bin auf Delphi gekommen, dadurch
weil ich erst einen Upload-Skalierer
gecoded hatte mit PHP, jedoch das
auch an seine Grenzen gestossen ist.
Interessanter Link Speicherverbrauch
Fürchte wird so ziemlich dasselbe sein,
wie beim Link beschrieben, der Speicherverbrauch.
Gäbe es da vllt eine ressourcen-schonendere Möglichkeit,
hab ich da prinzipiell was falsch gemacht ?
(Denke da an die Photoshop Batch, die es ja auch schafft)
Vielen Dank im Voraus,
Gruss Nil