通过套接字交换数据

Question

当我向客户端发送一个字符串 (tkString) 时，客户端在尝试重建 TValue 时告诉我（在 WMClientRecv 内部）访问冲突，为什么？ -_-" 与其他类型的数据一起工作得很好......

例如，整数 (tkEnum)

这里是服务器代码（向客户端发送调用数据）

procedure TServerClass.InvokeMethod(const InvokableMethod: TInvokeableMethod; const MethodArg: TValue);
var
  InvokeRec : packed record
    Method: Array[0..19] of Char;
    ArgRawSize: Integer;
    ArgTypeInf: TTypeInfo;
    ArgRawData: Array[0..255] of Byte; 
  end;
begin
  // copy method name to record
  lstrcpy(InvokeRec.Method, PChar(InvokableMethod));

  // copy arg array to record
  InvokeRec.ArgRawSize := MethodArg.DataSize;

  if (MethodArg.DataSize <> 0) then
  begin
    MethodArg.ExtractRawData(PByte(@InvokeRec.ArgRawData[0]));

    InvokeRec.ArgTypeInf := MethodArg.TypeInfo^;
  end; 

  // send record
  ServerSocket.Socket.Connections[idxSocket].SendBuf(PByte(@InvokeRec)^, SizeOf(InvokeRec));
end;

客户端将其读取为：

procedure TClientClass.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var
  Buffer: PByte;
  BufLen: Integer;

  InvokeRec: TInvokeRec;
begin
  BufLen := Socket.ReceiveLength;

  Memo1.Lines.Append(Format('%d: Received %d bytes', [Memo1.Lines.Count, BufLen]));

  // dump keep-alive from recv buffer
  if (BufLen = 64) then
  begin
    GetMem(Buffer, BufLen);
    try
      Socket.ReceiveBuf(Buffer^, BufLen);
    finally
      FreeMem(Buffer, BufLen);
    end;
    Exit;
  end;

  Socket.ReceiveBuf(PByte(@InvokeRec)^, BufLen);
  SendMessage(Handle, WM_ClientRecv, 0, LPARAM(@InvokeRec));
end;

WMClientRecv 的例程：

procedure TClientClass.WMClientRecv(var Msg: TMessage);
var
  // we send to server
  ReadRec: TSharedRec;

  // we recv from server
  InvokeRecPtr: PInvokeRec;

  Value: TValue;
begin
  InvokeRecPtr := PInvokeRec(Msg.LParam);

  case InvokeRecPtr.ArgRawSize of
  0:
    Value.Empty;
  else
    TValue.Make(PByte(@InvokeRecPtr.ArgRawData)^, PTypeInfo(@InvokeRecPtr.ArgTypeInf), Value);
  end;

  InvokableSubclass.ExecMethod(InvokeRecPtr.Method, Value);
end;

还有ExceMethod：

procedure TInvokableSubclass.ExecMethod(const vmName: string; const Arg0: TValue);
var
  LContext: TRttiContext;
begin
  //
  FSendMode := TextMode;

  //
  if (Arg0.DataSize = 0) then
  begin
    LContext.GetType(TInvokableSubclass).GetMethod(vmName).Invoke(Self, []);
    Exit;
  end;

  LContext.GetType(TInvokableSubclass).GetMethod(vmName).Invoke(Self, Arg0);
end;

Answer 1

您正在尝试序列化TTypeInfo 类型的变量。看看它的声明：

TTypeInfo = record
  Kind: TTypeKind;
  Name: ShortString;
 {TypeData: TTypeData}
end;

您的代码将序列化前两个字段，但无法序列化作为实现细节的一部分的隐藏字段。这是一种比较特殊的类型。您不能简单地将一个TTypeInfo 变量分配给另一个变量。你应该传递PTypeInfo 变量。

实际上，考虑发送类型信息的代码：

InvokeRec.ArgTypeInf := MethodArg.TypeInfo^;

这个代码已经被破坏了，因为它被分配给TTypeInfo，正如我上面所说的，这不能通过简单的分配来完成。

现在，您显然不能简单地序列化 PTypeInfo，因为这仅在拥有它的进程的地址空间中有意义。而且您不能轻易调用GetTypeData() 并序列化返回的PTypeData。这是一个复杂的结构，其中还包含难以序列化的指针。

我怀疑最简单的方法是推出您自己的类型信息序列化机制。也许发送类型的名称然后让接收者使用该名称查找它就足够了。

Answer 2

正如我刚刚评论您的other question，TTypeInfo 是可变长度并包含指向其他数据的指针，因此您不能按原样传输它并让它在接收端有意义。您必须传输TValue.TypeInfo.Name 字符串，然后您可以在接收端使用TRttiContext.FindType(Name).Handle 以获取适当的TTypeInfo 以传递给TValue.Make()。