Speicheradresse um eins erhöhen

[napsterxx]

Liebe Leute,
ich suche eine Prozedur mit der ich eine Speicheradresse, z.B. 00400100 um eins erhöhen kann.

[CalganX]

Wenn du einen Pointer hast, kannst du ihn mit Inc auf die nachfolgende und mit Dec auf die vorherige Speicherstelle verschieben. Denk aber daran, dass das nur eingeschränkt möglich ist. D.h., du kannst mit dem Pointer nicht auf Speicherbereiche eines anderen Prozesses zugreifen.

[Muetze1]

Afaik erlaubt Delphi die Anwendung von Inc() und Dec() nicht auf untypisierte Zeiger sondern nur auf typisierte. Und dort wird die Adresse um jeweils den angegeben Wert (Default 1) multipliziert mit der Grösse des Typs erhöht bzw. verringert. Also eine PDWord wird um 4 Bytes verschoben, bei Dec(PDWord, 2) sogar um 8 Bytes.

[Dax]

Delphi-Quellcode:

procedure IncAt(address: Cardinal);
begin
  PCardinal(address)^ := PCardinal(address)^ + 1;
end;

[SirThornberry]

@Dax: Das ist nen bissl komisches Beispiel. Bei deinem Beispiel müsste man ja address die Adresse des Pointer zuweisen. Dann doch lieber so:

Delphi-Quellcode:

function inc_address(var address: pointer);
begin
  Cardinal(address) := Cardinal(address) + 1;
  result := address;
end;

[DeddyH]

@Jens, da hast Du aber was gehörig vermischt.

Delphi-Quellcode:

procedure inc_address(var address: pointer);
begin
  Cardinal(address) := Cardinal(address) + 1;
end;

[Zacherl]

Wenns um sowas wie Schleifen und Zugriff auf einzelne Bytes geht:

Delphi-Quellcode:

function DumpMem(P: Pointer; Len: Cardinal): String;
var
  I: Cardinal;
begin
  for I := 0 to Len do
  begin
    Result := Result + IntToHex(PByte(Cardinal(P) + I)^, 2);
  end;
end;

[Muetze1]

Zwar mal davon abgesehen, dass Cardinal() der richtige Typ wäre für den Typecast, aber afaik schmeisst Delphi dann eine Warnung bei der Addition von wegen Kombination von vorzeichenlosen und vorzeichenbehafteten Datentypen. Dadurch zwingt Delphi einem (leider) bei solcher Adressarithmetik zu der vorzeichenbehafteten Rechnung.

@Zacherl: Da er bei deiner Lösung immer wieder vom Pointer neu losrechnet (um i drauf zu rechnen), wäre es performanter einfacher eine lokale Variable vom Typ PByte anzulegen und dieser vor der Schleife den übergebenen Pointer zu übergeben. In der Schleife reicht dann einfach ein Inc().