'________________________________________________________________________________
'
' Copyright Gemalto, unpublished work, created 2007. This computer program
' includes Confidential, Proprietary Information and is a Trade Secret of
' Gemalto. All use, disclosure, and/or reproduction is prohibited unless
' authorised in writing by an officer of Gemalto. All Rights Reserved.
'________________________________________________________________________________
'
' MODULE TITLE    : STUB_MYSERVICE
'
' DOMAIN          : MyCompany.MyOnCardApp
'
'________________________________________________________________________________
'
' DESCRIPTION     : Stub automatically generated by converter
'               
'
' DEPENDENCIES    : None
'                   
'________________________________________________________________________________
'

Class STUB_COMMON_MYSERVICE

	Dim oMarshaller As BAS_COMMON_MARSHALLER

	Public Sub New(ByVal p_sServicePort As String)
		oMarshaller = New BAS_COMMON_MARSHALLER(p_sServicePort, "MyService", "005865A1", "09A7")
	End Sub
	Public Sub ChangeServicePort(ByVal p_sServicePort As String)
		oMarshaller.ChangeServicePort(p_sServicePort)
	End Sub
	Public Function GetNamespaceHivecode()As Integer
		Return &H005865A1
	End Function
	Public Function GetHivecodeType()As Short
		Return &H09A7
	End Function

	Public Function MySampleMethod() As String
		return CType(oMarshaller.invoke("MySampleMethod", 0, "EEDF", MARSHALLER_TYPE_RET_STRING),String)
	End Function


End Class


' This STUB has been automatically generated by the converter !
' it can be used in EVA workspace directly
