ANSEC=Datetime()
 NSEC=0
 cRetMsg=''
With Thisform.mscomm1
    If .PORTOpen =.T.
        .PORTOpen =.F.
    Endif

    If .PORTOpen =.F.
        .INBufferSize =1024
        .OutBufferSize =1024
        .CommPort = 1
        .Settings = "115200,N,8,1"
        .InputLen = 0
        .Rthreshold = 1
        .PORTOpen = .T.
    Endif

    .OutBufferCount = 0              &&清空发送缓冲区
    .InBufferCount = 0               &&清空接收缓冲区
Endwith       

Do While Right(Alltrim(cRetMsg),1)<>'e' .And. NSEC<10
                cRetMsg=cRetMsg+Thisform.mscomm1.Input
                BNSEC=Datetime()
                NSEC=BNSEC-ANSEC
                Loop
        Enddo

**要求最长不超过10秒读完,否则退出提示操作超时

我也想研究一下，最近

我是用mscomm控件试的,请参考下面示例,希望对你有用!

#define COM1  1
#define M_out  101
#define MAXCOUNT  14  
//创建Microsoft Comm 控件对象
comm1=createobject("mscommlib.mscomm.1")
comm1.commport=COM1 //指定COM1口工作
comm1.portopen=.t. //打开COM1口
//设置传输速率，奇偶校验，数据位，停止位
comm1.settings="115200,n,8,1"
indata1="" //变量初始化
//从接收缓冲区读出字符串
do while comm1.inbuffercount<=MAXCOUNT
  comm1.inbuffercount=0 //清缓冲区
  comm1.inputmode=0 //设置字符输入输出方式
  comm1.inputlen=1 //仅输入输出一个字符
  //判断头一个字符是否是“e”，如不正确循环判断
  do while .t.
    indata=comm1.input
    if asc(indata)=M_out
      exit
    endif
  enddo
  //从缓冲区读字符
  indata=comm1.input
  //生成字符串
  indata1=indata1+indata
enddo
comm1.portopen=.f //关闭串行端口

注意对字符串indata1的处理。因为接收的“字符串”会碰到的“低级”问题。要知道VFP只支持可打印的字符内码！对控制码和“零字符”要做变换处理，否则不是“丢”掉就是“乱”掉。祝顺！