求助，一个有关串口通讯的问题！

chengxin054 2004-04-05 02:48:27

我用的控件是spcomm。当我发送一帧据之后，等待对方发送校验，当我收到正确校验码,就发送下一帧！我想请问在senddata中怎么写验证方法？

......
procedure senddata;
var
i,temp1: integer;
temp2: integer;
viewint: integer;
begin
viewstring := '';
framecount:=1;

//得到帧长度
textlength := form1.Memo1.Lines.Count-1;
framelength := (textlength+MaxBufLength) div MaxBufLength;
restlength := textlength mod MaxBufLength;

//发送帧
for i:= 1 to framelength do
begin

//发送帧头
if (framecount = 1) then
begin
for temp1 := 1 to 32 do
begin
ydstr:=$AA;
form1.comm1.WriteCommData(@ydstr,1);
end;
end;

//发送@
FrameStart := $40;
form1.Comm1.WriteCommData(@FrameStart,1);

//发送地址
target := $6200;
source := $6100;
form1.Comm1.WriteCommData(@target,2);
form1.Comm1.WriteCommData(@source,2);

//发送帧计数
form1.Comm1.WriteCommData(@framecount,1);

//发送控制命令
Write := $57;
Receive := $52;
form1.Comm1.WriteCommData(@Write,1);
form1.Comm1.WriteCommData(@Receive,1);
UWrite := not Write;
UReceive := not Receive;
form1.Comm1.WriteCommData(@UWrite,1);
form1.Comm1.WriteCommData(@UReceive,1);

//发送帧长
if framecount < framelength then
begin
Write := 128;
form1.Comm1.WriteCommData(@Write,1);
end
else
begin
form1.Comm1.WriteCommData(@restlength,1);
end;

//发送数据帧
//后续帧标志位
//充填位
if (framelength = framecount) then
begin
for temp2 := (framecount-1)*MaxBufLength to ((framecount-1)*MaxBufLength)+restlength do
begin
viewstring := form1.Memo1.Lines.Strings[temp2];
viewint := strtoint(viewstring);
form1.Comm1.WriteCommData(@viewint,1);
end;

flg := $23;
form1.Comm1.WriteCommData(@flg,1);
if((restlength mod 2) = 0) then
begin
tcstate := $00;
form1.Comm1.WriteCommData(@tcstate,1);
end;
end
else
begin
for temp2 := ((framecount-1)*MaxBufLength) to ((MaxBufLength-1)+((framecount-1)*MaxBufLength)) do
begin
viewstring := form1.Memo1.Lines.Strings[temp2];
viewint := strtoint(viewstring);
form1.Comm1.WriteCommData(@viewint,1);
end;
flg := $2A;
form1.Comm1.WriteCommData(@flg,1);
end;

//奇校验
Odd := form1.OddEven(1);

//偶校验
Even := form1.OddEven(0);

//结束符
endstate1 := $13;
form1.Comm1.WriteCommData(@endstate1,1);
endstate2 := $10;
form1.Comm1.WriteCommData(@endstate2,1);

//帧计数;
framecount:=framecount+1;
//等待
sleep(200);
end;
end;

procedure TForm1.BitBtn1_click(Sender: TObject);
begin
senddata;
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
i,j:integer;
rsbuf: array[1..48] of byte;
ACdata: array[1..48] of byte;
AFdata: array[1..48] of byte;
begin
move(buffer^,pchar(@rsbuf)^,bufferlength);
for i:=1 to bufferlength do
begin
viewstring:=viewstring+inttohex(rsbuf[i],2)+'';
form1.Memo1.Clear;
form1.Memo1.lines.add(viewstring);
end;
end;

end.

...全文