Hello,

just guessing, but from the code you've provided i see the problem that the objects go out of scope after the function returns, you may try to save them into object properties instead.

DEFINE CLASS classname AS session OLEPUBLIC

oEvents = .NULL.
oTcp = .NULL.

FUNCTION tcpconnect

THIS.oEvents = CreateObject("MSWinsockEvents")
THIS.oTcp=CreateObject("MSWinsock.Winsock.1")

THIS.oEvents.oMSWinsockObject = oTcp
THIS.oEvents.oMainObject = This
THIS.oEvents.cSporocilo = cTXT

EventHandler(THIS.oTcp, THIS.oEvents) && .t.

THIS.oTcp.Protocol= 0  && sckTCPProtocol
THIS.oTcp.Connect(This.cIP, This.cPort)
…
…

RETURN .T.
ENDDEFINE

Regards
Christian