Zeiger auf eine Bytefolge im Stream - wie ?

[tomsson74]

Hallo,

ich habe da ein vermutlich triviales Problem, doch stehe ich im Moment auf dem Schlauch und komme einfach nicht weiter.

Wie kann ich direkt auf eine bestimmte Position des Streams zugrifen und diese als Zeiger (PChar) an eine Funktion übergeben. Bis jetzt sieht der Code so aus, er funktioniert auch - aber er ist nicht schön.

Delphi-Quellcode:

(...)
var
  AStream  : TStringStream;
  AStr     : String;
begin
  (...)
  AStream.Position := 86;
  AStr := AStream.ReadString(6);
  AStr := StrUnpack(@Astr[1],6);
  (...)

Damit übergebe ich die Adresse einer 6 Byte langen Bytefolge an meine Funktion. Geht das irgendwie einfacher ohne den Umweg, den String erstmal in eine temporäre Variable zu kopieren ?

Ich möchte eigentlich nur einen Zeiger auf eine Bytefolge des Streams, die an der Stelle 87 beginnt. AStream muss übrigens kein TStringStream sein - das kann auch TMemoryStream oder sonst was sein. Habe diesen nur gewählt wegen der ReadString-Methode.

Danke im Voraus
Thomas

[SirThornberry]

Bei TStream geht es überhaupt nicht denn die Daten können ja irgendwo liegen und müssen nicht im Speicher an einer bestimmten Adresse stehen. Beispielsweise ein FileStream hat seine Daten auf der Festplatte und somit kann man nicht einfach mal einen Pointer auf die Daten holen.

Bei speziellen Streamklassen muss man sich die Implementation der Klasse anschauen um genaueres zu sagen.

[tomsson74]

Demnach wäre mein Lösungsansatz mit dem ReadString garnicht so verkehrt ...

[Apollonius]

Bei einem TMemoryStream ist es leicht, solange nicht seine Größe verändert wird. - er besitzt ein Property Memory, ein Zeiger, der auf den Anfang des Inhalts zeigt.
Falls du das selbe für einen Filestream brauchst, musst du von Read/WriteFile auf MMFs umsteigen - hier im Forum gibt es eine Implementation von Neutral General.