[JVCL-Checkins] SF.net SVN: jvcl:[12682] trunk/jvcl/run/JvDBLogonDialogOdac.pas

[<jfu...@us...>]

Revision: 12682
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12682&view=rev
Author:   jfudickar
Date:     2010-01-28 23:20:13 +0000 (Thu, 28 Jan 2010)

Log Message:
-----------
TJvDBOdacLogonDialog.FillDatabaseComboBoxDefaultValues implemented, so that the database combobox is filled with values from the tnsnames list.

Modified Paths:
--------------
    trunk/jvcl/run/JvDBLogonDialogOdac.pas

Modified: trunk/jvcl/run/JvDBLogonDialogOdac.pas
===================================================================
--- trunk/jvcl/run/JvDBLogonDialogOdac.pas	2010-01-28 20:53:01 UTC (rev 12681)
+++ trunk/jvcl/run/JvDBLogonDialogOdac.pas	2010-01-28 23:20:13 UTC (rev 12682)
@@ -187,7 +187,7 @@
 
 uses
   SysUtils, StdCtrls, Dialogs,
-  OraClasses, OraError, OraCall,
+  OraClasses, OraError, OraCall, OraServices,
   JvDSADialogs, JvDBPasswordDialogOdac, JvResources;
 
 //=== { TJvDBOdacLogonDialogOptions } ========================================
@@ -440,7 +440,19 @@
 end;
 
 procedure TJvDBOdacLogonDialog.FillDatabaseComboBoxDefaultValues(Items: TStrings);
+var
+  Enum: TOraServerEnumerator;
+  List: TStringList;
 begin
+  List := TStringList.Create;
+  Enum := TOraServerEnumerator.Create;
+  try
+    Enum.GetServerList(List);
+    Items.AddStrings(List);
+  finally
+    Enum.Free;
+    List.Free;
+  end;
 end;
 
 class function TJvDBOdacLogonDialog.GetDBLogonConnectionListClass:


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.