da-soft - Data Access Technologies

Additional

dbCAP

AnyDAC

ThinDAC

NCOCI8

Topic: How to insert a TStringList with the databasename

Forum List » AnyDAC » v 1.x General English

christian
User

Junior Boarder

Posts: 11

Karma: 0

How to insert a TStringList with the databasename

Posted: 2008/03/19 12:44

Hi,

In the NCOCI I used the code below to insert a TStringList with the database name, but as I can make the same thing in the AnyDAC 1.x, of form that I get the same resulted.


 var
  Str: TStringList;
begin
    Str:= TStringList.Create;
    TOCICustomDatabase.GetObjectsList(OCIDatabase.DatabaseName, Str, '', okService, False);
    Str.Add(OCIDatabase.ServerName);

With my best regards,

Christian Balz

Diman

Admin

Posts: 1461

Karma: 18

Re:How to insert a TStringList with the databasename

Posted: 2008/03/19 12:50

Do you need to get the list of TNS names ?

christian
User

Junior Boarder

Posts: 11

Karma: 0

Re:How to insert a TStringList with the databasename

Posted: 2008/03/19 13:25

Yes. I need the list of TNS names.

regards,

Christian Balz

Diman

Admin

Posts: 1461

Karma: 18

Re:How to insert a TStringList with the databasename

Posted: 2008/03/20 01:47


 uses
  uADPhysOraclWrapper;
.....
var
  oLib: TOCILib;
.....
oLib := TOCILib.Create('', '', nil);
try
  oLib.GetTNSServicesList(Str);
finally
  oLib.Free;
end;

christian
User

Junior Boarder

Posts: 11

Karma: 0

Re:How to insert a TStringList with the databasename

Posted: 2008/03/20 06:03

thank you Diman

att,
Christian Balz

Forum List » AnyDAC » v 1.x General English