Привет люди.
Такой вопрос:
в доке нашел инфу, что Галактика может выступать как OLE сервер. Зарегистрировал galnet, все нормально.
Дальше из билдера вызываю:
Variant GalApp = Variant::CreateObject("GalNet.App");
Это прокатывает, галактика стартует.
Дальше делаю:
GalApp.OleProcedure("ExecVip",WideString("SelectPodr"), WideString("Бухгалтерия"));
Тут облом - вываливаается ошибка: "Несовпадение типов".
В чем фишка ? Как параметры нужно передавать ?
Кто-нибудь работал с этим ?
OLE Automation и Галактика
Модераторы: m0p3e, edward_K, Модераторы
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
Re: OLE Automation и Галактика
а ты уверен что такой фейс есть?
я не нашел. вот тестовый пример из 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;
я не нашел. вот тестовый пример из 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;
-
- Сообщения: 7
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Хабаровск ООО Новый Атлант
- Контактная информация:
Re: OLE Automation и Галактика
В дельфи работает, я знаю.
в билдере не работает.
в билдере не работает.