大虾:
能否把你mscomm控件收发数据的例子发给我学习一下,谢谢!
procedure TForm1.MSComm1Comm(Sender: TObject);
var
vRec: variant;
sss:string;
begin
if mscomm1.CommEvent =2 then
begin
vRec:= MSComm1.Input;
sss:=vRec;
Memo1.Lines.Text:=Memo1.Lines.Text+sss;
end;
怎么全是乱码,请指教。
e-mail:zhao6982118@yahoo.com.cn