一、客服组件的安装 1.把MWGateway.dll放到Windows的安装目录,如:C:\Windows\ 2.打开“运行”对话框:在“开始”菜单中点击“运行”菜单,打开“运行”对话框 3.注册客服组件 在“运行”对话框的输入框中输入:regsrv32 "组件dll路径\MWCom.dll" 其中 客服组件dll路径为 MWCom.dll文件所在的目录全称 如:c:\MW ****************************特别说明**************************** 1.使用Http方式连接到平台,请使用 server1.montnets.com:80 2.使用Http方式连接到服务器,必须使用所有以"Http"结尾的方法 3.使用socket4,socket5,http代理连接服务器时候,服务器要设置成 "61.242.89.115" **************************************************************** 二、 组件函数调用说明 变量定义: lb_1:listbox; demo:OLEObject; 初始化: demo = CREATE OLEObject demo.ConnectToNewObject("MWCom.clscom") //-----------------------------------连接函数----------------------------------// int li_port =8018; string ls_telphone = '13888888888'; //账号 string ls_password = '807778'; //密码 long li_conn_int; ls_ip='server1.montnets.com'; ls_telphone='13811111112'; ls_password='123456'; cb_1.enabled = false; li_conn_int = demo.MWconnect(ls_ip,li_port,ls_telphone,ls_password); if li_conn_int>0 then lb_1.additem('和梦网平台连接成功,现在可以正常的发送信息和接收信息!'); else lb_1.additem('和梦网平台连接失败,请检查网络是否通畅!'); end if //-----------------------------------接收函数----------------------------------// event clicked;//接收信息,首先得到信息的条数 long li_news_count; long i; string ls_news_content; if li_news_count>0 then lb_1.additem('系统正在接收信息:已获取信息条数'+string(li_news_count)+'条'); for i = 0 to li_news_count -1 ls_news_content = demo.MWGetRcvdMsg(i); lb_1.additem('第'+string(i+1)+'条信息内空为:'+ls_news_content); next else lb_1.additem('系统暂时没有上行信息'); end if //-----------------------------------发送函数----------------------------------// string ls_telphone='13534***346' //接收方手机号码 string ls_newscode ; string ls_news = '欢迎你使用短消息发送程序!' //要发送的信息内容 long li_return_int //fun return value //li_return_int = demo.MWSendMsg(ls_telphone, ls_news);//发送单向信DAT* 4 ?息 li_return_int = demo.MWCsSendMsg(ls_telphone, ls_news,1);//发送客服信息 if li_return_int = 1 then ls_newscode = demo.MWCsMsgID(); lb_1.additem('信息提交成功!'+'当前的信息编号为:'+ls_newscode); else if (li_return_int = -1 or li_return_int = -1 or li_return_int = 0) then lb_1.additem('信息提交失败!'); else lb_1.additem('连接中断,系统正在进行重新连接...!'); li_return_int = demo.MWReConnect(); if li_return_int<=0 then lb_1.additem('重新连接失败,请你检查网络是否通畅...!')DAT* 6 ?; else lb_1.additem('重新连接成功,系统可以正常的发送信息和接收信息!'); end if end if