lmcui:
看来你还是很谦虚,那我们再讨论讨论。
string确实是一个字符序列，而Move函数需要的是指向缓冲区的变量，注意，不是
指针，所以如果是指针，一定要加^.
而PChar(@S)^仔细分析，其实等同于S，也就是说
Move(Buffer^,Pchar(@S)^,BufferLength);
等同于
Move(Buffer^,S,BufferLength);
那么Move(Buffer^,S,BufferLength);是否正确呢？
相信大家可以比较清楚的明白这是错误的。这里大家需要仔细理解一下
为什么PChar(@S)^等同于S！
那为什么PChar(S)^又可以呢？是因为Delphi专门对PChar(S)作了处理，
使PChar(S)相当于一个函数，功能为取字符串S中，指向实际存储字符串
的内存地址，所以PChar(@S)是一种想当然的用法，因为S的地址不等于
保存字符串的内存地址！不知lmcui兄是否明白了？
cjh_xf：
以下是你的程序：
//数据发送部分
procedure TForm1.Button1Click(Sender: TObject);
var
Stream1:TFileStream;
J:Integer;
B:Byte;
begin
//将图形数据放于stream中，然后再按字节读出，发送
Stream1:=TFileStream.Create('C:/My Documents/My Pictures/3.bmp', fmOpenRead);
try
for J:=0 to Stream1.Size do
begin
Stream1.Read(B,1);
if not Comm1.WriteCommByte(B) then
Sleep(1);
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~这有什么用？失败了还是照发不误，仅仅Sleep(1),作用何在？
end;
//以#为结束标志
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
首先，你在设计传输协议上是错误的，或者说你根本没有作过
这方面的东西，所以想出了个用'#'作结束符的主意。难道图形数据中
你能保证没有'#'这个数据？那么接收端收到'#'后，怎么判断是结束还
是图形中的数据？
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Comm1.WriteCommData('#',1);
finally
Stream1.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
try
Comm1.StartComm;
StatusBar1.SimpleText:='正常工作';
except
StatusBar1.SimpleText:='串口被占用或不存在！';
end;
Stream2:=TMemoryStream.Create;
//创建bitmap
Bitmap1:=TBitmap.Create;
//
Edit1.Text:=IntToStr(Comm1.BaudRate);
ComboBox1.Text:=Comm1.CommName;
end;
//接受部分
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
BufferLength: Word);
var
S:String;
I:Integer;
begin
SetLength(S,BufferLength);
Move(Buffer^,Pchar(S)^,BufferLength);
I:=SizeOf(S);
if I<0 then
exit;
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I的值是多少？什么意思？I=SizeOf(S)永远是4，想想为什么？
如果你要取S的长度，应该用I=Length(S)，但是，显然S的长度
是BufferLength,所以，这几句话混乱不堪，概念和逻辑错误百出
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
/////////////////////////////////////////////////
//判断是否结束
if S='#' then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
由于S是整个字符串，所以这里又是概念和逻辑错误百出
当然，以下的代码就毫无用处了
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
begin
//将接受到的图片存放文件中，并显示在image中
Stream2.Position:=0;
Bitmap1.LoadFromStream(Stream2);
Image1.Picture:=TPicture(Bitmap1);
end
else
begin
//将数据读入到流中
Stream2.Write(S,1);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Comm1.StopComm;
Bitmap1.FreeImage;
Stream2.Free;
end;
所以，第一，需要重新设计传输协议，规定如何才算到达结束，如果
要在你的基础上改动的话，需要加入转义字符，比如，定义ESC（0x1B)
为转义字符，'#'是结束字符，那么，遇到数据'#',我们用ESC+'#'两个
字符表示，遇到ESC，用ESC＋ESC来表示，如果碰到'#'而前面没有ESC，
则表示结束。
相应的，需要在接收端判断转义字符，来确定是否是ESC，数据'#'还是
结束'#'！
我想不用我给你编程吧，那样的话就没有意思了，对吧，不过你可以把你
的改动给我看看，一起帮你做，这样还是可以的，加油干吧，小伙子！
