关于spcomm控件的例程中的错误(50分)

我看见一个用spcomm控件编写的pc与单片机通讯的例程,其中在Comm1ReceiveData事件中的
这一句
"move(buffer^,pchar(@rbuf^),bufferlength); "
不能编译通过,不知该如何写才正确?

程序如下:
//变量说明

var

fcomm: TFCOMM;

viewstring:string;

i:integer;

rbuf,sbuf:array[16] of byte;

//打开串口

procedure TFCOMM.FormShow(Sender: TObject);

begin

comm1.StartComm;

end;

//关闭串口

procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);

begin

comm1.StopComm;

end;

//自定义发送数据过程

procedure senddata;

var

i:integer;

commflg:boolean;

begin

viewstring:=‘’ ;

commflg:=true;

for i:=1 to 6 do

begin

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

begin

commflg:=false;

break;

end;

//发送时字节间的延时

sleep(2);

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.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(＄ f0); //帧尾

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,2)＋‘’ ;

viewstring:=‘接收’＋ viewstring;

memo1.lines.add(viewstring);

memo1.lines.add(‘’ );

end;

listen

Move(Buffer,buff, BufferLength);
你的单片机原理图可以借我看看吗

to:liwenbin
当然可以

把你Email给我,到时发给你

to aganger
li780713@hotmail.com

谢谢了，等我完工后，我们好好交流交流

应该这样写:
move(buffer^,pchar(@rbuf)^,bufferlength);

>>别忘了给分

接受答案了.