ah, das gefällt mir, langsam scheine auch ich das alles hinzubekommen... also sieht meine function jetzt so aus:
Delphi-Quellcode:
function TForm1.bmpausfirmware(offset,groesse,width,height:integer):TBitmap;
VAR buf: array of byte;
begin
cla := TFileStream.Create(pfad, fmOpenread);
cla.Position:=offset;
SetLength(buf, groesse);
cla.Read(buf[0], groesse);
result:=Bmp18ToBmp24(buf[0],width,height);
end;
kan ndas jetzt nicht ausprobieren, bin auf der arbeit, aberdas hört sich doch vielversprechend an, danke!