Correr un DTS de sql server desde delphi

[Neftali [Germán.Estévez]]

No es muy complejo, en realidad es bantante sencillo (sobre todo si ya tienes el DTS creado); Aquí tienes el ejemplo completo -compilado-(Delphi 6):

Código Delphi [-]
  var
     oPackage:TPackage;
     vHost: OleVariant;
   begin
     try
       // inicializar
       CoInitialize(nil);
       //Crear el objeto
       oPackage:=TPackage.Create(nil);
       // Cagarlo
       oPackage.LoadFromSQLServer(
         Edit1.Text,     // Servidor
         Edit2.Text,     // Usuario
         Edit3.Text,     // Contraseña
         256,'', '', '',
         Edit4.Text,     // Nombre del DTS
         vHost);
       // ejecutar
       oPackage.UnInitialize;
       oPackage.Execute;
       MessageDlg('Ejecución correcta.', mtInformation, [mbOK], 0);
     except
       raise;
     end;