1、 LR新建一个windows sockets项目
2、 action中写入测试代码
如:
#include "lrs.h"
Action()
{
char *recvbuf;
int recvlen=0;
int rc;
lr_start_transaction("Transocket");
lr_start_transaction("Conn_socket");
rc=lrs_create_socket("socket0","TCP","LocalHost=0","RemoteHost=IP地址:端口号",LrsLastArg);//IP地址和端口
lr_output_message("rc=%d",rc);
if(rc!=0)//检查连接是否成功
{
lr_end_transaction("Conn_socket",LR_FAIL);
lr_end_transaction("Transocket",LR_FAIL);
return 0;
}
lr_end_transaction("Conn_socket",LR_PASS);
lr_rendezvous("查询");//集合点
lrs_send("socket0","buf0",LrsLastArg);//发送
lrs_receive("socket0", "buf1", LrsLastArg);//接收
lrs_save_param_ex("socket0","received","buf1",0,lrs_get_last_received_buffer_size("socket0"),NULL,"Res_BIG1");//保存参数,命名为Res_BIG
if((strstr(lr_eval_string("<Res_BIG>"),"成功"))==NULL)//验证,检查点,检查Res_BIG1中是否有“成功”字样
{
lr_error_message("失败",LR_FAIL);
lr_end_transaction("Transocket",LR_FAIL);
}
else
{
lr_output_message("成功",LR_FAIL);
lr_end_transaction("Transocket",LR_PASS);
}
lrs_close_socket("socket0");
return 0;
}
3、 发送报文内容填写(下列内容可直接写在data.ws中),XML报文需要注意单双引号问题,因为data.ws中的内容以双引号为界限,所以所有XML报文中双引号换为单引号即可
;WSRData 2 1
send buf0
"1111xxxx{H:01 UPBS PXML upbs.bpp.0607.01 11111111114119141111vXgImf 313 } 00000000<?xml version='1.0' encoding='GB18030'?><Document><ReqHdr><BankCommHeader><channelcode>XXXXXX</channelcode><channeldate>20170212</channeldate><channeltime>XXXXXX</channeltime><channelserno>2017021211432<NewParam></channelserno><brno>XXXXXX</brno><tellerno>P0093</tellerno></BankCommHeader></ReqHdr><Content>XXXXXXXXXXXXX</Content></Document>"
recv buf1 300
-1
4、 启动日志,将日志级别调整为最高,依次打开vuser—>run-time setting,设置为如下图即可
5、 执行脚本,查看日志结果