VFP怎么读取串口COM的数据？

用VFP读取串口数据，要读多组数据，每组要读取物位仪号及水位两个数据怎么办呢？请指教。
哪位大师读过MH系列物位仪串口数据吗？

我没读取串口数据，但我知道需要加载DLL文件，调用函数。如有DLL文件，看看说明书吧。下面给你一段VFP调用DLL文件的代码，请参考：
下面是在VFP中引用DLL库中定义的initomr、testhopper、sendcardform、readcard、getdecoder、sendcommand这几个函数

lparameters wpara
public w_OMR
w_OMR = wpara &&阅卷机机型
****************************************************
Declare integer initomr in "dll2cv10win2000.dll"
Declare integer testhopper in dll2cv10win2000.dll integer @hopper
Declare integer sendcardform in dll2cv10win2000.dll string @filename, integer @nsum
Declare integer readcard in dll2cv10win2000.dll string @cardtype, integer @hopper
Declare integer getdecoder in dll2cv10win2000.dll integer nnnn, integer mmmm, string @decstr
Declare integer sendcommand in dll2cv10win2000.dll string @cmdstr

=messagebox("阅卷机函数定义完毕 ！",0+48+0,'提示')

Mfilename='HNZYK05.FOM'
Mnsum=0
Mhopper=2
y=initomr() &&初始化函数

if y<>0
=messagebox("对不起，您的阅卷机初始化错 ！返回值为"+str(y,2),0+16+0,'请检查阅读机相关设备')
else
=messagebox("阅卷机初始化完毕 ！正确",48,'提示')
endif

z=sendcardform(@Mfilename,@Mnsum) &&送格式函数

if z<>0
=messagebox("对不起，您的阅读机格式文件有错 ！返回值为"+str(z,2),0+16+0,'请检查阅读格式文件')
else
=messagebox("阅卷机格式文件传送完毕! ",0+48+0,'提示')
endif

--------------------------------------------
上面在初始化光学阅读器未用到的函数会在阅卡始用到，见下
Mcardtype="A"
Mnsum=0
Mhopper=2

do while 0==testhopper(@Mhopper).and.Mhopper==1
&&测试是否有纸
wx1=readcard(@Mcardtype,@Mhopper)
Mdecstr=space(288)

if wx1=0 &&正常,
wx2=getdecoder(1,287,@Mdecstr)
if wx2=0 &&正常,
wksh = subs(Mdecstr,1,10)

wlss = subs(Mdecstr,13,4)
thisform.wf_y11.value = iif(wlss='0000',' ',wlss)
..........

else
=Messagebox('阅读函数 GETDECODER 出错,错误号为'+ltrim(str(wx2,3))+' , 请重阅当前张卡片 ！ ',0,'')
endif
else
=Messagebox('阅读函数 READCARD 出错,错误号为'+ltrim(str(wx1,3))+' , 请重阅当前张卡片 ！',0,'')
endif
ENDDO

if 0==testhopper(@Mhopper).and.Mhopper==1
else
=sendcommand("+g")
endif

试一试 mscomm 控件

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息