pb9 mswinsck.ocx 难题

[onlymir2]

用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

[onlymir2]

引用 1 楼 WMERP的回复:

看你的代码应该只有if pos(is_tempstr,'M') > 0 then 这里可能有问题，返回的数据不一定有大写M

我debug到这里没问题，有M值的，就是单步debug没问题，就是直接运行程序时就过不来数据

• 打赏
• 举报

回复 赞

[WMERP]

看你的代码应该只有if pos(is_tempstr,'M') > 0 then 这里可能有问题，返回的数据不一定有大写M

• 打赏
• 举报

回复 赞

[WMERP]

按道理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 ， 看看是不是等待完成才执行后面的，如果不是的化就需要进行等待了

• 打赏
• 举报

回复 赞

[onlymir2]

昨天后来改了下winsock的dataarrival事件的一个代码以前是pos(is_temp,'M')后来改成pos(is_temp,char(77))

• 打赏
• 举报

回复 赞

[longdrang]

日志里显示是有数据的吗？

• 打赏
• 举报

回复 赞

[WMERP]

楼主意思是一步一步DEBUG执行时可以，让运行时自动连续执行就没有数据，应该是winsock.Object.GetData(ref ls_receiver) 异步执行了，不等待 ls_receiver 返回结果就往下跑了。

• 打赏
• 举报

回复 赞

[AndriyChoi]

HL7协议传输数据并不一定是同时传过来的
你要根据结束符去判断数据的完整性，否则数据不完整，解析就有问题

• 打赏
• 举报

回复 赞