FindModule Example for Delphi

var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   nRet:= LEADDicomDS1.FindModule(DICOM_MODULE_NM_TOMO_ACQUISITION);
   if(nRet <> 0)then
      ShowMessage('Not Found')
   else
   begin
      LEADDicomDS1.GetInfoDS ();
      LEADDicomDS1.FindModuleIOD (LEADDicomDS1.InfoClass, DICOM_MODULE_NM_TOMO_ACQUISITION);
      ShowMessage('Found Module ' + LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name);
   end;
   LEADDicomDS1.EnableMethodErrors:= True;
end;