紧急求教串口通讯问题（倾囊求教）！！！！！！ ( 积分: 200 )

问题：
先把压力计和计算机串口连接，写入一些要求数据，然后压力计与计算机脱离，放入井下测试，完成后，取回，再和计算机串口连接，读出数据。。。。。。。
压力计说明：
工作寄存器表共24行，每行20个ASCII字符，每行都以“！”开始，以“$”结束
有一段Qbasic程序
OPEN "COM1:9600,N,8,1,CD0,DS0,OP0,RB4096,TB512,LF" FOR RANDOM AS #1 LEN = 512
PRINT #1, "!253$"
A$ = ""
DO
IF NOT EOF(1) THEN
b$ = INPUT$(1, #1)
A$ = A$ + b$
IF b$ = "$" THEN EXIT DO
END IF
LOOP
......
我不知道在windows下如何读出和写入压力计的数据（无论什么形式的数据都可以）（用vb或delphi都可以）
最好有源代码和控件设置说明

问题：
先把压力计和计算机串口连接，写入一些要求数据，然后压力计与计算机脱离，放入井下测试，完成后，取回，再和计算机串口连接，读出数据。。。。。。。
压力计说明：
工作寄存器表共24行，每行20个ASCII字符，每行都以“！”开始，以“$”结束
有一段Qbasic程序
OPEN "COM1:9600,N,8,1,CD0,DS0,OP0,RB4096,TB512,LF" FOR RANDOM AS #1 LEN = 512
PRINT #1, "!253$"
A$ = ""
DO
IF NOT EOF(1) THEN
b$ = INPUT$(1, #1)
A$ = A$ + b$
IF b$ = "$" THEN EXIT DO
END IF
LOOP
......
我不知道在windows下如何读出和写入压力计的数据（无论什么形式的数据都可以）（用vb或delphi都可以）
最好有源代码和控件设置说明

网上有很多控件，设置没什么特殊的，
9600,N,8,1 波特率9600，无校验，数据位8，停止位1
CD0 turns off carrier detect timeout
CS0 turns off clear to send timeout
DS0 turns off data-set-ready timeout and
OP0 turns off OPEN statement timeout.
RS suppress detection of request to send (RTS)
发送缓冲区512，接收缓冲区4096

http://www.gjwtech.com/scomm/codeserialcomm.htm

用spcomm控件吧，我觉得比较好用。