Danke skybibo und Amateurprofi ich werde es nach her mal durch-testen!
So werde ich vorgehen, hoffentlich ist das soweit okay, habe es selbst noch nicht getestet da ich gerade bemüht bin dutzende von methoden aus einer
vcl-haupt-
unit in eine seperate
unit auszulagern.
Hier mein Code der vor Eurem geschaltet wird:
Delphi-Quellcode:
function FilenameToBmp(const AFilename: string; out ABmp: TBitmap): Boolean;
var
wic: TWICImage;
begin
if ((not FileExists(AFilename)) or (nil = ABmp)) then
Exit(false);
wic := TWICImage.Create;
try
ABmp.Dormant;
ABmp.FreeImage;
ABmp.ReleaseHandle;
wic.LoadFromFile(AFilename);
ABmp.Assign(wic);
ABmp.PixelFormat := pf24bit;
Result := Assigned(ABmp);
finally
wic.Free;
end;
end;