I'm testing your code and I'm seeing the object passad to the CLASS or DLL are not received correctly.
>>>Yes, it does, and thats what I did instead. But I'm just
>>curious as to why PEMSTATUS fails.
>>
>>Can you post a snippet of your code?
>I've been playing with this, and this code snippet shows the issue he brought up.
>add this to a project 'recobj' and build the dll, then run the code.loT = CREATEOBJECT('empty')
ADDPROPERTY(loT,'Name','OLE Test')
DELETE FILE 'c:\members.txt'
loM = CREATEOBJECT("recobj.members")
loM.TestMembers(loT)
loM = NULL
ADDPROPERTY(loT,'Name','PRG Test')
loM = CREATEOBJECT('members')
loM.TestMembers(loT)
MODIFY FILE 'c:\members.txt'
DEFINE CLASS members AS Custom OLEPUBLIC
PROCEDURE TestMembers ( toIn AS Object ) AS Logical
LOCAL lnLoop, lcOut
lcOut = TTOC(DATETIME()) + CHR(13)+CHR(10)
FOR lnLoop = 1 TO AMEMBERS(laMem, toIn, 3)
lcOut = lcOut + laMem[lnLoop, 1] + ',' + laMem[lnLoop, 2] + CHR(13) + CHR(10)
NEXT
IF TYPE('toIn.Name') = 'C'
lcOut = lcOut + toIn.Name + CHR(13) + CHR(10)
ENDIF
STRTOFILE(lcOut, 'c:\members.txt', 1)
ENDPROC
ENDDEFINE
