pb9 mswinsck.ocx 难题

onlymir2 2020-03-21 09:36:44
用pb 的mswinsck控件连接一台医疗设备HL7协议,调试程序debug时都能把传输的数据接过来,直接跑程序去传输不过来,百思不得其解。其中有写日志的代码,在文件夹里能查询到数据源日志有数据传过来。请高人指点

String ls_receiver,ls_data,ls_temp,ls_graphall,ls_graph,ls_outdata,ls_xx
String lns_string[]
Long ll_num,ll_i,ll_at,ll_length,ll_j
string ls_sour1,ls_sour2,ls_sour3

winsock.Object.GetData(ref ls_receiver)

is_tempstr = ls_receiver
//messagebox('is_tempstr',is_tempstr)


IF cbx_1.Checked THEN
gf_write_log(is_deviceid,'receive-->'+ls_receiver)
END IF



//入库
if pos(is_tempstr,'M') > 0 then
insert into l_source (soufull , deviceid,ComputerName ) values (:is_tempstr,:is_deviceid,:Gs_ComputerName) ;
commit ;
gf_write_log(is_deviceid + '-original',is_tempstr)//写源数据日志
is_tempstr = '' //置空
end if
...全文
446 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
AndriyChoi 2020-03-25
  • 打赏
  • 举报
回复
HL7协议传输数据并不一定是同时传过来的
你要根据结束符去判断数据的完整性,否则数据不完整,解析就有问题
WMERP 2020-03-24
  • 打赏
  • 举报
回复
楼主意思是一步一步DEBUG执行时可以,让运行时自动连续执行就没有数据,应该是winsock.Object.GetData(ref ls_receiver) 异步执行了,不等待 ls_receiver 返回结果就往下跑了。
longdrang 2020-03-24
  • 打赏
  • 举报
回复
日志里显示是有数据的吗?
onlymir2 2020-03-24
  • 打赏
  • 举报
回复
昨天后来改了下winsock的dataarrival事件的一个代码以前是pos(is_temp,'M')后来改成pos(is_temp,char(77))
WMERP 2020-03-24
  • 打赏
  • 举报
回复
按道理PB应该不会出现android那样的函数运行后不等执行完成就直接往下一步代码进行,你可以在页面输出那里设置下等待看看是不是等待执行的,先把 ls_receiver="" 然后 winsock.Object.GetData(ref ls_receiver)前加入一个datetime输出到文本框1,winsock.Object.GetData(ref ls_receiver)后加入一个datetime输出到文本框2,再写一个 do while ls_receiver="" Yield ( )

loop 再加入加入一个datetime输出到文本框3 , 看看是不是等待完成才执行后面的,如果不是的化就需要进行等待了
WMERP 2020-03-23
  • 打赏
  • 举报
回复
看你的代码应该只有if pos(is_tempstr,'M') > 0 then 这里可能有问题,返回的数据不一定有大写M
onlymir2 2020-03-23
  • 打赏
  • 举报
回复
引用 1 楼 WMERP的回复:
看你的代码应该只有if pos(is_tempstr,'M') > 0 then 这里可能有问题,返回的数据不一定有大写M
我debug到这里没问题,有M值的,就是单步debug没问题,就是直接运行程序时就过不来数据

604

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 控件与界面
社区管理员
  • 控件与界面社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧