SendCStoreResponse Example for Visual Basic

Private Sub LEADDICOMNet1_NetReceiveCStoreRequest(ByVal hNet As Long, ByVal nPresentationID As Integer, ByVal nMessageID As Integer, ByVal pszClass As String, ByVal pszInstance As String, ByVal nPriority As Integer, ByVal pszMoveAE As String, ByVal nMoveMessageID As Integer, ByVal hDS As Long)
    Dim nRet As Integer
    Dim NewNode As Node
    Dim szReply As String
    Dim lParent As Long
    Dim szName As String
    
    Set NewNode = TreeView1.Nodes.Add(, , , "Command Set - " & "C-STORE-REQUEST")
    NewNode.EnsureVisible
    lParent = NewNode.Index
    
    Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Presentation ID: " & CStr(nPresentationID))
    Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Message ID: " & CStr(nMessageID))
    nRet = LEADDICOM1.FindUID(pszClass)
    If (nRet = 0) Then
        szName = LEADDICOM1.CurrentUID.Name
        Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Affected SOP Class: " & szName & " - " & pszClass)
    Else
        Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Affected SOP Class: " & pszClass)
    End If
    Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Affected SOP Instance: " & pszInstance)
    Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Priority: " & CStr(nPriority))
    Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Move AE Title: " & pszMoveAE)
    Set NewNode = TreeView1.Nodes.Add(lParent, tvwChild, , "Move Message ID: " & CStr(nMoveMessageID))
    
    'perform the store - this is a function that you have to write
    nRet = PerformSTORECommand(hDS)
    
    'send a response
    szReply = "Store Response Command Set Sent - "
    'use high-level method to send a response
    LEADDICOMNet1.SendCStoreResponse hNet, nPresentationID, nMessageID, pszClass, pszInstance, nRet
    MsgBox szReply & LEADDICOMNet1.GetPeerAddress (hNet)
End Sub