应该开发两个应用,一个是做服务器的,一个是做客户端的。首先介绍服务器的程序。
服务器程序通常封装业务逻辑,没有界面处理,供客户端调用。比如,我们创建一个加法计算的服务器。操作步骤如下:
1、为Application对象的ConnectionBegin编写脚本。当客户端程序尝试联结服务器时触发该事件。所以,该事件应该对用户合法性进行检查,如果是合法用户则返回联结成功标志。脚本如下:
if userid = 'guobaoli' then return ConnectPrivilege!
2、在Application事件中打开服务器主窗口。
Open(w_main)
3、在w_main窗口的Open事件中设置TransPort的必要参数。所有和客户端的处理都是通过该对象进行的。所以,首先需要定义一个TransPort类型的全局变量g_TransPort。然后编写如下脚本:
integer li_rtn
g_transport = Create TransPort
g_transport.Driver = 'WinSock' //驱动程序
g_transport.Application = '5555' //端口号
li_rtn = g_TransPort.Listen() //监听客户联结
if li_rtn <> 0 then halt close
4、这是最重要的一个步骤,开发业务逻辑,必须是非可视的用户对象。我们只只编写一个函数of_add即可。
/*------------------------------------------------
服务器程序通常封装业务逻辑,没有界面处理,供客户端调用。比如,我们创建一个加法计算的服务器。操作步骤如下:
1、为Application对象的ConnectionBegin编写脚本。当客户端程序尝试联结服务器时触发该事件。所以,该事件应该对用户合法性进行检查,如果是合法用户则返回联结成功标志。脚本如下:
if userid = 'guobaoli' then return ConnectPrivilege!
2、在Application事件中打开服务器主窗口。
Open(w_main)
3、在w_main窗口的Open事件中设置TransPort的必要参数。所有和客户端的处理都是通过该对象进行的。所以,首先需要定义一个TransPort类型的全局变量g_TransPort。然后编写如下脚本:
integer li_rtn
g_transport = Create TransPort
g_transport.Driver = 'WinSock' //驱动程序
g_transport.Application = '5555' //端口号
li_rtn = g_TransPort.Listen() //监听客户联结
if li_rtn <> 0 then halt close
4、这是最重要的一个步骤,开发业务逻辑,必须是非可视的用户对象。我们只只编写一个函数of_add即可。
/*------------------------------------------------