Definition: IMetabaseDefinition;
The Definition property returns the current repository description, stored in repositories manager.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
MDef: IMetabaseDefinition;
Begin
MB := MetabaseClass.Active;
MDef := MB.Definition;
Debug.WriteLine(MDef.LogonData.ParamValue("SERVER"));
Debug.WriteLine(MDef.LogonData.ParamValue("SCHEME"));
End Sub UserProc;
After executing the example a name of server and scheme, to which the current connection is performed, is displayed in the development environment console.
See also: