delphi获取oracle的tnsnames.ora服务器名

最新推荐文章于 2016-07-21 08:48:00 发布

wanghanltd

最新推荐文章于 2016-07-21 08:48:00 发布

阅读量801

点赞数

文章标签： delphi oracle 服务器 server

本文链接：https://blog.csdn.net/wanghanltd/article/details/2341710

版权

procedure Tdatalink.FormCreate(Sender: TObject);
var
ARegistry:TRegistry;
froot:string;
Mylist:TStringList;
dbname:String;
a:array of char;
i:integer;
j:integer;
begin
      f_main.Timer1.Enabled:=false;
      ARegistry:=TRegistry.Create;
      ARegistry.RootKey:=hkey_local_machine;
      if ARegistry.OpenKey('Software',false) then
         begin
            ARegistry.OpenKey('oracle',false);
            froot:=ARegistry.ReadString('VOBHOME2.0')+'/NETWORK/ADMIN/tnsnames.ora';
         end;
      Mylist:=TstringList.Create;
      Mylist.LoadFromFile(froot);
      j:=3;
      while j<mylist.Count do
         begin
             dbname:=MyList.Strings[j];
             SetLength(a,length(dbname)+1);
             pchar(a):=pchar(dbname);
             if length(a)=3 then j:=j+1;
             if a[0]<>' ' then
               begin
               i:=0;
               dbname:='';
               while a[i]<>'=' do
                   begin
                     dbname:=dbname+a[i];
                     i:=i+1;
                   end;
                   i_server_add.items.Add(dbname);
               end;
               j:=j+1;
         end;
end;