Diocp学习笔记6、通过JSON 字符串传输（DELPHI 通讯框架）

最新推荐文章于 2025-05-26 11:32:12 发布

原创最新推荐文章于 2025-05-26 11:32:12 发布 · 1.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#DELPHI

DELPHI-Diocp 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一个使用JSON进行客户端到服务端数据交互的例子。客户端通过构造JSON数据包并将其发送到服务端，服务端接收到数据包后解析JSON内容。示例包括了客户端如何创建JSON数据、将其转换为字符串并发送，以及服务端如何读取并解析这些数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、客户端发送数据

var
  lvJsonStream: TJsonStream;
  SS: AnsiString;
  lvStream:TMemoryStream;
begin
 
    //创建JSON类，并生成数据
    lvJsonStream := TJsonStream.Create;
    lvJsonStream.Json.I['cmdIndex'] := 11;
    lvJsonStream.Json.S['requestID'] := 'login';
    lvJsonStream.Json.S['user.id'] := AUserID;
    lvJsonStream.Json.S['user.paw'] := APaw;
    //生成JSON字符患
    SS := lvJsonStream.getJSonString;
    //转为流
    lvStream := TMemoryStream.Create;
    lvStream.Write(SS[1], Length(SS));
    lvStream.Position := 0;
    //发送
    DiocpContext.WriteObject(lvStream);
end;

2、服务端接收

procedure TMyClientContext.DoContextAction(const pvObject: TObject);
var
  lvCMDObj: TSimpleMsgPack;
   vStream: TMemoryStream;
   SS:string;
begin
  lvJsonStream := TJsonStream.Create;
  //获取传入的流，并转换成字符串
  vStream := TMemoryStream(pvObject);
  SetLength(SS, vStream.Size);
  vStream.Read(SS[1], vStream.Size);
  //将字符串传成JSON
  lvJsonStream.Json:=SO(SS);
  SS:=lvJsonStream.Json.S['requestID'];
  
end;