[oleg_c#]

Проблема с открытием документа word 2003
Здравствуйте.
Приходится разбираться с чужим кодом.
Приложение windows приложение (среда разработки Delphi2010) работает с документами Word 2010, но выкидывает exception в случае, когда установлен word2003 (точнее windows 7 c word2010 работает, а windows XP и word2003 не работает)
Ошибка выбрасывается в методе Оpen , функция полностью приведена ниже

Код:

1 2 3 4 5

// Загрузка шаблона MS Word function OpenSample(var msw: OleVariant; path: string): boolean; begin  msw.Documents.Open(path);                 // msw-System.OleVariant здесь получаем исключение end;

Пожалуйста, подскажите, в чем дело?

[NumLock]

msw пустое?

[oleg_c#]

точно не скажу, но
ранее вызвана функция

Код:

1 2 3 4 5 6 7

// Открываем Word  if not OpenWord(msword) then  begin    ShowMessage('Ошибка открытия MS Word');    exit;  end;  msword.Application.DisplayAlerts := false; // отключаем предупреждения

документ word уже создан...

[poli-smen]

Сообщение от oleg_c#

точно не скажу, но

А отладчик что по этому поводу говорит?

[oleg_c#]

с отладкой я не разговариваю.. не то что бы принципиально.
просто второй раз открыл делфи код.
пользуюсь ShowMessage.. и открылись новые подробности дела.
файл не открывается, потому что его НЕТУ!!
более ранний метод не копирует шаблон , метод выглядит так CopyFile(PChar(templatepath + cbTemplate.Items[cbTemplate.ItemIndex]),
PChar(frmMain.sdReport.FileName), true)
почему не копирует для связки windows xp и word2003

НЕПОНИМАЮ!?

[Страдалецъ]

function OpenSample(var msw: OleVariant; path: string): boolean;
предполагается что у вас до вызова функции был предварительно создан объект Word.

Код:

1 2 3

WordApp := CreateOleObject('Word.Application'); ... OpenSample(WordApp, 'c:\test.doc');

[poli-smen]

Сообщение от oleg_c#

с отладкой я не разговариваю.. не то что бы принципиально.
просто второй раз открыл делфи код.
пользуюсь ShowMessage.. и открылись новые подробности дела.
файл не открывается, потому что его НЕТУ!!
более ранний метод не копирует шаблон , метод выглядит так CopyFile(PChar(templatepath + cbTemplate.Items[cbTemplate.ItemIndex]),
PChar(frmMain.sdReport.FileName), true)
почему не копирует для связки windows xp и word2003

НЕПОНИМАЮ!?

Что говорит по этому поводу GetLastError?

p.s. Если CopyFile не может скопировать файл, она возвращает Ложь (False) и устанавливает в LastError код ошибки (справка в MSDN, справка по-русски).
Узнать какая ошибка случилась можно примерно так:

Код:

1	if not CopyFile(.....) then ShowMessage(SysErrorMessage(GetLastError));

[oleg_c#]

SysErrorMessage говорит что не удается найти указанный путь

[poli-smen]

Сообщение от oleg_c#

SysErrorMessage говорит что не удается найти указанный путь

Значит так и есть.
Проверяй примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

var   FileName1, FileName2: String; begin   FileName1 := templatepath + cbTemplate.Items[cbTemplate.ItemIndex];   if not FileExists(FileName1) then     raise Exception.CreateFmt('Не найден файл "%s"', [FileName1]);     FileName2 := frmMain.sdReport.FileName;   if not DirectoryExists(ExtractFileDir(FileName2)) then     raise Exception.CreateFmt('Не найден каталог "%s"', [ExtractFileDir(FileName2)]);     if not CopyFile(Pointer(FileName1), Pointer(FileName2), True) then RaiseLastOSError; end;

[oleg_c#]

да так и есть
// Открытие MS Word

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

function OpenWord(var msw: OleVariant): boolean; begin   try     OpenWord := false;    // MsWord.Documents.Add;     msword := CreateOleObject('Word.Application');    // MsWord.Documents.Add;     //ShowMessage('open word'); nil   // msword:=CreateOleObject('Word.Basic');  //  msword.AppShow;     OpenWord := true;   except     try      // msword := CreateOleObject('com.sun.star.ServiceManager');     except       OpenWord := false;     end;   end; end;   // Загрузка шаблона MS Word function OpenSample(var msw: OleVariant; path: string): boolean; begin //ShowMessage(path);  //msw.Documents.OpenOld(path,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam);  //msw.ConnectTo(msw.ActiveDocument);  msw.Documents.Open(path);   // msw.FileOpen(path);   //msw.Documents.Add(path,EmptyParam);     OpenSample := true;     //ShowMessage(path); end;   и есть

[poli-smen]

Сообщение от oleg_c#

да так и есть
// Открытие MS Word

Код:

Почему созданный объект здесь присваивается какой-то непонятной переменной "msword" и зачем этой функции тогда параметр "msw"?

Сообщение от oleg_c#

Код:

А как вызов этой функции происходит?