GetServer Example for VB.NET
'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetReceiveAssociateRequest(ByVal hNet As Integer, ByVal hPDU As Integer) Handles LEADDICOMNet1.NetReceiveAssociateRequest
Dim hServer As Integer
Dim szServer As String
Dim lPort As Integer
hServer = LEADDICOMNet1.GetServer(hNet)
If (hServer <> 0) Then
szServer = LEADDICOMNet1.GetHostAddress(hServer)
lPort = LEADDICOMNet1.GetHostPort(hServer)
MessageBox.Show("Server = " & szServer & " Port = " & CStr(lPort))
End If
End Sub