DEFINE CLASS classname AS session OLEPUBLIC FUNCTION tcpconnect oEvents = CreateObject("MSWinsockEvents") oTcp=CreateObject("MSWinsock.Winsock.1") oEvents.oMSWinsockObject = oTcp oEvents.oMainObject = This oEvents.cSporocilo = cTXT EventHandler(oTcp, oEvents) && .t. oTcp.Protocol= 0 && sckTCPProtocol oTcp.Connect(This.cIP, This.cPort) … … RETURN .T. ENDDEFINE Define Class MSWinsockEvents As Session olepublic Implements DMSWinsockControlEvents In MSWinsock.Winsock.1 oMainObject = .null. oMSWinsockObject = .null. lKonecPrejema = .f. cVsebina = "" cSporocilo = "" lNapaka = .f. lPoslano = .f. lConnected = .f. ************************************** * Error event * * Error occurred ************************************** Procedure DMSWinsockControlEvents_Error(Number As Integer, Description As String, Scode As Long, Source As String, HelpFile As String, HelpContext As Long, CancelDisplay As Logical) As Void oMainObject.Error(Number,Source,0,Description,0) this.lNapaka=.t. EndProc … … ENDDEFINEThx for avdice,