Delphi UDL文件创建

本文整理自网络，侵删。

 
procedure WriteUDLFile (const UDLFile: string);
const
 // Default ConnectionString used by our application (SQL Server)
 SConnect = 'Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=OurExampleDB;' +
            'Data Source=OURSERVER;Packet Size=4096';
var
 DataInitialize: IDataInitialize;
 wUDLFile: array[0..MAX_PATH - 1] of WideChar;
begin
 // Create the DataInitialize object
 DataInitialize := CreateComObject(CLSID_DataLinks) as IDataInitialize;

 // Convert AnsiString parameter to WideChar
 StringToWideChar (UDLFile, @wUDLFile, MAX_PATH);

 // Call method WriteStringToStorage with the default ConnectionString above. www.delphitop.com
 if Failed(DataInitialize.WriteStringToStorage(wUDLFile, SConnect, CREATE_NEW)) then
   raise Exception.Create('Can''t write UDL');
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
 WriteUDLFile('C:\Trash\test.udl');
end;
 

相关阅读 >>

Delphi 得到ip地址最后一个点后面的值

Delphi调用http接口上传文件

Delphi tscreen 类 - 通过 screen 更换光标

Delphi 四舍五入保留一位或两位小数

Delphi函数指针，用于加载dll

Delphi中webbrowser自动登录路由器网页

Delphi system.net.httpclient 下载

Delphi 字符串查找函数

Delphi 获取memo文本光标的位置

Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi UDL文件创建