GetServer Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveAssociateRequest (ByVal hNet As Long, ByVal hPDU As Long)
    Dim hServer As Long
    Dim szServer As String
    Dim lPort As Long

    hServer = LEADDICOMNet1.GetServer (hNet)
    If (hServer <> 0) Then
        szServer = LEADDICOMNet1.GetHostAddress (hServer)
        lPort = LEADDICOMNet1.GetHostPort (hServer)
        MsgBox "Server = " & szServer & " Port = " & CStr(lPort)
    End If
End Sub