Страница 1 из 1

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

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

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

Добавлено: 18 мар 2003, 12:37
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;
:)

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

Добавлено: 21 мар 2003, 05:25
OlleUp
В дельфи работает, я знаю.
в билдере не работает.