SendNCreateRequest Example for Delphi

var
   strClassUID: String;
   strInstanceUID: String;
   nID: Integer;
   hPDU: LongInt;
   nRet: Integer;
begin
   hPDU:= LEADDICOMNet1.GetAssociate (LEADDICOMNet1.hNet);

   strClassUID:= InputBox('Enter SOP Class to Create:', 'Create', UID_SC_IMAGE_STORAGE);
   strInstanceUID:= 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, strClassUID);
   if(nID = 0)then
   begin
      nRet:= LEADDicomDS1.FindUID (strClassUID);
      if(nRet = 0)then
         ShowMessage('Abstract Syntax, ' + LEADDicomDS1.DefaultInterface.Get_CurrentUID().Name + ', Not Supported by Association!')
      else
         ShowMessage('Abstract Syntax, ' + strClassUID + ', Not Supported by Association!');
      Exit;
   end;

   //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:= LEADDicomDS1.LoadDS ('e:\images\dicom16.dic', 0);

   //send a Delete Request message
   LEADDICOMNet1.SendNCreateRequest(LEADDICOMNet1.hNet, nID, 999, strClassUID, strInstanceUID, LEADDicomDS1.hDicomDS);
end;