Notes/Domino 4 and 5 Forum : RE: OSLockBlock

Hello,
once again I am in deep trouble. Below is my code. Everything works fine until I want to read in the contents of the $AssistInfo Field. I have no idea how to do. Pls have a look at the three different ways I have tried it. At each I get a QNC Error.

CU Martin

Type BLOCKID
PoolHandle As Long
BlockHandle As Integer
End Type

Type TIMEDATE
Innards(1) As Long
End Type

Type ODS_ASSISTSTRUCT
wVersion As Integer
wTriggerType As Integer
wSearchType As Integer
wIntervalType As Integer
wInterval As Integer
dwTime1 As Long
dwTime2 As Long
StartTime As TIMEDATE
EndTime As TIMEDATE
dwFlags As Long
dwSpare(16) As Long
End Type

Declare Function ODSLength Lib APIModule Alias "ODSLength" _
(Byval inte As Integer) As Integer

Declare Function OSLockObject Lib APIModule Alias "OSLockObject" (Byval hObject As Long) As Integer

Declare Function ODSReadMemory Lib APIModule Alias "ODSReadMemory" _
(ppSrc As Long, Byval type1 As Integer, pDest As ODS_ASSISTSTRUCT, Byval iterations As Integer) As Integer

Declare Function OSUnlockObject Lib APIModule Alias "OSLockObject" (Byval hObject As Long) As Integer

Declare Private Function NSFItemInfo Lib "nnotes" Alias "NSFItemInfo"_
(Byval nthandle As Long, Byval item_name As String, Byval name_len As Integer, item_blockid As BLOCKID, value_datatype As Integer _
, value_blockid As BLOCKID, Value_len As Long) As Integer

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
pDest As ODS_ASSISTSTRUCT, _
Byval pSource As Long, _
Byval dwLength As Long _
)

Declare Function Peek Lib "MSVCRT" Alias "memcpy" _
( N As Any, Byval P As Long, Byval B As Long) As Long

Public Function GetAgentInfo(Byval dbname As String, Byval AgentHandle As Long)
Dim Status As String
Status = "NOERROR"
Dim hAgentNode As Long
Dim bid1 As BLOCKID
Dim bidinfo As BLOCKID
Dim wDataType As Integer
Dim pObject As Long
Dim dwItemSize As Long
Dim Info As ODS_ASSISTSTRUCT
Dim wlength As Integer
Dim ASSIST_INFO_ITEM As String
Dim wann As TimeDate

ASSIST_INFO_ITEM = "$AssistInfo"
Status = NSFItemInfo(AgentHandle, ASSIST_INFO_ITEM, Len(ASSIST_INFO_ITEM), _
Bid1, wDataType, bidinfo, dwitemsize)

pObject = OSLockObject(bidinfo.PoolHandle) + bidinfo.BlockHandle
pObject = pObject + ODSLength(0)

First Try !!!!!:

Status = ODSReadMemory(pObject,Len(Info) ,Info, 1)

Second Try !!!!!:
Peek Info, pObject, Len(Info)
Third Try !!!!!:

CopyMemory Info, pObject, Len(Info)