set Objekt = Pointer-Addresse; Gibt es ObjPtr rückwärts??

07/07/2010 - 14:15 von Andre (Hubig) | Report spam
Hallo NG!

Mittels ObjPtr(Objekt) erhalte ich die Memory-Addresse eines Objektes.
Geht das ganze auch Rückwàrts?
Z.B.

Set Objekt = PointerTo(ObjPtr(Objekt1))


Gruß, André
 

Lesen sie die antworten

#1 Sascha Trowitzsch
07/07/2010 - 18:05 | Warnen spam
Hi André,

Andre (Hubig) wrote:
Hallo NG!

Mittels ObjPtr(Objekt) erhalte ich die Memory-Addresse eines Objektes.
Geht das ganze auch Rückwàrts?
Z.B.

Set Objekt = PointerTo(ObjPtr(Objekt1))



Ja, geht:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(Destination As Any, Source As Any, ByVal Length As Long)

Function ObjectFromPointer(lPtr As Long) As Object
Dim oTemp As Object
CopyMemory oTemp, lPtr, 4
Set ObjectFromPointer = oTemp
CopyMemory oTemp, 0&, 4
End Function


Ciao, Sascha

Ähnliche fragen