blob: cf8b9a482756b59b47967d43646dc5952e7661d2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
' **********************************************************************
'
' Copyright (c) 2003-2014 ZeroC, Inc. All rights reserved.
'
' This copy of Ice is licensed to you under the terms described in the
' ICE_LICENSE file included in this distribution.
'
' **********************************************************************
Imports System
Imports Demo
Module Client
Public Sub Main(ByVal args() As String)
Dim status As Integer = 0
Dim ic As Ice.Communicator = Nothing
Try
ic = Ice.Util.initialize(args)
Dim obj As Ice.ObjectPrx = ic.stringToProxy("SimplePrinter:default -h localhost -p 10000")
Dim printer As PrinterPrx = PrinterPrxHelper.checkedCast(obj)
If printer Is Nothing Then
Throw New ApplicationException("Invalid proxy")
End If
printer.printString("Hello World!")
Catch e As Exception
Console.Error.WriteLine(e)
status = 1
End Try
If Not ic Is Nothing Then
' Clean up
'
Try
ic.destroy()
Catch e As Exception
Console.Error.WriteLine(e)
status = 1
End Try
End If
Environment.Exit(status)
End Sub
End Module
|
