OLE Automation и Галактика

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
OlleUp
Сообщения: 7
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Хабаровск ООО Новый Атлант
Контактная информация:

OLE Automation и Галактика

Сообщение OlleUp »

Привет люди.
Такой вопрос:
в доке нашел инфу, что Галактика может выступать как OLE сервер. Зарегистрировал galnet, все нормально.
Дальше из билдера вызываю:
Variant GalApp = Variant::CreateObject("GalNet.App");
Это прокатывает, галактика стартует.
Дальше делаю:
GalApp.OleProcedure("ExecVip",WideString("SelectPodr"), WideString("Бухгалтерия"));
Тут облом - вываливаается ошибка: "Несовпадение типов".
В чем фишка ? Как параметры нужно передавать ?
Кто-нибудь работал с этим ?
Nuts
Постоянный обитатель
Сообщения: 193
Зарегистрирован: 29 мар 2005, 17:49

Re: OLE Automation и Галактика

Сообщение Nuts »

Передай параметры
OlleUp
Сообщения: 7
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Хабаровск ООО Новый Атлант
Контактная информация:

Re: OLE Automation и Галактика

Сообщение OlleUp »

Да какие параметры ?
Если даже делаю так:
GalApp.OleProcedure("ExecVip",WideString("mem5v"));
То тоже не работает.
mem5v - интерфес БЕЗ ПАРАМЕТРОВ, точно.
И, что характрено, на VB или Дельфи все работет.
А вот на Си - нет, хоть ты тресни.
Как то строки надо по хирому представлять.
А вот как - вот в чем вопрос.

Да, и еще вопрос, а из VIPа можно OLE сервера вызвать ?
Если можно - это рулез.
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Re: OLE Automation и Галактика

Сообщение Max_Fin »

Может проблема в том, что Паскаль-строка начинается с символа, отвечающего за длину строки, а уже далее идет сама строка.
Жду выхода Вселенная 2.12!
OlleUp
Сообщения: 7
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Хабаровск ООО Новый Атлант
Контактная информация:

Re: OLE Automation и Галактика

Сообщение OlleUp »

Да пробовал я делать
char buf[10];
buf[0]=9;
и далее сама строка.
не прокатывает.
Ответить