Also ich finde das auch nicht unbedingt langsam. Aber ja es gibt durchaus noch verschiedene Möglichkeiten das zu beschleunigen. Das hat dann aber immer einen Qualitätsverlust zur Folge.
Du kannst das dann auch nicht mehr direkt in das TImage laden. Du müsstest dann ein Temporäres JPEG erstellen, einstellungen vornehmen, Bild laden und anschließend auf das Image zuweisen. In etwa so.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| uses
..., Jpeg;
implementation
procedure TForm1.Button1Click(Sender: TObject);
var
Tmp: TJPEGImage;
begin
Tmp := TJPEGImage.Create;
try
Tmp.Performance := jpBestSpeed;
Tmp.Scale := jsQuarter;
Tmp.LoadFromFile(Dateiname);
Image1.Picture.Bitmap.Assign (Tmp);
finally
Tmp.Free
end;
end; |
An den hervorgehobenen Zeilen kannst du verschiedene Einstellungen vornehmen die sich unter anderem auf die Geschwindigkeit auswirken. Näheres dazu in der Delphihilfe. Evtl solltest du dir auch noch die Eigenschaften
ProgressiveDisplay und
Smoothing ansehen.
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.
MarioL
