度量快速开发平台中集成登录CS程序的思路设想

王爱东 · 发表于 2020-3-25 09:36:06

大家知道，度量快速开发平台中，集成登录其他BS系统，是已经提供好了集成接口。可以参考“度量第三方Web系统集成登录实现“这一篇文章。如果使用单位还想集成登录现有单位的客户端程序，该怎么办呢？度量快速开发平台中，提供了一个打开本地文件的方法：

使用示例：

OpenFile("C:\Windows\notepad.exe")
如果要集成进来的第三方CS程序，安装的目录都在同一个位置，直接把OpenFile里面的文件路径换成确定的即可。总所周知，客户端文件有个很大的特点，即各个电脑安装的客户端文件可能在不同的目录。比如QQ程序，我可以在我的机器上安装到C 盘，其他人可能安装到D盘，E盘等。所以OpenFile里面的路径，不同的人打开，那就需要设置每个电脑上自己安装程序的位置，也就是每个人在度量快速开发平台中，点击了这个”打开XX程序“时候，调用了OpenFIle这个方法，都需要打开的不同。
因此，我们可能需要建立一张电脑对应程序地址表。例如：

计算机名	程序地址
DELIT.CN01	C:\Program Files\qq\Bin\QQ.exe
DELIT.CN02	D:\Program Files\qq\Bin\QQ.exe
DELIT.CN03	C:\Tencent\QQ.exe
DELIT.CN04	E:\Program Files\qq\Bin\QQ.exe

那么，我们可以通过使用人是那一台电脑，就能打开哪一个地址下的文件。

dim computer_name = System.Environment.MachineName
dim program_path=executescalar("select program_path from table where computer_name='"+computer_name+"'")
if program_path<>"" then
OpenFile(program_path)
end if

复制代码

那如何向被集成的CS程序传递需要的数据过去呢？
可以直接在路径后面跟上指定的参数。
比如：
OpenFile("D:\Program Files\qq\Bin\QQ.exe 参数1 参数2 参数3 ")

当然，如果真要集成其他客户端程序，还不用登陆，直接进入到对方的系统中。还需要度量开发平台的登录用户名与被集成系统有一个账号对应关系，通过度量快速开发平台打开的被集成程序，自动传递登录的相关信息过去，被集成程序需要根据传递过去的信息，做相应的处理才行。
-------------------------------------------------------------------------------------------------------------------------------------
补充：目前度量快速开发平台中直接使用OpenFile的方法，后面还不能跟参数。如果要跟参数，请使用以下方式实现：
示例：
dim PathAndFileName="c:\Windows\notepad.exe"
dim FileVariable = " -help -copy -xxx "
dim obj = CreateObject("System.Diagnostics.Process")
dim OpenLocalFile=obj.Start(PathAndFileName,FileVariable )

FileVariable 变量的数据可以根据实际情况组合。这样就可以通过参数传入给被集成的CS程序，CS程序就可以不用输入用户密码直接登录系统了。