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.