wie müsste ich meine code erweitern damit
Zitat:
FImage.FDIB.dsBm
angelegt wird ?
Delphi-Quellcode:
procedure TBitMapExtension.LoadFromFile(const Filename: String);
var
flag: bool;
begin
/// .... für alle unterschiedlichen Grafiktypen
if (Lowercase(ExtractFileExt(Filename)) = '.jpeg') then
begin
LoadJPEG(self, Filename);
flag := TRUE;
end;
end;
procedure LoadJPEG(Bmp: TBitMap; Filename: string);
var
JPEG: TJPEGImage;
begin
JPEG := TJPEGImage.Create;
try
JPEG.LoadFromFile(Filename);
with Bmp do
begin
PixelFormat := pf16bit;
// Width := jpeg.Width;
// Height := jpeg.Height;
Assign(JPEG);
// PixelFormat := pf24bit;
end;
finally
JPEG.Free;
end;
end;