Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
EVENTHANDLER() fails w/o error.
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00928308
Message ID:
00928745
Views:
19
Hi Sergey,

Thanks for your suggestion. Alas, both the GUID and file-name methods also cause EVENTHANDLER() to return .F. but no errors.

I'm pretty sure my code is fine since no errors are returned, but for your reference, below is my test code; maybe I missed something.

If you're interested, I'll email you the DLL (it's freely distributable).

Thanks again for your help!
oServer=NEWOBJECT("ClientCOM2.EICServer2")
oServerWatch=NEWOBJECT("iServer")
MESSAGEBOX(EVENTHANDLER(oServer,oServerWatch))

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

DEFINE CLASS iServer AS session OLEPUBLIC

	IMPLEMENTS IEICServer2 IN "c:\Program Files\Interactive Intelligence\ClientCOMLiteA.dll"

	PROCEDURE IEICServer2_Connect(p_App AS STRING, p_Server AS STRING, p_User AS STRING, p_Password AS STRING, p_Station AS STRING, p_AutoDisconnect AS LOGICAL) AS VOID;
 				HELPSTRING "The Connect method establishes a connection with the IC Server, and logs the user into Client Services."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_Attach(p_App AS STRING, p_Server AS STRING, p_AutoDisconnect AS LOGICAL) AS VOID;
 				HELPSTRING "The Attach method opens a connection to the IC server.  This method does not allow you to actively monitor queues. If you need to monitor queues, use the Connect method instead."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_Disconnect(p_DisconnectUserOnly AS LOGICAL) AS VOID;
 				HELPSTRING "The Disconnect method disconnects the current user from Client Services and releases the Notifier connection with the IC server, unless the p_DisconnectUserOnly parameter is used to keep an IC notification socket open."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_ForceDisconnect(p_User AS STRING, p_Station AS STRING, p_DisconnectUserOnly AS LOGICAL) AS VOID;
 				HELPSTRING "The ForceDisconnect method disconnects the specified user from Client Services and releases the Notifier connection.  Use this method carefully since it has the power to disconnect other users from Client Services."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_get_Server() AS STRING;
 				HELPSTRING "This property returns the name of the IC server that you are currently connected to."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_get_User() AS STRING;
 				HELPSTRING "This property returns the current IC user Id."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_get_Station() AS STRING;
 				HELPSTRING "The Station property returns the current IC station name (e.g. TommyMpc)."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_PassiveConnect(p_App AS STRING, p_Server AS STRING, p_User AS STRING, p_Password AS STRING, p_AutoDisconnect AS LOGICAL) AS VOID;
 				HELPSTRING "The PassiveConnect method works like a read-only alternative to the Connect method.  Use this method to allow a user to view queues but not modify them. This type of connection prevents an application from modifying any IC objects."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_get_ConnectionValid() AS LOGICAL;
 				HELPSTRING "The ConnectionValid property returns True if the user is currently connected to the server."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_FullConnect(p_App AS STRING, p_Server AS STRING, p_User AS STRING, p_Password AS STRING, p_Station AS STRING, p_AutoDisconnect AS LOGICAL, p_MediaTypes AS Number) AS Number;
 				HELPSTRING "This method performs two operations.  It establishes a Notifier connection with the IC server, and logs the user into Client Services."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_RemoteConnect(p_App AS STRING, p_Server AS STRING, p_User AS STRING, p_Password AS STRING, p_Station AS STRING, p_PersistentConnection AS LOGICAL, p_AutoDisconnect AS LOGICAL, p_MediaTypes AS Number) AS Number;
 				HELPSTRING "This method performs two operations for a remote Interaction Client user:  It establishes a Notifier connection with the IC server, and logs the user into Client Services."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_NotifierLogin(p_App AS STRING, p_Server AS STRING, p_User AS STRING, p_Password AS STRING, p_AutoDisconnect AS LOGICAL) AS Number;
 				HELPSTRING "This method creates a Notifier connect, but does not log the user into Client Services.   "
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_NotifierLoginCheck(p_User AS STRING, p_Password AS STRING) AS Number;
 				HELPSTRING "This method validates a user ID and password to see if it can be used to establish a Notifer connection.  No login is actually performed."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_CSLogin(p_User AS STRING, p_Password AS STRING, p_Station AS STRING, p_InitialStatus AS STRING, p_Remote AS LOGICAL, p_Persistent AS LOGICAL, p_MediaTypes AS Number) AS Number;
 				HELPSTRING "CSLogin logs a user into Client Services after setting the user's status. Although IEICConnection::Connect is the same as calling Login + CSLogin with a blank status, CSLogin can optionally log a user into Client Services."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_CSLogout(p_User AS STRING, p_Station AS STRING) AS VOID;
 				HELPSTRING "CSLogout logs the specified user out of Client Services.  If empty strings are passed, the currently connected user and station name are used by default."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_get_Remote() AS LOGICAL;
 				HELPSTRING "This property indicates whether or not Interaction Client is operating in remote mode."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_get_PersistentRemoteConnection() AS LOGICAL;
 				HELPSTRING "PersistentRemoteConnection"
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_SetMarshalledCallback(p_Watcher AS VARIANT) AS VOID;
 				HELPSTRING "This method sets up a watcher for changes to connections between the application and the IC Server.  The callback is called in the calling function's thread.  This provides notification of lost connections from Client Services or Notifier."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_SetThreadCallback(p_Watcher AS VARIANT) AS VOID;
 				HELPSTRING "This method sets up a watcher for changes to connections between the application and the IC Server.  The callback is called in the ClientCOM's thread.  This provides notification of lost connections from Client Services or Notifier."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_ServerParameter(p_Param AS STRING) AS STRING;
 				HELPSTRING "This method allows you to request the value of an arbitrary server parameter.   Server parameters are name/value pairs."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_ServerParameterList(p_Params AS VARIANT) AS VARIANT;
 				HELPSTRING "This method accepts a safe array of strings in and returns a safe array of strings out.  Use it to request the value of several arbitrary server parameters at once.  Server parameters are name/value pairs."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_GetTimeStamp(p_Day AS INTEGER, p_Month AS INTEGER, p_Year AS INTEGER, p_Hour AS INTEGER, p_Minute AS INTEGER, p_Second AS INTEGER) AS VOID;
 				HELPSTRING "This method returns a timestamp that indicates when a login occurred."
	* add user code here
	ENDPROC

	PROCEDURE IEICServer2_ForceLoginOnError() AS VOID;
 				HELPSTRING "If you call this method before logging in, an IC Notifier login dialog will be displayed if login fails for some reason."
	* add user code here
	ENDPROC

ENDDEFINE
John MR Fitzgerald
Order Inc.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform