DTS Desde Delphi

[gdlrinfo]

Hola amigos tengo una duda se puede ejecutar un dts desde Delphi sin usar el DTSRUN de MS-DOS encontré un ejemplo pero la verdad no anda me da un error en el Delphi xe6 lo pongo si quieren por ahí saben de que se trata:

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

end;

Este ejemplo me tira un error "ole error 80040E4D"

Gracias como siempre saludos !!!!

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

¿Has realizado los pasos necesarios que se describen aquí, antes de poder ejecutarlo?

[gdlrinfo]

Empezado por Neftali

¿Has realizado los pasos necesarios que se describen aquí, antes de poder ejecutarlo?

Buenassss si los hice he incluso baje el fuente que esta ahí y no anda yo uso el XE6 y Windows 7 nose si tendrá algo que ver y ya que estamos hago otra consulta en caso de ejecutar el DTS hay manera de ver el progreso por ejemplo si es ejecutado con el DTS RUN va mostrando como trabaja hay manera de hacerlo sobre Delphi gracias!!! como siempre !!! Abrazos !