ISolrSearchEngineService.Cores

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    SharedParams: ISharedParams;
    SearchEngine: ISolrSearchEngineService;
    Cores: ISolrSearchEngineCores;
    Core: ISolrSearchEngineCore;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    //Get search and indexing parameters
    SharedParams := MB.SpecialObject(MetabaseSpecialObject.SharedParams).Bind As ISharedParams;
    SearchEngine := SharedParams.SearchEngine As ISolrSearchEngineService;
    Cores := SearchEngine.Cores;
    //View list of available Solr instances
    For i := 0 To Cores.Count - 1 Do
        Core := Cores.Item(i);
        Select Case (Core.Type As Integer)
            Case 0: Debug.Write("Search by metadata. URL: ");
            Case 1: Debug.Write("Search by data. URL: ");
            Case 2: Debug.Write("Search by free dimensions. URL: ");
        End Select;
        Debug.WriteLine(Core.Uri + " (Language identifier: " + Core.Locale.ToString + ')');
    End For;
End Sub UserProc;