怎样从串口COM1中读取字符串？

[yjq2000]

怎样从串口COM1中读取字符串？

[darkeye]

这取决与发向串口的程序。

[深宇]

用spcomm控件可以很好的解决这个问题

[yjq2000]

to lzf1010(深宇)
怎么安装spcomm控件。

[深宇]

你已经有安装包了吗？就象普通的控件一样！

[深宇]

你如果没有，我这里有一个，已经做好了安装包的，留个mail我发给你

[深宇]

在onReceiveData事件中获得端口数据，下面是我程序中的一段代码：
procedure TNiuka_inform.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
str,str1:string;
i,state,postion:integer;
rbuf:array [1..1024] of char;
begin
inherited;
try
begin
str:='';
state:=0;
str1:='';
postion:=0;
move(buffer^,pchar(@rbuf)^,bufferlength);
for i:=1 to bufferlength do
str:=str+rbuf[i];
for i:=1 to length(str) do
begin
if copy(str,i,1)=' 'then
begin
state:=state+1;
if state<2 then
postion:=i;
end;
if state=2 then
begin
str1:=copy(str,postion,i-postion);
break;
end;
end;
if edit16.Focused then
edit16.Text:=inttostr(strtoint(str1));
if edit17.Focused then
edit17.Text:=inttostr(strtoint(str1));
end;
except
on e:exception do
begin
showmessage(e.message);
end;
end;
end;

[hansion3406]

呵呵...直接对'COM1'文件读写就可以了..呵呵..

[KingOf007]

...不管要读的是什么,从串口中过来的都是0,1吧

[KingOf007]

所以随便找一个能读串口的程序去读就行了,关键是读到之后的格式处理