Падает Ахапта-2009 при использовании .NET/CLRInterop/Word

[Delfins]

Такой вот код (ниже). Ахапта падает именно при вызове функции.. Сам Word то всё делает, открывает фаил, можно закрыть сам Word (без открытия дока).
Сначала была проблема, что подавал NULL в CLRInterop неправильно, но потом нашёл "хияцк" - http://rik-ax.blogspot.com/2008/01/p...lrinterop.html
Вот не понимаю где теперь проблема.. вызов вроде правильный.. может чего забыл? Мистический `missing` то в Quit() работает...

Пробую написать интерфейс для Word/документа-оботрота через .NET/CLR

Падают все тру вызова.. сами обьекты до Open()/Add() существуют

static public void ESL_word_test(Args _args)
{
    //> Missing hijack
    System.Type                 type = System.Type::GetType("System.Reflection.Missing");
    System.Reflection.FieldInfo info = type.GetField("Value");
    System.Object               missing = info.GetValue(null);
    //< Missing hijack

    str _filename = "C:\\............dot";

    Object clrException;
    Object clrExceptionOwner;

    Microsoft.Office.Interop.Word.ApplicationClass wc;
    Microsoft.Office.Interop.Word.DocumentClass wd;
    Microsoft.Office.Interop.Word.Documents wds;
    Microsoft.Office.Interop.Word.Bookmarks wb;

    System.Object oTrue = true;
    System.Object oFalse = false;
    System.Object oFormat = Microsoft.Office.Interop.Word.WdOpenFormat::wdOpenFormatAuto;
    System.Object oDirection = Microsoft.Office.Interop.Word.WdDocumentDirection::wdLeftToRight;
    System.Object oEmptyStr = "";
    //System.Object oEncoding = Microsoft.Office.Core.MsoEncoding::msoEncodingAutoDetect;
    System.Object oFilename = _filename;
    ;

    try
    {
        wc = new Microsoft.Office.Interop.Word.ApplicationClass();
        wc.set_Visible(true);

        wds = wc.get_Documents();
        if (!wds)
            throw error("no get_Documents");

        if (1)
            wds.Add(byref missing,byref missing,byref missing, byref oTrue);

        if (0)
        wd = wds.Open(
                    byref oFilename,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing,
                    byref missing
                );

        if (0)
        wd = wds.Open(
                    byref oFilename,
                    byref oFalse,
                    byref oTrue ,
                    byref oFalse,
                    byref oEmptyStr,
                    byref oEmptyStr,
                    byref oFalse,
                    byref oEmptyStr,
                    byref oEmptyStr,
                    byref oFormat,
                    byref missing,
                    byref oFalse,
                    byref oFalse,
                    byref oDirection,
                    byref oTrue,
                    byref missing
                );
    }
    catch (Exception::CLRError)
    {
        setprefix("CLR error");
        clrException = CLRInterop::getLastException();
        if (CLRInterop::isNull(clrException) == false)
        {
            error(clrException.get_Message());
            error(clrException.get_StackTrace());

            clrExceptionOwner = clrException.get_InnerException();
            if (CLRInterop::isNull(clrExceptionOwner) == false)
            {
                error(clrExceptionOwner.get_Message());
            }
        }
    }
    catch
    {
        info("Ax stop...");
    }

    if (wc)
    {
        try
        {
            wc.Quit(byref missing, byref missing, byref missing);
        }
        catch
        {
            setprefix("CLR Word-quit error");
            clrException = CLRInterop::getLastException();
            if (CLRInterop::isNull(clrException) == false)
            {
                error(clrException.get_Message());
            }
        }
    }
}

[gl00mie]

Хм, у меня тоже валится... Может, попробовать ядро поновее? Я проверял на 3968, но сейчас уже какие 43хх-е билды есть. Еще занятно, что Word явно требует передачи параметров по ссылке, а Excel - нет...

[Delfins]

Кстати, wds.Add() с некоторами параматрами всё работает ( в дебагере проходил - Word нормально открылся), но как только вызываешь потом Close(), так падает..
Скорее всего что-то с за/отгрузкой .NET библиотек.. слишком рано или поздно. Черт знает, я не спец по .NET :|

[someOne]

Цитата:

Сообщение от Delfins

Кстати, wds.Add() с некоторами параматрами всё работает ( в дебагере проходил - Word нормально открылся), но как только вызываешь потом Close(), так падает..
Скорее всего что-то с за/отгрузкой .NET библиотек.. слишком рано или поздно. Черт знает, я не спец по .NET :|

На мой взгляд это все же не баг. Класс Microsoft.Office.Interop.Word.ApplicationClass, как описано тут (http://msdn.microsoft.com/ru-ru/libr...ffice.11).aspx)

Цитата:

This method supports the .NET Framework infrastructure and is not intended to be used directly from your code.

Не предназначен для "внешнего" использования.
Думаю, "копать" нужно в сторону

Microsoft.Office.Interop.Word._Application     word;

[Delfins]

Я склоняюсь, что этот текст был "Копи-Пейст"..
Да и ктому же, методы возвращающие внутренние переменныие "коллекции" идут на свой же интерфеис.


По ходу дела Buffer Overflow Exception ...
скорее всего Ахапта не буделала память, или Word что-то пытается обратно отдать..

Цитата:

Problem signature:
Problem Event Name: BEX
Application Name: Ax32.exe
Application Version: 5.0.1500.3761
Application Timestamp: 4cd58bc2
Fault Module Name: StackHash_0a9e

[someOne]

Решением данной проблемы может быть такой вариант:

Написал NET сборку, которая выполняет все необходимые операции с WORD- ом,
и затем уже ее использую в Аксапта.

Минус данного решения таков, что придется подключить в reference Axapta, а также копировать ее на каждого клиента, работающего с WORD - ом.
(В папку BIN клиента. В GAC добавлять не обязательно)
Но другого решения, кажется нет.

- COM технология работы с WORD - не работоспособна в Axapta на последних версиях OS (у нас глючит на WIN SERVER 2008 терминал,
обсуждалось на форуме)
- NET - не работает напрямую из за "падения" Аксапты. (см обсуждение выше)

После такого случая заявления Microsoft о том что ее решения, в т.ч Ax "Хорошо интегрируются с продуктами Office" - звучат слишком самоуверенно


Для того чтобы заработало, написал такой класс на С# в Visual Studio

namespace AxFunctions
{
    public class word
    {
        Microsoft.Office.Interop.Word.ApplicationClass app;
        Microsoft.Office.Interop.Word.Document doc;

        object missing = System.Reflection.Missing.Value;

        public Microsoft.Office.Interop.Word.Document document()
        {
            return doc;
        }

        public void openFile(System.Object fileName)
        {
            if (app == null)
            {
                app = new Microsoft.Office.Interop.Word.ApplicationClass();
            }

            app.Visible = true;

            doc = app.Documents.Open(ref fileName, ref missing, ref missing, ref missing,
                                    ref missing, ref missing, ref missing, ref missing,
                                    ref missing, ref missing, ref missing, ref missing,
                                    ref missing, ref missing, ref missing, ref missing);

        }
        public void setFieldValue(string fieldName, string fieldValue)
        {
            Microsoft.Office.Interop.Word.FormFields fields = doc.FormFields;

            foreach (Microsoft.Office.Interop.Word.FormField field in fields)
            {
                if (field.Name == fieldName)
                {
                    field.Range.Text = fieldValue;
                }
            }

        }
    }
}

Мне нужны были лишь две функции, так как только они требуются для моих отчетов word:
- открыть документ
- присвоить заданное значение полю документа по его имени.

Если кому то потребуется что то еще - это легко сделать.


Ну а работать с этим в Аксапта очень просто:

static void Job22(Args _args)
{
    AxFunctions.word word;
    ;

    word = new AxFunctions.word();

    word.openFile("c:\\Contract.doc");

    word.setFieldValue("NumContract", "1043564/03-2010"); // NumContract - это имя поля в шаблоне документа

}

Прилагаю готовую DLL, если кому то этих двух функций будет достаточно.

[bio_unit]

Приветсвую!
Ни кто случайно не нашел решение данного вопроса без разработки отдельной dll?
Неужели без dll никак?

[sukhanchik]

Пока только вариант в отдельном потоке работает (класс Thread)

[MikeR]

У меня в офисе 2010 отработал только такой вариант.

public void setFieldValue(string fieldName, string fieldValue)
        {

            Object oBookMark = fieldName;
            doc.Bookmarks.get_Item(ref oBookMark).Range.Text = fieldValue;

        }

[A_BAS]

Эксгумирую тему.
Пробую открыть документ Word через Microsoft.Office.Interop.Word.
Документ открывается, но при этом падает клиент.
Через Thread пробовал, тоже падает... Но не клиент, а поток.
У меня складывается впечатление, что проблема в передаче параметров по ссылке.
Кто-нибудь поборол уже проблему? (dll не предлагать) =)

[Pustik]

вот так работает :

static public void ESL_word_test(Args _args)
{
    System.Type                 type = System.Type::GetType("System.Reflection.Missing");
    System.Reflection.FieldInfo info = type.GetField("Value");
    System.Object               missing = info.GetValue(null);

    Microsoft.Office.Interop.Word.ApplicationClass wc;
    Microsoft.Office.Interop.Word.Documents wds;
    CLRObject                               wdso;
    ;

    try
    {
        wc = new Microsoft.Office.Interop.Word.ApplicationClass();
        wc.set_Visible(true);

        wds = wc.get_Documents();
        if (!wds)
            throw error("no get_Documents");

        //wds.Add(byref missing,byref missing,byref missing, byref oTrue);
        wdso = wds;
        wdso.Add(missing,missing,missing,true);
        
    }
    catch (Exception::CLRError)
    {
        setprefix("CLR error");
    }
}

все-таки вылетала Аксапта из-за вот такой конструкции :

wds.Add(byref missing,byref missing,byref missing, byref oTrue);

хотя и при компиляции ошибок не выдает
вот здесь похожая картина: Excel .NET вставка картинки