用过SPOMM的兄弟进来看我一个语法!!(10分)

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #1

为什么我的程序在这段接受数据的过程中会出现内存不能写的错误？
procedure TfmMain.spcommReceiveData(Sender: TObject
Buffer: Pointer;
BufferLength: Word);
var
i,n:integer;
viewstring:string;
AllLen,DataLen:integer
begin
n:= BufferLength;//SizeOf(buffer);
setlength(rbuf,n);
viewstring:='';
move(buffer^,pchar(@rbuf)^, n);
for i:=1 to n do //bufferlength do
begin
viewstring:=viewstring+inttohex(rbuf,2)+'';
end

viewstring:='接收:'+viewstring+' ';
memo1.lines.add(viewstring);
memo1.lines.add('');
end;

 

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #2

为何改成如下就无问题。
procedure TfmMain.spcommReceiveData(Sender: TObject
Buffer: Pointer;
BufferLength: Word);
var
s: string;
begin
SetLength(S, BufferLength)
//接收RS232的数据并显示Memo1上。
Move(Buffer^, PChar(S)^, BufferLength);
Memo1.Lines.Add(S);
Memo1.Invalidate;
end;

 

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #3

好像关键在以下两句中。
注：rbuf:array of byte;


move(buffer^,pchar(@rbuf)^, n);
for i:=1 to n do //bufferlength do
begin
viewstring:=viewstring+inttohex(rbuf,2)+'';
end

 

L

LGXing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #4

rbuf:array of byte;
rbuf是从0开始的
for i:=0 to n-1 do

 

V

V_Lucky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #5

先看看

 

N

nzfsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #6

move(buffer^,pchar(@rbuf)^, n);
^^^
to
move(buffer^,pchar(rbuf)^, n);
^ 是取地址的意思，@也是取地址的意思，留一个即可。

 

N

nzfboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-27

• #7

多人接受答案了。