使用ACTIVEX和DELPHI開發串列通訊

於Delphi中沒有串列埠控制項可用，所以首先需要把ActiveX控制項MSCOMM加到元件選項板上。這是一個非常好的控制項它不僅能對串列埠進行操作，而且還可以對Modem進行控制。下面結合一個具體的實例來說明如何用MSCOMM控制項開發出串列埠通訊程序。

建立一個Communication.dPR工程，把窗體的Name屬性變成CommForm，將標題改為The Communication Test，選擇File/Save As將新的窗體儲存為CommFrm.pas。

其對應程式碼如下：

變數說明

var

CommForm: TCommForm;

ss :string;

savef,readf :file of char;

i,j :longint;

初始化

procedure TCommForm.FormCreate(Sender: TObject);

begin

mscomm.commport:=1;

mscomm.settings:='9600,n,8,1';

mscomm.inputlen:=1;

mscomm.inbuffercount:=0;

mscomm.portopen:=true;

ss:='';

i:=0;

j:=0;

assignfile(savef,'save1');

rewrite(savef);

assignfile(readf,'read1');

reset(readf);

end;

設定確定

procedure TCommForm.btnConfirmClick(Sender: TObject);

begin

if mscomm.portopen then

mscomm.portopen:=false;

mscomm.commport:=strtoint(edtCommport.text);

mscomm.settings:=edtCommsetting.Text;

end;

傳輸事件

procedure TCommForm.MSCommComm(Sender: TObject);

var

filenrc :char;

buffer :variant;

s1:string;

c :char;

begin

case mscomm.commEvent of

comEvSend:

begin

while not(eof(readf)) do

begin

read(readf,filenrc);

mscomm.output:=filenrc;

j:=j+1;

lblDisplay.caption:=inttostr(j);

if mscomm.outbuffercount>=2 then

break;

end;

end;

comEvReceive:

begin

buffer:=mscomm.Input;

s1:=buffer;

c:=s1[1];

ss:=ss+c;

i:=i+1;

lblDisplay.caption:=c+inttostr(i);

write(savef,c);

if (c=chr(10))or(c=chr(13)) then

begin

lblDisplay.caption:='cr'+inttostr(i);

memDisplay.lines.add(ss);

ss:='';

end;

end;

end;

end;