SendData Example for Delphi

   //send a command set, then a data set
   LEADDicomDS2.InitCS (COMMAND_C_STORE, True);
   LEADDicomDS1.InitDS (DICOM_CLASS_CR_IMAGE_STORAGE, 0);
   //client is sending data
   LEADDICOMNet1.SendData(LEADDICOMNet1.hNet, 1, LEADDicomDS2.hDicomDS, LEADDicomDS1.hDicomDS);