delphi下如何调用sqlserver2005的ssis包（dts）

[westuser]

rt

[panrongzeng]

直接用DELPHI转换就可以了,为什么用DTS?
delphi调用dts

function execdts(strdts_name: string): boolean;
var
n: variant;
oconnection: variant;
ostep,otask,ocustomtask,mopackage: variant;
begin
mopackage := createoleobject(dts.package2);
oconnection := mopackage.connections.new(sqloledb);
ostep := mopackage.steps.new;
otask := mopackage.tasks.new(dtsexecutepackagetask);
ocustomtask := otask.customtask;
mopackage.failonerror := true;

ocustomtask.packagepassword := user;
ocustomtask.filename := strdts_name;
ocustomtask.name := execpkgtask;

ostep.taskname := ocustomtask.name;
ostep.name := execpkgstep;
ostep.executeinmainthread := true;

mopackage.steps.add(ostep);
mopackage.tasks.add(otask);
try
mopackage.execute;
except
ocustomtask := n;
otask := n;
ostep := n;
mopackage.uninitialize;
execdts := false;
exit;
end;

execdts := true;
ocustomtask := n;
otask := n;
ostep := n;
mopackage.uninitialize;
end;
//要先在import type library里把dtspkg.dll和dtspump.dll安装上

[westuser]

调用方法和调用2000的dts一样是吗？

[wychero]

学习，学习

[mjtalhx]

学习学习