delphi 调用udl文件读写数据库连接信息

        一。udl文件关联程序是OLE   DB   CORE   SERVICE，所以双击会弹出DATA   LINK   PROPERTIES对话框，可以有记事本打开，

记录了数据库联接的相关信息。  IDataInitialize它是OLEDB单元提供的一个接口， 通过它可以创建读写数据库连接的初始信息到指定的UDL文件。

示例：

 

 

 

implementation
  uses oledb,ActiveX,ComObj;  //引入单元
{$R *.dfm}

{ TForm1 }

procedure TForm1.Btn1Click(Sender: TObject);
var
   fileName,serName:String;
begin
  fileName:=ExtractFilepath((Application.ExeName))+'sql.UDL';
 Init_ConnectionString(fileName,serName);
 mmo1.Lines.Add(serName);
 //serName为：Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;
 //Initial Catalog=Northwind;Data Source=34F6596280EA4B5\sql2000

 try
    Con1.Open;
    mmo1.Lines.Add(BoolToStr(Con1.Connected));   //-1
 except
   mmo1.Lines.Add('异常了');
   mmo1.Lines.Add(BoolToStr(Con1.Connected));  //0
 end;

end;


procedure TForm1.Init_ConnectionString(FileName: string; var ConString: string);  //ConString用了传址方式
var
  DataInit:IDataInitialize;                                       //定义接口
  fname,s:POleStr;
  tmp:widestring;
begin
  tmp:= filename;                                                 //注意必须经过widString转化，否则得不到值
  fname:=POleStr(tmp);
  DataInit:=CreateComobject(CLSID_DATALINKS) as IDataInitialize;  //创建接口
  DataInit.LoadStringFromStorage(fname,s);
  mmo1.Lines.Add(s);
  ConString:=s; 
  DataInit:=nil;                                                  //释放
end;

end.