[nikе]

Сделал я COM сервер на C#.
Проверил его работу через VB script. Метод запустился успешно:
Dim Orbit
Set Orbit = CreateObject("ComNet.TestComponent")
Orbit.About

Потом в Bricscad 10 попробовал:
(setq ObjComNet (vlax-create-object "ComNet.TestComponent"))
(vlax-invoke-method ObjComNet 'About) - тоже на ура все работало.

А вот почему-то в AutoCAD (ну и в Gstarcad) vla-объект образуется, но приложение не видит его методов и свойств. Сталкивался кто с таким нежеланием честно работать с NET COM сервером?????? Есть ли решение этой проблемы?

[Дима_]

Попробуй имя метода взять в кавычки

[nikе]

C кавычками тоже пробовал, выдает "неправильный аргумент".
(vlax-invoke-method ObjComNet "About")
Может быть это особенность AutoCAD - не работать с ненативными серверами?

[Дима_]

а что нам скажет (vlax-dump-object ObjComNet T)

[nikе]

(vlax-dump-object ObjComNet T) - покажет нам пустые методы и свойства, т.е. их нет, даже не нули.
В Bricscad тоже оно показывает, что свойств и методов нет, однако он их запускает, так же как и VB script...

[Александр Ривилис]

А почему их нет? About это что?

[nikе]

Я пришел домой и выполнил тест еще раз
Результаты в Bricscad 10:

: (setq ObjComNet (vlax-create-object "ComNet.TestComponent"))
#<VLA-OBJECT _TestComponent 0315002c>
: (vlax-invoke-method ObjComNet 'About)
"This component wrote on C#"
: (vlax-dump-object ObjComNet T)

; _TestComponent 0315002c : (null)
;
; Property values :
;
;
; Methods supported :
;
T

результаты в AutoCAD 2011:
Команда: (setq ObjComNet (vlax-create-object "ComNet.TestComponent"))
#<VLA-OBJECT _TestComponent 0b2df3ec>

Команда: (vlax-invoke-method ObjComNet 'About)
; ошибка: элемент не найден: ABOUT

Команда: (vlax-dump-object ObjComNet T)
; _TestComponent: nil
; Нет свойств
; Нет методов
T


->А.Ривилис
метод About возвращает строку "This component wrote on C#"

[Александр Ривилис]

Думаю, что без исходника здесь не разобраться.

P.S.: Кстати попробуй вместо:

Код:

[Выделить все]

(vlax-invoke-method ObjComNet 'About)

использовать

Код:

[Выделить все]

(vlax-invoke ObjComNet 'About)

[nikе]

СПАСИБО!!!! Александр Ривилис!!!
Ура! Работает!!!
(vlax-invoke ObjComNet 'About)

[Александр Ривилис]

Сообщение от nikе СПАСИБО!!!! Александр Ривилис!!! Ура! Работает!!! (vlax-invoke ObjComNet 'About)

Теперь бы еще понять чего не хватает для того, чтобы (vlax-dump-object ObjComNet T) возвращал свойства и методы объекта.

[Supermax]

http://www.compress.ru/article.aspx?...rt=index21ext1

...DualInterfaces Идея двойных интерфейсов очень проста. Сервер реализует одновременно некоторый интерфейс, оформленный по стандартам COM (VTable), идиспинтерфейс, доступный через IDispatch. При этом интерфейс VTable должен быть унаследован от IDispatch и иметь идентичный с диспинтерфейсом набор методов. Такое оформление сервера позволяет клиентам работать с ним наиболее удобным для каждого клиента образом. Клиенты, использующие VTable, вызывают методы интерфейса напрямую, а клиенты, использующие позднее связывание, — через методы IDispatch. Большинство OLE-серверов реализуют двойной интерфейс. ...

[nikе]

Прилагаю исходник COM сервера:

[Pastor]

1. По поводу

Команда: (vlax-invoke-method ObjComNet 'About) ; ошибка: элемент не найден: ABOUT

У тебя About - это свойство. А ты пытаешься вызвать его как метод.
Нужно (vlax-get-property ObjComNet 'About).

2. Лучше файл Class1.cs написать так:

Код:

[Выделить все]

using System;
using System.Windows.Forms;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;


namespace ComNet
{
    //Этот интерфейс нужен для взаимодействия с COM. 
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    [Guid("254681E1-0824-4fd0-BD4A-05813A434DE1")]
    public interface ITestComponent
    {
        int Mul(int First, int Second);
        int Square { get; set; }
        String About(); // лучше сделать методом.
    }

    //Данный класс реализует .NET интерфейс ITestComponent, но в СОМ не экспонируется.
    [ClassInterface(ClassInterfaceType.None)]
    [ComDefaultInterface(typeof(ITestComponent))]
    [Guid("2B8F30EF-C587-418e-8768-F28E98FD80BB")]
    public class TestComponent : ITestComponent
    {
        // Закрытые данные экземпляра:
        private int m_iSquare;

        // Конструктор объекта класса:
        public TestComponent()
        {
            m_iSquare = 0;
        }
        
        // Свойства:
        public int Square
        {
            get
            {
                return m_iSquare;
            }
            set
            {
                m_iSquare = value * value;
            }
        }

        // Методы:
        public String About()
        {
            Form1 dlg = new Form1(); // класс Form1 должен быть internal, чтобы не экспонировать его в СОМ.
            dlg.ShowDialog();
            return "This component wrote on C#";
        }
        public int Mul(int First, int Second)
        {
            return First * Second;
        }
    }
}

Тогда в консоли lisp можно увидель следующее:

_$ (vl-load-com) _$ _$ (setq srv (vlax-create-object "ComNet.TestComponent")) #<VLA-OBJECT ITestComponent 0464fa70> _$ (vlax-dump-object srv t) ; ITestComponent: nil ; Property values: ; Square = 0 ; Methods supported: ; About () ; Mul (2) T _$ (vlax-invoke-method srv 'mul 4 5) 20 _$ (vlax-invoke-method srv 'about) "This component wrote on C#" _$

3. Чтобы получить указанный результат мне потребовалось прочитать
Троелсен Эндрю. Язык программирования С# 2008 и платформа .NET 3.5, стр 1313 - 1319.

4. Существует ещё целая гора нюансов, связанная с атрибутами, описывающими классы, интерфейсы, методы, параметры методов и т.д., о которых нужно читать в справке MSDN. Я специалистом в этом вопросе не являюсь. Offtop: Я вообще теперь слесарь-сборщик. Дожил, мля...

[Александр Ривилис]

Pastor
Отличная работа!

[gomer]

Сообщение от nikе Я пришел домой и выполнил тест еще раз Результаты в Bricscad 10: : (setq ObjComNet (vlax-create-object "ComNet.TestComponent")) #<VLA-OBJECT _TestComponent 0315002c> : (vlax-invoke-method ObjComNet 'About) "This component wrote on C#" : (vlax-dump-object ObjComNet T) ; _TestComponent 0315002c : (null) ; ; Property values : ; ; ; Methods supported : ; T результаты в AutoCAD 2011: Команда: (setq ObjComNet (vlax-create-object "ComNet.TestComponent")) #<VLA-OBJECT _TestComponent 0b2df3ec> Команда: (vlax-invoke-method ObjComNet 'About) ; ошибка: элемент не найден: ABOUT Команда: (vlax-dump-object ObjComNet T) ; _TestComponent: nil ; Нет свойств ; Нет методов T

Остается только догадываться почему брикскад не выдал ошибку и что он вообще выдал в командную строку... известно, что лисповый движок брикскада более поблажлив к ошибкам, но не до такой же степени

[nikе]

->Pastor
Спасибо, какой вы пытливый слесарь-сборщик!
Благодаря Вам появилось хорошее пособие по автоматизации кадов через C#.....

[gomer]

Сообщение от nikе Благодаря Вам появилось хорошее пособие по автоматизации кадов через C#.....

Может я ошибаюсь, но на C# лучше писать нет сборки подгружаемые прямо в автокад, а не сомнительные COM-серверы...

[nikе]

В AutoCAD мож и лучше, только у нас Bricscad, и в нем нет еще поддержки NET, а COM интерфейс уже довольно обкатанная технология, и универсальная... так что если хочется кроссплатформенности тогда - COM, и к версиям не привязан... Шаггидок не зря его нахваливает, ведь он - очень убедительный товарищ.

[gomer]

Сообщение от nikе В AutoCAD мож и лучше, только у нас Bricscad, и в нем нет еще поддержки NET, а COM интерфейс уже довольно обкатанная технология, и универсальная... так что если хочется кроссплатформенности тогда - COM, и к версиям не привязан... Шаггидок не зря его нахваливает, ведь он - очень убедительный товарищ.

COM лучше всего использовать для задач не свойственных bricscad или автокад (не важно) только не говорите что у вас классик версия... но и в этом случае drx лучше чем COM, по крайней мере быстрее... И еще я сильно сомневаюсь, что вы будете скакать с платформы на платформу....

[nikе]

->gomer
У нас восновном Bricscad Classic.
95% задач не требуют скорости, ну если понадобится что-то типа SCADFace или Overkill, можно на brx зафигачить. Но хочется все же иметь кроссплатформенный и кроссверсионный софт, нафига делать лишние препятствия народу, типа необходимости платить за переход на новую версию када?