Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.123 Beiträge
 
Delphi 11 Alexandria
 
#1

Bitmapgröße via Stream in WIN und LINUX effizient auslesen

  Alt 25. Apr 2020, 12:43
mit diesem Code lesen wir sehr schnell die Größe einer Bitmap Datei aus, klappt unter WINDOWS perfekt.




Delphi-Quellcode:
function ReadBitmapsize(......);
var
  f: TFileStream;
  Buff: array [0 .. 10] of byte;
begin
  f := TFileStream.Create(FullName, fmOpenRead);
  try
    f.Seek(18, soFromBeginning);
    f.Read(Buff, 8);
    result.x := Buff[1] * 256 + Buff[0];
    result.y := Buff[5] * 256 + Buff[4];
  finally
    FreeAndNil(f);
  end;
end;

Wenn ich jetzt für LINUX compiliere bekomme ich folgende Fehlermeldung :

Delphi-Quellcode:
[DCC Error] E2251 Ambiguous overloaded call to 'Seek'
  System.Classes.pas(983): Related method: function TStream.Seek(LongInt; Word): LongInt;
  System.Classes.pas(985): Related method: function TStream.Seek(const Int64; Word): Int64;

wie bekomme ich diesen code auf beiden Plattformen lauffähig ... mit minimaler Codeanpassung
  Mit Zitat antworten Zitat