Weiter oben wurde eine Laderoutine angeboten, eventuell mußt du sie erweitern:
Code:
procedure LadeJpg(FileName: String; Bild: TBitMap);
var Jpeg: TJpegImage;
begin
Jpeg:=TJpegImage.Create;
try // unbedingt in einen
Exception-Block fassen
jpeg.LoadFromFile(filename);
jpeg.DibNeeded; // <- Bitmap erzeugen!
Bild.Assign(Jpeg);
finally
jpeg.free;
end;
end;
Grüße
Mikhal