里面好多看不懂！能逐句的解释一下吗？谢谢了！(120分)

J

juzihuangle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #1

procedure senddata;
var
i:integer;
commflg:boolean;
begin
viewstring:='';
commflg:=true;
for i:=1 to 1 do
begin
if not fcomm.comm1.writecommdata(@sbuf,1) then
begin
commflg:=false;
break;
end;
sleep(1);
viewstring:=viewstring+inttohex(sbuf,2);
end;
viewstring:='发送'+viewstring;
fcomm.memo1.lines.add(viewstring);
fcomm.memo1.lines.add('');
if not commflg then messagedlg('发送失败!',mterror,[mbyes],0);
end;

procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var i:integer;
rbuf:array[0..16] of byte;
begin
viewstring:='';
move(buffer^,pchar(@rbuf)^,bufferlength);
for i:=0 to bufferlength-1 do
viewstring:=viewstring+inttohex(rbuf,2);
viewstring:='接收'+viewstring;
memo2.lines.add(viewstring);
memo2.lines.add('');
end;

 

H

hnxiong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #2

是个串口发送和接收的程序呀．网上一搜很多资料的呀．

 

J

juzihuangle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-30

• #3

我想知道每一句是什么意思啊！网上没有解释！

 

J

jennykiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-31

• #4

每一句都解释一下啊？
其实只要知道几句比较主要语句就可以了啊。
知道几个Buffer是怎么用的就没问题了。

 

J

juzihuangle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-14

• #5

那Buffer是怎么用的？什么意思！

 

J

juzihuangle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-18

• #6

多人接受答案了。