Delphi 中串口通讯的实现

来源：YESKY 作者：张海航 出处：巧巧读书 2006-02-11 进入讨论组

• 关 键 词：
• delphi
• 数据通信
• word
• 传输数据
• 进程

上一页 1 2 3 4 

访问 http://www.qqread.com/delphi/q412352400.html
　　自定义的发送过程

procedure senddata;

var

i:integer;

commflg:boolean;

begin

viewstring:="";

commflg:=true;

for i:=1 to 6 do

begin

if not fcomm.comm1.writecommdata(@sbuf[i],1) then

begin

commflg:=false;

break;

end;

sleep(2); {发送时字节间的延时}

viewstring:=viewstring+inttohex(sbuf[i],2)+" ";

end;

viewstring:="发送"+viewstring;

fcomm.memo1.lines.add(viewstring);

fcomm.memo1.lines.add("");

if not commflg then messagedlg("发送失败!",mterror,[mbyes],0);

end;



procedure TFCOMM.Btn_sendClick(Sender: TObject);{发送按钮的点击事件}

begin

sbuf[1]:=byte($f0); {帧头}

sbuf[2]:=byte($01); {命令号}

sbuf[3]:=byte($ff);

sbuf[4]:=byte($ff);

sbuf[5]:=byte($01);

sbuf[6]:=byte($0f); {帧尾}

senddata;{调用发送函数}

end;

接收过程

procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;

BufferLength: Word);

var

i:integer;

begin

viewstring:="";

move(buffer^,pchar(@rbuf^),bufferlength);

for i:=1 to bufferlength do

viewstring:=viewstring+inttohex(rbuf[i],2)+" ";

viewstring:="接受"+viewstring;

memo1.lines.add(viewstring);

memo1.lines.add("");

end;

　　如果memo1上显示发送F0 01 FF FF 0F 和 接受F0 01 FF FF F0

这表示串口已正确的发送出数据并正确的接受到数据，串口通讯成功。 更多内容请看Delphi网络及通讯编程专题，或进入讨论组讨论。

上一页 1 2 3 4 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：巧用Delphi制作溅射屏幕

较新的文章：Delphi下利用DDE实现同Word的交互