Forum: Multimedia
by mcmichael,
15. Sep 2019
Problem gelöst, auch jpgs laufen jetzt.
Vielen Dank für die Lösung der Gehirnbremse...
procedure preloadImage(fname:string);
var i,z:integer;
begin
if preload then
begin
//doubletten vermeiden
Forum: Multimedia
by mcmichael,
14. Sep 2019
:roll:
Danke für den Tipp!!!
mein :=0 war Quatsch, :=1 wäre auch falsch, aber :=i wäre es gewesen.
Und dann läuft auch (ein bißchen) was.
Beim Einlesen von jpg Dateien (trotz "uses jpeg") kommt nämlich die Meldung "Bitmap ist ungültig"
Das TImage liest jpg immer klaglos ein. Wie gehe ich denn da vor?
TObjectDictionary<string,TBitmap> kannte ich noch nicht, scheint aber einen Blick...