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:


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í (http://neftali.clubdelphi.com/?p=185), antes de poder ejecutarlo?

[gdlrinfo]

¿Has realizado los pasos necesarios que se describen aquí (http://neftali.clubdelphi.com/?p=185), 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 !