在delphi7中利用mscomm控件编程

　2006-02-04 14:01:42　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄妞ゆ劗鍘ч埥澶娢熼柨瀣偓濠氭⒑瑜版帒浜伴柛鎾寸☉閳绘柨顫濋懜纰樻嫼闂佸憡绋戦オ鏉戔枔閺冣偓缁绘稓浠﹂崒姘瀳闂佸磭绮幑鍥嵁鐎ｎ亖鏀介柟閭﹀墯椤斿倹淇婇悙顏勨偓鏍ь潖婵犳艾鍌ㄧ憸蹇涘箟閹绢喗鏅搁柨鐕傛嫹

核心提示：Mscomm是微软一个强大的串口通讯的控件，其强大，在delphi7中利用mscomm控件编程，简单的特点今我们不舍，在delphi中我们也可以使用它，下面这些代码是针对发送和接收为16进制处理的，var senddata:array[1..10] of char; reData:array of Variant;

Mscomm是微软一个强大的串口通讯的控件，其强大，简单的特点今我们不舍，在delphi中我们也可以使用它。下面这些代码是针对发送和接收为16进制处理的。
var
senddata:array[1..10] of char;
reData:array of Variant;
sendstr:string;
restr:string;
i:longint;
begin
mscomm1.CommPort := 1;　　　　　　　　　 //指定端口
mscomm1.Settings := '9600,N,8,1';　　　 //其它参数
mscomm1.InBufferSize := 1024;　　　　　　 //接收缓冲区
mscomm1.OutBufferSize := 1024;　　　　　 //发送缓冲区
mscomm1.InputMode := comInputModeBinary; //接收模式
mscomm1.InputLen := 0;　　　　　　　　　 //一次读取所有数据
mscomm1.SThreshold := 0;　　　　　　　　 //一次发送所有数据
mscomm1.InBufferCount := 0;　　　　　　　 //清空读取缓冲区
mscomm1.OutBufferCount := 0;　　　　　　 //清空发送缓冲区
mscomm1.PortOpen:=true;　　　　　　　　　　 //打开端口
MSComm1.RThreshold := 16;　　　　　　　 //设置接收多少字节开产生oncomm事件
senddata[1]:=chr($06);　　　　　　　　　　　　 //要发送的数据
senddata[2]:=chr($03);
senddata[3]:=chr($00);
senddata[4]:=chr($03);
senddata[5]:=chr($10);
sendstr:='';
for i:=1 to 5 do
sendstr:=sendstr + senddata[i];
mscomm1.output:=sendstr;　　　　　　　　　　　 //发送数据
i:=0;
bzw:=false;

repeat
　　 sleep(10);
　 application.PRocessMessages;
　 i := i + 1;
　 If i > 30000 Then
　　 begin
　　　 showmessage('发送超时!');
　　　 break;
　　 end;
Until bzw = true;
redata:=mscomm1.Input;　　　接收数据
restr:='';
for i:=0 to vararrayhighbound(redata,1) do
　　 restr:=restr + inttohex(redata[i],2)+' ';
mscomm1.PortOpen:=false;
flatmemo1.Text:=restr;
end;
//oncomm事件
procedure TForm1.MSComm1Comm(Sender: TObject);
begin
case mscomm1.CommEvent of
　 comEvReceive: bzw := true;
end;
end;

最后，记事发布软件时要带上Mscomm32.ocx文件。