From a3ec0c3d16162606321c7f89e4ef78bccd0a12a0 Mon Sep 17 00:00:00 2001 From: "Charles E. Rolke" Date: Wed, 1 Dec 2010 19:54:13 +0000 Subject: Bring QPID .NET Binding examples more in line with cpp examples. 1. Return 0/1 from main to indicate success/failure, where possible. 2. Call sender's session.Sync() after transmitting messages and not waiting for responses. 3. Add third arg connectionOptions as used in cpp examples. git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@1041141 13f79535-47bb-0310-9956-ffa450edef68 --- .../visualbasic.example.client/visualbasic.example.client.vb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb') diff --git a/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb b/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb index ccdc0d673c..f32cfd8bce 100644 --- a/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb +++ b/cpp/bindings/qpid/dotnet/examples/visualbasic.example.client/visualbasic.example.client.vb @@ -24,14 +24,16 @@ Imports Org.Apache.Qpid.Messaging Namespace Org.Apache.Qpid.Messaging.Examples Module Module1 Class Client - Public Shared Sub Main(ByVal args() As String) + Public Shared Function Main(ByVal args() As String) As Integer Dim url As String = "amqp:tcp:127.0.0.1:5672" + Dim connectionOptions As String = "" If args.Length > 0 Then url = args(0) + If args.Length > 1 Then connectionOptions = args(1) Dim connection As Connection Try - connection = New Connection(url) + connection = New Connection(url, connectionOptions) connection.Open() Dim session As Session = connection.CreateSession() @@ -58,12 +60,13 @@ Namespace Org.Apache.Qpid.Messaging.Examples Console.WriteLine("{0} -> {1}", request.GetContent(), response.GetContent()) Next i connection.Close() - + Main = 0 Catch e As Exception Console.WriteLine("Exception {0}.", e) connection.Close() + Main = 1 End Try - End Sub + End Function End Class End Module End Namespace -- cgit v1.2.1