_MemoryPointerRead (autoit) in delphi

[infY2k7]

Hallo epvp coder Gruppe

Ich hänge derzeit an folgendem Problem:
In auto-it konnte man mit der "_MemoryPointerRead" Funktion einen Wert aus dem Speicher auslesen, zu dem man nur über einen Pointer(mit Offsets usw.) kommt.

Nachdem ich in einem anderem Forum keinen fand, der davon Ahnung hatte, frage ich hier:
Gibt es soetwas auch in Delphi? Ich verwende derzeit die Funktion
"ReadProcessMemory", die jedoch nur Werte aus statischen Adressen auslesen kann, was also sogut wie garnichts bringt.

Hier mal die Funktion in autoit:
Func _MemoryPointerRead ($iv_Address, $ah_Handle, $av_Offset, $sv_Type = 'dword')

If IsArray($av_Offset) Then
If IsArray($ah_Handle) Then
Local $iv_PointerCount = UBound($av_Offset) - 1
Else
SetError(2)
Return 0
EndIf
Else
SetError(1)
Return 0
EndIf

Local $iv_Data[2], $i
Local $v_Buffer = DllStructCreate('dword')

For $i = 0 to $iv_PointerCount

If $i = $iv_PointerCount Then
$v_Buffer = DllStructCreate($sv_Type)
If @Error Then
SetError(@Error + 2)
Return 0
EndIf

$iv_Address = '0x' & hex($iv_Data[1] + $av_Offset[$i])
DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
If @Error Then
SetError(7)
Return 0
EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

ElseIf $i = 0 Then
DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
If @Error Then
SetError(7)
Return 0
EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

Else
$iv_Address = '0x' & hex($iv_Data[1] + $av_Offset[$i])
DllCall($ah_Handle[0], 'int', 'ReadProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
If @Error Then
SetError(7)
Return 0
EndIf

$iv_Data[1] = DllStructGetData($v_Buffer, 1)

EndIf

Next

$iv_Data[0] = $iv_Address

Return $iv_Data

EndFunc

Bitte um Hilfe, mfg infY

[mr.rattlz]

Die von die gepostete Funktion benutzt doch auch nur ReadProcessMemory oder nicht?
Wenn du nur die Adresse von einem Pointer hast, dann liest du halt mit ReadProcessMemory diese Adresse und nimmst dann den Pointer als Adresse um mit ReadProcessMemory zu lesen.

[infY2k7]

nein, ich hab die adresse vom pointer und dazu 2 offsets(siehe bild) die frage ist nun, wie ich delphi dazu bringe, die offsets mit zu beachten...

[wadimwadim]

Ja, so etwas gibs in delphi, frag die member von DP .

[mr.rattlz]

Jetzt verstehe ich endlich, was du vorhast, das ist nahezu das selbe, nur, dass du dein Offset halt draufaddierst. Addition sollte für gewöhnlich aber keine Magie sein

[reijin]

wie rattlz schon sagte:
du liest den wert den der pointer hat aus.
du addierst zum erhaltenen wert den offset-wert -> du erhälst die momentane Adresse
readprocessmemory auf die über den pointer gefundene adresse ansetzen - fertig

[infY2k7]

Originally Posted by Reijin

wie rattlz schon sagte:
du liest den wert den der pointer hat aus.
du addierst zum erhaltenen wert den offset-wert -> du erhälst die momentane Adresse
readprocessmemory auf die über den pointer gefundene adresse ansetzen - fertig

bämmm das wars!! ich hab nur die adresse des pointers mit dem offset addiert, ich muss den wert addieren!! thx