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);