Question

delphi7中关于Spcomm用法请教高手？老提示这行有问题：move(buffer^,pchar(@rbuf^),bufferlength);

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, SPComm, Buttons;

type
TFCOMM = class(TForm)
Comm1: TComm;
Memo1: TMemo;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FCOMM: TFCOMM;
viewstring:string;
i:integer;
rbuf,sbuf:array[0..15] of byte;

implementation

{$R *.dfm}
//关闭串口
procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comm1.StopComm;
end;
//打开串口
procedure TFCOMM.FormShow(Sender: TObject);
begin
comm1.StartComm;
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;
//关闭窗口
procedure TFCOMM.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.
把move(buffer^,pchar(@rbuf^),bufferlength);
改成move(buffer^,pchar(@rbuf[0])^,bufferlength);
还是不行，跪求高手了。。。

Answer 1

move(buffer^,pchar(@rbuf^),bufferlength);
改成
move(buffer^,pchar(@rbuf[0])^,bufferlength);
试下

Answer 2

检查一下，定义一个全局数组
rbuf:array[0..200] of byte;