pb9 mswinsck.ocx 难题
用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