给你贴段代码,控件使用微软的MSCommprocedure TForm1.OpenPortClick(Sender: TObject); begin if not MSComm1.PortOpen then begin MSComm1.PortOpen := True; Opened.Checked := True; end; Timer1.Enabled := MSComm1.PortOpen; end;procedure TForm1.Timer1Timer(Sender: TObject); var s : ANSIstring; begin Memo1.Lines.Add(Format('µÚ%d±ÊÊý¾Ý',[iCount])); s := MSComm1.Input; Memo1.Lines.Add(s); Inc(iCount); end;
在Delphi中用SPCOMM实现串口编程
begin
if not MSComm1.PortOpen then
begin
MSComm1.PortOpen := True;
Opened.Checked := True;
end;
Timer1.Enabled := MSComm1.PortOpen;
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
s : ANSIstring;
begin
Memo1.Lines.Add(Format('µÚ%d±ÊÊý¾Ý',[iCount]));
s := MSComm1.Input;
Memo1.Lines.Add(s);
Inc(iCount);
end;
[email protected]