在delphi2005中,如何读取COM口中的数据(150分)

各位大老,
在delphi7中能够读取COM口数据的程序,改为delphi2005就不行了,请各位给予指点.
定重谢

不会吧，是不是操作系统的问题，在98下能读端口的程序在nt下可能不行，但与用d7或d05编译应该没有关系。要不把读端口的代码贴出来看看。

//此段代码在delphi7中能够初始端口,但是在2005中不行

uses IcCard;
procedure TFrmViewMain.FormShow(Sender: TObject);
var
icDev:LongInt;
begin
icDev:=rf_init(0,9600);
if icDev<>0 then
begin
ShowMessage('端口初始化失敗,請重新啟計算機');//'端口初始化失敗,請重新啟計算機');
exit;
end;
end;
//引用dll的单元
unit IcCard;
interface
uses
windows;
function rf_init(port: smallint;baud:longint): longint; stdcall;
implementation
function rf_init; stdcall ;external 'mwrf32.dll';
end.

注:OS是win2000 or XP

3.4 C语言库函数
（1） int rf_init(char *_Comstr, ...);
功 能：初始化串口
参 数：char * _Comstr：指向字符串的指针，取值为“COM1”～“COM4”
char *BaudStr：为通讯波特率9600～115200；该参数可省略，缺省为115200
返 回：成功则返回 0
例：int st;
st=rf_init(&quot;COM1&quot;,&quot;19200&quot;

谢谢newsmile,我电脑的com口坏了.