Speicherbereich in Bytearray schreiben

[BenTech]

Hallo,
ich habe versucht über die DP-Suche eine Antwort auf meine Frage zu finde, hatte aber leider keinen Erfolg. Vor allem wusste ich nicht so recht, wonach ich genau suchen muss

Zu meiner Frage:
Ich habe den Pointer, der die Adresse eines "Packed Record"s angibt. Hinter dem Record stehen noch weitere Informationen, die ich nun auslesen möchte. Geplant war es so, dass ich die Daten in ein Byte Array schreibe, das ich dann weiter analysieren kann.
Ich habe, da ich bisher nicht viel mit direkten Speicherzugriffen gearbeitet habe, keine Ahnung, wie das funktioniert. Kann mir da eventuell jemand auf die Sprünge helfen? Ist bestimmt nicht schwer

[messie]

Zitat von BenTech:

Ich habe, da ich bisher nicht viel mit direkten Speicherzugriffen gearbeitet habe keine Ahnung, wie das funktioniert. Kann mir da eventuell jemand auf die Sprünge helfen? Ist bestimmt nicht schwer

Doch, ist schwer! Die Speicherplätze werden vom Betriebssystem verwaltet und zugewiesen, Dein Programm kann dort also normalerweise nur über die Pointer zugreifen. Direkter Speicherzugriff ist unter XP das Verbotenste, was es gibt.

Du musst also Deine Inhalte in Variablen kopieren und dann untersuchen. Wenn Du den packed record kennst, sollte das eingentlich kein Problem sein...

Grüße, Messie

[SirThornberry]

eventuell ist das was du suchst ja ein typisierter Pointer.
Wenn du Beispielsweise folgenden packed Record hast:

Delphi-Quellcode:

type
  TYourRecord = packed record
    Daten1: XYZ;
    Daten2: YYZ;
  end;

so kannst du folgendermaßen einen typisierten Pointer erstellen und damit arbeiten:

Delphi-Quellcode:

var
  MyRecord: ^TYourRecord; //Einen Pointer der auf einen TYourRecord zeigt
begin
  MyRecord := DerPointerWelcherAufDenRecordZeigt;
  MyRecord^.Daten1 := irgendwas;
  MyRecord^.Daten2 := irgendwas;

[BenTech]

Zitat:

Doch, ist schwer! Die Speicherplätze werden vom Betriebssystem verwaltet und zugewiesen, Dein Programm kann dort also normalerweise nur über die Pointer zugreifen. Direkter Speicherzugriff ist unter XP das Verbotenste, was es gibt.

Hmm, es geht aber um Speicher, der von meinem Programm zuvor beschrieben wurde. Die Zusatzinfos stehen direkt hinter dem Record. Daher müsste es doch eigentlich gehen, dass ich nach dem Ende des Records die folgenden Speicherbereiche auslese.

Zitat:

eventuell ist das was du suchst ja ein typisierter Pointer.
Wenn du Beispielsweise folgenden packed Record hast

Das Problem ist, dass die Daten hinter dem Record unterschiedlich groß sein können. Im Record selber existiert ein Eintrag, aus dem man auslesen kann, wie groß der zusätzliche Bereich hinter diesem Record ist. Der Anhang hängt also vom Inhalt des Records ab.

Vielleicht hab ich mich auch etwas unglücklich ausgedrückt.
Ich habe den Pointer und die Länge des Records und die Länge des Anhangs. Ich müsste also lediglich den Speicherbereich ab dem Pointer bis zum Ende des Anhangs auslesen. Nur weiß ich nicht, wie das geht

[bitsetter]

Hi,

wenn du auf den Bereich hinter den Record zugreifen möchtest wäre dies eine Möglichkeit:

Delphi-Quellcode:

type
  TMyRecord = packed record
    Daten1: integer;
    Daten2: byte;
    ...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyR: TMyRecord;
  pB: PByteArray;
begin
  pB:= Pointer(Cardinal(@MyR)+ SizeOf(TMyRecord));
  caption:= inttostr(pB^[0]);//DEMO
end;

[BenTech]

Ahh, vielen Dank. Das ist genau das, was ich gesucht habe