Hi everybody,

I have some problems with the eventhandler and the winsock ocx.

Here I have a little example program which does not work correctly.
Server and client try to make a connection, but the event "ConnectionRequest" is seemingly not used.

Greetings
Stefan

RELEASE ALL
myWinsockServerEvents=NEWOBJECT("WinsockServerEvents")
myWinsockServer=NEWOBJECT("MSWinsock.Winsock")
EVENTHANDLER(myWinsockServer,myWinsockServerEvents,.T.)
myWinsockServer.LocalPort="1112"
myWinsockServer.Listen()
**
myWinsockClient=NEWOBJECT("MSWinsock.Winsock")
myWinsockClient.Connect("192.168.20.108","1112")
myWinsockClient.Close



DEFINE CLASS WinsockServerEvents AS session OLEPUBLIC

	IMPLEMENTS DMSWinsockControlEvents IN "c:\windows\system32\mswinsck.ocx"

	PROCEDURE DMSWinsockControlEvents_Error(Number AS INTEGER, Description AS STRING, Scode AS Number, Source AS STRING, HelpFile AS STRING, HelpContext AS Number, CancelDisplay AS LOGICAL) AS VOID;
 				HELPSTRING "Error occurred"
	* add user code here
	ENDPROC

	PROCEDURE DMSWinsockControlEvents_DataArrival(bytesTotal AS Number) AS VOID;
 				HELPSTRING "Occurs when data has been received from the remote computer"
	* add user code here
	ENDPROC

	PROCEDURE DMSWinsockControlEvents_Connect() AS VOID;
 				HELPSTRING "Occurs connect operation is completed"
	* add user code here
	ENDPROC

	PROCEDURE DMSWinsockControlEvents_ConnectionRequest(requestID AS Number) AS VOID;
 				HELPSTRING "Occurs when a remote client is attempting to connect"
				MESSAGEBOX(requestID)
	* add user code here
	ENDPROC

	PROCEDURE DMSWinsockControlEvents_Close() AS VOID;
 				HELPSTRING "Occurs when the connection has been closed"
	* add user code here
	ENDPROC

	PROCEDURE DMSWinsockControlEvents_SendProgress(bytesSent AS Number, bytesRemaining AS Number) AS VOID;
 				HELPSTRING "Occurs during process of sending data"
	* add user code here
	ENDPROC

	PROCEDURE DMSWinsockControlEvents_SendComplete() AS VOID;
 				HELPSTRING "Occurs after a send operation has completed"
	* add user code here
	ENDPROC

ENDDEFINE