NetReceiveCFindResponse Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveCFindResponse (ByVal hNet As Long, ByVal nPresentationID As Integer, ByVal nMessageID As Integer, ByVal pszClass As String, ByVal nStatus As Long, ByVal hDS As Long)
Dim strPeerAddress As String
Dim strStatus As String
Dim strMsg As String
Dim strFileName As String

strPeerAddress = LEADDICOMNet1.GetPeerAddress (hNet)

If nStatus = COMMAND_STATUS_PENDING Then
    strStatus = "COMMAND_STATUS_PENDING"
End If

If nStatus = COMMAND_STATUS_SUCCESS Then
    strStatus = "COMMAND_STATUS_SUCCESS"
End If

If nStatus = COMMAND_STATUS_CANCEL Then
    strStatus = "COMMAND_STATUS_CANCEL"
End If

strMsg = "*** OnNetReceiveCFindResponse ***" + vbNewLine + "Peer[" + strPeerAddress + "]" + vbNewLine + "nPresentationID[" + Str(nPresentationID) + "]" + vbNewLine + "nMessageID[" + Str(nMessageID) + "]" + vbNewLine + "pszClass[" + pszClass + "]" + vbNewLine + "strStatus[" + strStatus + "]" + vbNewLine

If (hDS <> 0) Then
    gnFileCount = gnFileCount + 1
    strFileName = "d:\temp\CFind" + Str(gnFileCount) + ".dic"
    LEADDICOM1.SaveExtDS hDS, strFileName, 0
    strMsg = strMsg + "Saving[" + strFileName + "]"
End If
MsgBox strMsg
End Sub