Prüfen, ob ein Stream "Seekable" ist

Wenn man öfters mit Streams arbeitet, ist es unter Umständen wichtig zu wissen, ob die "Seek" Methode implementiert ist. Zum Beispiel bei Netzwerkstreams ist dies nicht der Fall.

Die folgende Funktion gibt zurück, ob die "Seek" Methode der Streamklasse überschrieben wurde. Dies muss zwar nicht zwangläufig bedeuten, dass die Seek-Funktionalität implementiert wurde, liefert jedoch schon mal einige Anhaltspunkte darüber.

Da der Code die 64-Bit Variante der Seek-Methode überprüft, muss diese Überprüfung für die Verwendung mit Delphiversionen <= 5 entfernt werden.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TSeek64_Proc = function(const Offset: Int64; Origin: TSeekOrigin): Int64 of object;
  TSeek_Proc = function(Offset: Longint; Origin: Word): Longint of object;

function StreamSeekOverridden(AStream: TStream): boolean;
var
  current_seek_proc_64, base_seek_proc_64: TSeek64_Proc;
  current_seek_proc, base_seek_proc: TSeek_Proc;
  base_class: TClass;
begin
  //Get the current seek implementation
  current_seek_proc_64 := AStream.Seek;
  current_seek_proc := AStream.Seek;

  //Get the old implementation of the seek method
  base_class := TStream;
  base_seek_proc_64 := TStream(@base_class).Seek;
  base_seek_proc := TStream(@base_class).Seek;

  //The seek method is implemented if the current address of the seek method
  //is unequal to the address of the TStream seek method
  result :=
    (TMethod(current_seek_proc).Code <> TMethod(base_seek_proc).Code) or
    (TMethod(current_seek_proc_64).Code <> TMethod(base_seek_proc_64).Code);
end;

Die Funktion wurde der Funktionsweise der TStream.Seek Funktion, die bei Nichtimplementierung der Seek-Funktion eine Exception wirft, nachempfunden.

Generell OK, aber ich würde es eher StreamSeekOverridden nennen. Es kann durchaus vorkommen, dass jemand .Seek überschreibt und einfach ein ENotSeekable wirft..

Zitat von Dax:

Generell OK, aber ich würde es eher StreamSeekOverridden nennen. Es kann durchaus vorkommen, dass jemand .Seek überschreibt und einfach ein ENotSeekable wirft..

wieso was werfen?
stell dir mal vor, der macht darin nur einfach garnichts

Auch wahr In beiden Fällen gilt der Stream als seekbar, nur dass es in meinem Fall dann eben knallt, wenn man .Seek naiverweise aufruft. Bei dir geht's weiter, aber das Programm findet wahrscheinlich nicht das, was es finden will - und es knallt dann wohl an anderer Stelle.

Zitat:

markieren

Delphi-Quellcode:

  //Get a reference to the parent TStream class of the TStream object
  base_class := AStream.ClassType;
  while (base_class <> nil) and (base_class <> TStream) do
    base_class := base_class.ClassParent;

  if base_class <> nil then
  begin
    //Get the new implementation of the seek method
    base_seek_proc := TStream(base_class).Seek;

Das kannst du ganz einfach kürzen, da base_class immer bei TStream herauskommt (außer jemand macht einen ungültigen Typecast nach TStream, dann ist er aber selbst schuld).
base_seek_proc := TStream.Seek;

Hallo,

ich habe die Änderungsvorschlage umgesetzt. Vorher hatte ich auch nicht überprüft, ob die normale Seek-Prozedur überschrieben worden war.

Das "Einfachste/Sicherste" wäre eigentlich die Position zu verschieben, zu vergleichen wo die Position danach ist und danach natürlich die Position zurückzusetzen, wenn verschoben.

Aber wenn der Stream 'ne Länge von 0 hat, könnte es da zu Problemen kommen.

Und das verschieben der Position ruft Seek auf.

Genau .. also schön eine Fehlerbehandlung in die Abfrage reinmachen

Und genau die wollte ich vermeiden. Konstrukte wie...

markieren

Delphi-Quellcode:

function SupportsFeature: boolean;
begin
  try
    DoFeature;
    result := true;
  except
    result := false;
  end;
end;

...sind irgendwie - naja - suboptimal.