* Init This.ofwsock = CreateObject('fwsock') This.oSocket = This.oFwsock.sock.object ... * Destroy This.oSocket = NULL This.ofwsock = NULL>i don't have anything on it just the olecontrol attaching the winsock activex.
>DEFINE CLASS fwsock AS form OLEPUBLIC > > > Top = 0 > Left = 0 > Height = 69 > Width = 104 > DoCreate = .T. > Caption = "Form" > Name = "fwsock" > > > ADD OBJECT sock AS olecontrol WITH ; > Top = 24, ; > Left = 24, ; > Height = 100, ; > Width = 100, ; > Name = "sock" > > >ENDDEFINE >>>What do you have on fwsock form besides mswinsock control? Any code?
>>> PROCEDURE INIT >>>* THIS.oSocket = CREATEOBJECT('mswinsock.winsock') >>> If type('ofwsock') = 'O' >>> THIS.oSocket = oFwsock.sock.object >>> else >>> THIS.oSocket = CREATEOBJECT('mswinsock.winsock') >>> EndIf >>> ENDPROC >>>>>>
>>>ofwsock = CreateObject('fwsock') >>>>>>fwsock is a form which contains an olecontrol named sock where i load the winsock activex