Imports Leadtools
Imports Leadtools.Dicom
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(Path.Combine(LEAD_VARS.ImagesDir, "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
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools;
using Leadtools.Dicom;
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(Path.Combine(LEAD_VARS.ImagesDir, "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();
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}