FindModuleIOD Example for Delphi

var
   strPrompt: String;
begin
   LEADDicomDS1.EnableMethodErrors:= True;
   //Find a Module
   LEADDicomDS1.FindModuleIOD (DICOM_CLASS_CR_IMAGE_STORAGE,
                              DICOM_MODULE_BIPLANE_IMAGE);
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   LEADDicomDS1.SetIODName ('New IOD Name #1');
   LEADDicomDS1.SetIODDescription ('New IOD Description #1');
   strPrompt:= 'Name: ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD.Name + Chr(13);
   strPrompt:= strPrompt + 'Desc: ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Description;
   ShowMessage(strPrompt);

   //Find a Class
   LEADDicomDS1.FindClassIOD (DICOM_CLASS_PRINT_QUEUE);
   ShowMessage(LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);

   LEADDicomDS1.SetIODName ('New IOD Name #2');
   LEADDicomDS1.SetIODDescription ('New IOD Description #2');
   strPrompt:= 'Name: ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name + Chr(13);
   strPrompt:= strPrompt + 'Desc: ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Description;
   ShowMessage(strPrompt);
end;