Delphi执行DTS包

SQL Server 提供的DTS  API是一组COM组件，可以调用DTS相关功能

根据SQL Server帮助里的例子，改写成了Delphi
执行DTS包

///
uses ..COMObj;

var
  ObjPackage, ObjStep, ObjTask, ObjExecPkg: variant;
begin
  ObjPackage := CreateOLEObject('DTS.Package2');
  ObjPackage.failonerror := true;
  ObjStep    := ObjPackage.steps.new;
  ObjTask    := ObjPackage.tasks.new('DTSExecutePackageTask');
  ObjExecPkg := ObjTask.customtask;

  ObjExecPkg.PackagePassword := 'user';
  ObjExecPkg.FileName := 'C:/DTS_UE/TestPkg/VarPubsFields.dts';
  ObjExecPkg.Name := 'ExecPkgTask';

  ObjStep.TaskName := objExecPkg.Name;
  ObjStep.Name := 'ExecPkgStep';
  ObjStep.ExecuteInMainThread := True;

  ObjPackage.Steps.Add(ObjStep);
  ObjPackage.Tasks.Add(ObjTask);
  ObjPackage.Execute;

  ObjExecPkg := Null;
  ObjTask := Null;
  ObjStep := Null;

  ObjPackage.UnInitialize;
end;