INDY10的内存拷贝问题

[changsn]

var
  Login:CRLogin;
  buffer:array[1..2048]of char;
begin
  BytesToRaw(AData,buffer,SizeOf(AData));
  if buffer[1]=SKLogin then
  begin
    CopyMemory(@login,@buffer[2],SizeOf(login));
    memo1.Lines.Add(Login.Name);
  end;
end;

把接收来的字节数组，转换成缓存，然后拷贝到自定义的，记录中，每次只可以接收1个字节。

[changsn]

procedure TMainForm.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
var
  login:CRLogin;
  buffer:array[1..2048]of Char;
begin
  BytesToRaw(AData,buffer,SizeOf(AData));
  CopyMemory(@login,@buffer,SizeOf(CRLogin));
  memo1.Lines.Add(login.Name);
end;

[Quote=引用 2 楼 的回复:]

procedure CLogin;
var
  Login:CRLogin;
  buffer:array[1..2048]of char;
begin
  Login.Name :=MainForm.Edit3.Text;
  CopyMemory(@buffer,@login,SizeOf(CRLogin));
  MainForm.IdUDPClient1.SendBuffer(RawToBytes(buffer,SizeOf(buffer)));
end;

SizeOf(login));
这个用错了。
login应该是它的类型，不是变量
看样子应该是 CRLogin
CopyMemory(@login,@buffer[2],SizeOf(CRLogin));
[/Quote]
总是不对……这次接收的是3个字节

[changsn]

两边大小都试过了，type
CRLogin=record
Name:string[20];
ID:string[20];
IP:string[20];
Port:Word;
end;

加上edit的内容，是66个字节

[xhz8000]

两边大小都试过了，type
CRLogin=record
Name:string[20];
ID:string[20];
IP:string[20];
Port:Word;
end;

修改为这样吧！
CRLogin=record
Name:array[0..19] of char;
IP:array[0..19] of char
Port:Word;
end;

[mhhaifeng]

MainForm.IdUDPClient1.SendBuffer(RawToBytes(buffer,SizeOf(buffer)));

SizeOf(buffer)这样用行不？ 没这样用过
为什么不直接写长度？ 毕竟已确定

[山东蓝鸟贵薪]

建议楼主用showmessage();
测试出每一步的“结果”看看吧，
也可能是参数没有“传递”

[mhhaifeng]

function SizeOf(X): Integer;
Description Pass a Delphi variable reference to SizeOf to determine the number of bytes used to represent the variable. Pass a type identifier to SizeOf to determine the number of bytes used to represent instances of that type. SizeOf is useful for determining the amount of memory to specify for the FillChar, Move, or GetMem procedures.

[mhhaifeng]

我怀疑是你乱用 SizeOf(X) 的问题

[bdmh]

SizeOf(login)，你确定是 1

[wzca]

SizeOf(login));
这个用错了。
login应该是它的类型，不是变量
看样子应该是 CRLogin
CopyMemory(@login,@buffer[2],SizeOf(CRLogin));