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 操作系统时间与web标准时间校正

Delphi 通用程序自动更新升级

Delphi messagebox 和 messagedlg用法

Delphi 扫二维码并识别

Delphi xe5 android 解决ide真机调试不起问题

Delphi 查找指定目录，指定扩展名的所有文件名

Delphi 多重循环

Delphi 在memo查找字符并定位

Delphi 创建一个进程并读取其控制台输出内容

Delphi程序不受windows日期格式的影响

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

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