SendNCreateRequest Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
'LEADDICOM1 is a DICOM Dataset defined outside this method
Private Sub TestSendNCreateRequest ( )
   Const UID_SC_IMAGE_STORAGE As String = "1.2.840.10008.5.1.4.1.1.7"
   ' Secondary Capture Image Storage
   Dim szClassUID As String
   Dim szInstanceUID As String
   Dim nID As Short
   Dim hPDU As Integer
   Dim nRet As Short
   hPDU = LEADDICOMNet1.GetAssociate(LEADDICOMNet1.hNet)
   szClassUID = InputBox("Enter SOP Class to Create:", "Create", UID_SC_IMAGE_STORAGE)
   szInstanceUID = InputBox("Enter SOP Instance to Create:", "Create", "1.2.840.113619.2.30.1.1762288927.1489.906240296.255")
   'send a Create Request Command to the server
   nID = LEADDICOMNet1.FindPresentationAbstract(hPDU, szClassUID)
   If (nID = 0) Then
      nRet = LEADDICOM1.FindUID(szClassUID)
      If (nRet = 0) Then
         MessageBox.Show("Abstract Syntax, " & LEADDICOM1.CurrentUID.Name & ", Not Supported by Association!")
      Else
         MessageBox.Show("Abstract Syntax, " & szClassUID & ", Not Supported by Association!")
      End If
      Exit Sub
   End If
   'here, you should construct a Data Set that contains the attributes 'and values for the new SOP Instance.
   'In this sample, we simply load a Data Set from a file on disk 'pick the data set to send
   nRet = LEADDICOM1.LoadDS("e:\images\dicom16.dic", 0)
   'send a Delete Request message
   LEADDICOMNet1.SendNCreateRequest(LEADDICOMNet1.hNet, nID, 999, szClassUID, szInstanceUID, LEADDICOM1.hDicomDS)
End Sub