lyfz_repos/经典版源码/旧的后台处理/LYFZMsgManage/DLL-demo/MWDemos/pb80Demo/Pb发送1.txt

一、客服组件的安装
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