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

最新推荐文章于 2023-02-27 09:32:50 发布

weixin_30918415

最新推荐文章于 2023-02-27 09:32:50 发布

阅读量201

点赞数

文章标签：数据库

原文链接：http://www.cnblogs.com/gaiyang/archive/2011/08/20/2147415.html

版权

一。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 .

转载于:https://www.cnblogs.com/gaiyang/archive/2011/08/20/2147415.html