Public Property SocketOptions As DicomSocketOptions

Dim instance As DicomNet
Dim value As DicomSocketOptions
 
instance.SocketOptions = value
 
value = instance.SocketOptions

public DicomSocketOptions SocketOptions {get; set;}

public:
property DicomSocketOptions SocketOptions {
   DicomSocketOptions get();
   void set (    DicomSocketOptions value);
}

Private Sub DisplaySocketOptions(ByVal options As DicomSocketOptions)
   Dim sMsg As String = String.Format("Socket Options:" & Constants.vbLf + Constants.vbTab & "nSendBufferSize: {0}" & Constants.vbLf + Constants.vbTab & "nReceiveBufferSize: {1}" & Constants.vbLf + Constants.vbTab & "bNoDelay: {2}", options.SendBufferSize, options.ReceiveBufferSize, options.NoDelay)
   MessageBox.Show(sMsg, "Socket Options", MessageBoxButtons.OK)
End Sub

Public Sub SocketOptionsSample()
   DicomEngine.Startup()
   DicomNet.Startup()

   Dim net As DicomNet = New DicomNet(LeadtoolsExamples.Common.ImagesPath.Path + "temp", DicomNetSecurityeMode.None)
   Try
      Dim options As DicomSocketOptions = net.DefaultSocketOptions

      ' Display the default socket options
      DisplaySocketOptions(options)

      ' Set the socket options before calling Connect
      options.SendBufferSize = options.SendBufferSize * 2
      net.SocketOptions = options

      ' Display the new socket options
      DisplaySocketOptions(net.SocketOptions)

      'connect to a server using the new socket options
      net.Connect(Nothing, 1000, "127.0.0.1", 104)

      ' ...
      ' ...
      ' ...

      net.Close()
   Finally
      CType(net, IDisposable).Dispose()
   End Try

   DicomEngine.Shutdown()
   DicomNet.Shutdown()
End Sub

void DisplaySocketOptions(DicomSocketOptions options)
{
   string sMsg = string.Format("Socket Options:\n\tnSendBufferSize: {0}\n\tnReceiveBufferSize: {1}\n\tbNoDelay: {2}",
      options.SendBufferSize,
      options.ReceiveBufferSize,
      options.NoDelay);
   MessageBox.Show(sMsg, "Socket Options", MessageBoxButtons.OK);
}

public void SocketOptionsSample()
{
   DicomEngine.Startup();
   DicomNet.Startup();

   using (DicomNet net = new DicomNet(LeadtoolsExamples.Common.ImagesPath.Path + "temp",DicomNetSecurityeMode.None))
   {
      DicomSocketOptions options = net.DefaultSocketOptions;

      // Display the default socket options
      DisplaySocketOptions(options);

      // Set the socket options before calling Connect
      options.SendBufferSize = options.SendBufferSize * 2;
      net.SocketOptions = options;

      // Display the new socket options
      DisplaySocketOptions(net.SocketOptions);

      //connect to a server using the new socket options
      net.Connect(null, 1000, "127.0.0.1", 104);

      // ...
      // ...
      // ...

      net.Close();
   }

   DicomEngine.Shutdown();
   DicomNet.Shutdown();
}