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