GetInfoDS Example for Delphi

var
   strClass: String;
   strFlags: String;
begin
   LEADDicomDS1.EnableMethodErrors:= True;
   LEADDicomDS1.GetInfoDS ();
   LEADDicomDS1.FindClassIOD (LEADDicomDS1.InfoClass);
   strClass:= LEADDicomDS1.DefaultInterface.Get_CurrentIOD().Name;
   strFlags:= IntToStr(LEADDicomDS1.InfoFlags);
   ShowMessage( 'Class: ' + strClass + Chr(10) + Chr(13) + 'Flags: ' + strFlags);
end;