GetInfoDS Example for Delphi

var
   sClass, sFlags: String;
begin
   LEADDicom1.EnableMethodErrors := true;
   try
   begin
      LEADDicom1.GetInfoDS();
      LEADDicom1.FindClassIOD(LEADDicom1.InfoClass);
      sClass := LEADDicom1.CurrentIOD.Name;
      sFlags := IntToHex(LEADDicom1.InfoFlags, 0);
      ShowMessage('Class: ' + sClass + #10 + #13 + 'Flags: ' + sFlags);
   end;
   except
      ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
   end;
end;