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

Question

rt

Answer 1

直接用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安装上

Answer 2

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