Нужен пример для работы с RComEngine через VBA
0 (0)
Нужен пример для работы с RComEngine через VBA ( Los-Alex 30.07.2003 20:13 )5(1)Нужен пример для работы с RComEngine через VBA
иди подскажите почему строка Set ob = rc.CreateObject("rcwhost", "TRcwHost", "", cn)
в ниже указанном примере приводит к аварийному выходу.
Аналогичный пример на RSL работает.
Спасибо.
Dim rc As Object
Dim cn As Object ' RcomChannel
Dim ob As Object
Dim ObDat As Object
Function RSBANK(...)
If rc Is Nothing Then
Set rc = CreateObject("RComSrv.RComEngine")
End If
If cn Is Nothing Then
Set cn = rc.CreateChannel("APPCOMP", 1, 1, "RsAppServ", "G:\TERM\term073\")
cn.Connect
Set ob = rc.CreateObject("rcwhost", "TRcwHost", "", cn)
Set ObDat = ob.CreateRSLObject("load", "TRslClassLoad")
End If
Set RSBANK = ObDat.Result
End Function
Работающий на RSL пример:
import rcw;
cn = TRslChanel ("APPCOMP",1,1,"RsAppServ","C:\\TERM\\term073");
cn.keyPath = "C:\\TERM\\term073\\";
cn.Connect;
ob = CreateObject ("rcwhost","TRcwHost","MyInst",cn);
rslCls = ob.CreateRSLObject ("mci_load","TRslClassLoadMCI");
//ob.Execute;
println (rslCls.Result);
END;
>> Ответить- Удалось добиться соединения?(+) ( MPek 03.12.2003 09:46 )5(1)При попытке выполнить connect возникает ошибка. Кому-нибудь удалось установить соединение используя RSCom?
>> Ответить- Нет ( Evgeni00 16.08.2011 17:31 )5(1)Not specified
>> Ответить- удалось но не через vbs. ( sdo 01.03.2012 20:57 )5(1)
- И какимже способом? Можно поподробней. ( dburg 08.10.2013 08:26 )5(2)Not specified
>> Ответить- не помню, блин, наверное PHP на коленке сваял ( sdo 08.10.2013 09:36 )5(1)вроде бы прикол получился в том, что именно при реализации в VBS что-то падало, но когда связку реализовали на другом языке, она заработала (Хоть такого и не должно быть, как программист понимаю абсурдность).
Точно помню, что соединялся, и поднимал объект tbfile к удаленным dbt-шкам. В реальный проект дело не пошло, так как до сих пор не знаю, как на уровне сервера ограничить запись в dbt. Имея канал, клиентская сторона может поднять dbt c флагом W и натворить делов..
>> Ответить- А какие dll надо на клиенте регистрировать? ( dburg 08.10.2013 09:50 )5(1)Not specified
>> Ответить- я делаю так: ( sdo 08.10.2013 11:57 )5(1)кидаю в %windir%\system32 rsscript, rslsrv, rsengine
два последних надо регистрить regsvr32
этого хватает запускать экземпляры RSL как activeX
но с каналами мы повседневно не работаем, игрались давно, так что мож чего еще надо.
в принципе работающие dll можно "подсмотреть" за rsl через Process Explorer
>> Ответить- Я в принципе в этом направлении и двигаюсь. Вопрос где взять свежие версии rslsrv, rsengine. ( dburg 08.10.2013 12:33 )5(1)Not specified
>> Ответить- дык у гуру.. ( sdo 08.10.2013 13:16 )5(1)http://members.softlab.ru/kubrin/download.htm
>> Ответить- правда насчет свежести там не очень, но главное, работает. ( sdo 08.10.2013 13:17 )5(1)Not specified
>> Ответить- Спасибо. Нашел более свежие. ( dburg 08.10.2013 13:19 )5(1)Not specified
>> Ответить- а поделитесь источником? ( sdo 08.10.2013 13:38 )5(2)Not specified
>> Ответить
