要改寫原廠程式(無原廠source code)
用原廠傳輸線去作測試
用AccessPort軟體,監控rs232的通訊協定和傳輸內容
原廠程式通訊協定如下:
InSize: 4096, OutSize: 4096
ReadIntervalTimeout: 200, ReadTotalTimeoutMultiplier: 100, ReadTotalTimeoutConstant: 500, WriteTotalTimeoutMultiplier: 100, WriteTotalTimeoutConstant: 1000
Baud Rate: 9600
StopBits: 1, Parity: No, DataBits: 8
EofChar: 0x0, ErrorChar: 0x0, BreakChar: 0x0, EventChar: 0x0, XonChar: 0x11, XoffChar: 0x13
ControlHandShake: 0x1, FlowReplace: 0x80000040, XonLimit: 0, XoffLimit: 8192

自己寫的程式通訊協定如下:
InSize: 4096, OutSize: 4096
Mask: RLSD ERR RING

請問一下,如何把 Mask: RLSD ERR RING 和 Purge: TXABORT RXABORT TXCLEAR RXCLEAR 弄不見???
3Q

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008

再一次自問自答
Purge: TXABORT RXABORT TXCLEAR RXCLEAR

在元件程式spcomm.pas裡的TComm.StartComm;
有加上
PurgeComm( hCommFile, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or PURGE_RXCLEAR ) ;
這只是作清除的動作,不影響程式

Mask: RLSD ERR RING

在元件程式spcomm.pas裡的TReadThread.Execute
if not SetCommMask(hCommFile, EV_ERR or EV_RLSD or EV_RING ) then
begin
PostHangupCall;
goto EndReadThread
end;
把EV_ERR or EV_RLSD or EV_RING拿掉,Mask就不見了

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008