note
	description: "Objects that ..."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	author: "Marina Nudelman"
	date: "$Date$"
	revision: "$Revision$"

class
	CLIENT

inherit
	EOLE_AUTOMATION_CLIENT

	EOLE_METHOD_FLAGS
		export
			{NONE} all
		end
	
	EOLE_ERROR_CODE
		export 
			{NONE} all
		end

feature -- Access

	class_id: STRING = "{2DB76EC0-9672-11D2-B961-00403392AC95}"

feature -- Basic operations

	sum (arg1, arg2: INTEGER): INTEGER
		local
			d_arg1, d_arg2: EOLE_VARIANT
		do
			dispparams.init
			function_exception.init
			function_result.init

			create d_arg1
			d_arg1.init
			d_arg1.set_integer4 (arg1)

			create d_arg2
			d_arg2.init
			d_arg2.set_integer4 (arg2)

			dispparams.add_argument (d_arg1)
			dispparams.add_argument (d_arg2)

			dispatch.invoke (1, dispatch_method, dispparams, function_result, function_exception)
			check_result
			Result := function_result.integer4
		end

feature {NONE} -- Implementation

	check_result
			-- Check result of last routine and display
			-- a message box if there was an error.
		local
			mess_box: WEL_MSG_BOX
			error_string: STRING
		do
			create mess_box.make
			create error_string.make (20)
			if function_exception.error_code /= S_ok then
				error_string.append ("Error #")
				error_string.append_integer (function_exception.error_code)
				mess_box.error_message_box (Void, function_exception.error_description, error_string)
			end
			if dispatch.status.last_hresult /= S_ok then
				error_string.append ("Dispatch Error #")
				error_string.append_integer (dispatch.status.last_hresult)
				mess_box.error_message_box (Void, "Error during dispatcher call", error_string)
			end
		end

invariant
	invariant_clause: -- Your invariant here

note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"


end -- class CLIENT