Привет All!
Не удаётся вызвать метод Execute: выдаётся ошибка Access violation.

Код такой:

  TPackage* PackageS = new TPackage(NULL);
  PackageS->LoadFromStorageFile(L"C:\\Test\\Test.dts", L"", NULL,NULL, NULL, NULL);
  PackageS->Execute();
  delete PackageS;

Где файл: "C:\\Test\\Test.dts" — пакет сохраненный как Structured storage file.

Здравствуйте, -777-, Вы писали:

7>Привет All!
7>Не удаётся вызвать метод Execute: выдаётся ошибка Access violation.

7>Код такой:


7>

7>  TPackage* PackageS = new TPackage(NULL);
7>  PackageS->LoadFromStorageFile(L"C:\\Test\\Test.dts", L"", NULL,NULL, NULL, NULL);
7>  PackageS->Execute();
7>  delete PackageS;
7>

7>Где файл: "C:\\Test\\Test.dts" — пакет сохраненный как Structured storage file.

var
package : Variant;
begin
package := CreateOleObject('DTS.PACKAGE');
package.LoadFromStorageFile(L"C:\\Test\\Test.dts", L"", NULL,NULL, NULL, NULL);
package.Execute;

end;
Должно работать с Уважением Алексей
Столкнулся с этим же в Delphi сделал так: