VarPtr in Delphi ?

[goose33]

Hallo,

eine Frage:
Ich hab wiedermal ein Stück c++ die ich nicht nach Delphi
übersetzen kann. Vielleicht kann jemand helfen ?

Hier der Code :

Delphi-Quellcode:

Here is the modified code that will do the job 

Dim dwResult as Long 
Dim dwString as string 
Dim b(23) as byte 'defined a byte array (24 values) 
Dim result as string 'will contain the final string 
Dim i as integer 

FSUIPC_Initialization 

If FSUIPC_Open(SIM_ANY, dwResult) Then 
If FSUIPC_Read (&H3160,24,VarPtr (b(0)), dwResult) Then 'read all bytes at offset &H3160 in byte array 
If FSUIPC_Process(dwResult) Then 
For i=0 to 255 
If b(i)=0 then exit for 'leave at 0 terminator 
result=result+Chr(b(i)) 'otherwise adds to result (don't forget the Chr) 
Next 
End If 
End If 
FSUIPC_Close 
EndIf

Das müsste ich irgendwie in Delphi zustande bekommen

Wie mach ich das ? Die frage ist dieses "VarPtr (b(0))" hauptsächlich und wie ich die Variable b definieren muss ?

Dank Euch
Matthias