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;