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

ПНР и сопровождение

Модераторы: 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("Бухгалтерия"));
Тут облом - вываливаается ошибка: "Несовпадение типов".
В чем фишка ? Как параметры нужно передавать ?
Кто-нибудь работал с этим ?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

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

Сообщение edward_K »

а ты уверен что такой фейс есть?
я не нашел. вот тестовый пример из Delphi

procedure TForm1.Button1Click(Sender: TObject);
var str,galapp :variant ;
wstr:string ;
begin
wstr:='0' ;
GalApp := CreateOleObject('GalNet.App') ;
try
GalApp.ExecVip('KatMc', wstr) ;
showmessage(wstr) ;
if (GalApp.LastExecCode = 14) then
Showmessage('Выбрано подразделение:' + Str) ;
finally
GalApp.free ;
end ;
end;
:)
OlleUp
Сообщения: 7
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Хабаровск ООО Новый Атлант
Контактная информация:

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

Сообщение OlleUp »

В дельфи работает, я знаю.
в билдере не работает.
Ответить