ADO Connection in eine UDL-Datei speichern

[shmia]

Mit folgender Procedure kann man einen ADO Connection String in eine UDL-Datei speichern.
Man sollte darauf achten, dass der Connection String nicht schon seinerseits auf eine UDL-Datei verweist.

Delphi-Quellcode:

{**************************************************************************
 * NAME:    SaveConnectionToUDLFile
 * DESC:    stores a connection string into a UDL file
 *************************************************************************}
procedure SaveConnectionToUDLFile(const connstr:string; const filename:string);
  procedure SaveWideStringToFile(const ws:WideString; const filename:string);
  var
    fs : TFileStream;
  begin
    fs := TFileStream.Create(filename, fmCreate);
    try
      fs.WriteBuffer(ws[1], Length(ws)*sizeof(Widechar));
    finally
      fs.Free;
    end;
  end;
var
  ws : WideString;
begin
  ws := ' [oledb]'#13#10+
    '; Everything after this line is an OLE DB initstring'#13#10+
    Trim(connstr);
  s[1] := Widechar($FEFF);

  SaveWideStringToFile(ws, filename);
end;

[edit=Matze]Code formatiert. Mfg, Matze[/edit]