本文整理自网络,侵删。
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 tdsauthenticationmanager的用法
更多相关阅读请进入《Delphi》频道 >>