View source for RPC HELP DLL GuideLines VB Connect to the Server

[[RPC_Broker_Help| RPC Broker Help Home]]

[[RPC_HELP_Other_DLL_Interface_List|DLL Interface Home]]
<h2>Visual Basic: Connect to the Server</h2>

To connect to the VistA M Server from your Visual Basic program:

'''1.''' Set the server and port to connect to:

    Call RPCBPropSet(intRPCBHandle, "Server", "BROKERSERVER")
    Call RPCBPropSet(intRPCBHandle, "ListenerPort", "9200")

'''2.''' Set the [[RPC_HELP_TRPCBroker_Connected|Connected]] property to true; this attempts a connection to the VistA M Server:

    Call RPCBPropSet(intRPCBHandle, "Connected", "1")

'''3.''' Check if you are still connected. If so, you can continue (your connection was made). If not, you should quit or branch accordingly:

    RPCBPropGet(intRPCBHandle, "Connected", strResult)

'''4.''' Attempt to create context for your application's "B"-type option. If you can't create context, you should quit or branch accordingly. If [[RPC_HELP_DLL_ExportFN_RPCBCreateContext|RPCBCreateContext]] returns True, then you are ready to call all RPCs registered to your application's "B"-type option:

    intResult = RPCBCreateContext(intRPCBHandle, "MY APPLICATION")