gpt4 book ai didi

delphi如何设置tcpserver接收字符串数据

转载 作者:可可西里 更新时间:2023-11-01 02:44:26 26 4
gpt4 key购买 nike

我必须设置一个 tcp 服务来处理一些客户端请求

所有请求均以1099字节长度的十六进制字符串数据包形式出现,并且均以00D0开始,以00000000结束

procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);
begin
AContext.Connection.IOHandler.ReadBytes(data, 1099, False);

RStr:='';
for I := 0 to length(data)-1 do
RStr := RStr + chr(data[i]);

if(copy(RStr,1,4)='00D0') and (copy(RStr,1091,8)='00000000') then
begin
Memo14.Lines.Add( 'Frame added to database.' );
end
else
begin
Memo14.Lines.Add( 'error invalid Frame ...' );
end;
end;

服务器收到1099字节的数据包但是只是error invalid Frame ...显示。

我的代码有什么问题!?

PS:客户端不断向服务器发送数据,我的意思是客户端从第3方接收数据并发送到服务器,所以数据可能不是从数据包的第一个开始的!所以我必须先丢弃一些数据才能到达数据包 00D0!

最佳答案

Indy 在 IdGlobal 单元中有一个 BytesToString() 函数,因此您不需要将 TIdBytes 转换为 string 手动:

RStr := BytesToString(data);

string 通常是从 1 开始索引的(除非您正在为移动设备编译并且不使用 {$ZEROBASEDSTRINGS OFF}),所以 copy(RStr ,1091,8) 应该使用 1092 而不是 1091,因为您正在读取 1099 字节而不是 1098 字节:

copy(RStr,1092,8)

但是,Indy 有 TextStartsWith()TextEndsWith() 函数,也在 IdGlobal 单元中,所以你不需要手动提取和比较子字符串:

if TextStartsWith(RStr, '00D0') and TextEndsWith(RStr, '00000000') then

现在,话虽这么说,如果您的套接字数据本质上确实是文本数据而不是二进制数据,您应该使用 TIdIOHandler.ReadString() 方法而不是 TIdIOHandler.ReadBytes() 方法:

RStr := AContext.Connection.IOHandler.ReadString(1099);

或者,TIdIOHandler 也有 WaitFor()ReadLn() 方法来读取分隔文本,例如:

AContext.Connection.IOHandler.WaitFor('00D0');
RStr := '00D0' + AContext.Connection.IOHandler.ReadLn('00000000') + '00000000';

AContext.Connection.IOHandler.WaitFor('00D0');
RStr := '00D0' + AContext.Connection.IOHandler.WaitFor('00000000', True, True);

最后,TIdTCPServer 是一个多线程组件,它的 OnExecute 事件是在工作线程的上下文中触发的,而不是主 UI 线程。因此,您必须在访问 UI 时与主 UI 线程同步,例如通过 RTL 的 TThread.Queue()TThread.Synchronize() 类方法,或者Indy 的 TIdNotifyTIdSync 类等。当您从外部访问 UI 控件时,可以并且通常确实会发生坏事主 UI 线程。

更新:在评论中,您说数据实际上是以字节为单位,而不是文本字符。并且您需要在开始读取记录之前删除字节。在这种情况下,您根本不应将字节转换为 string。改为按原样处理字节,例如:

procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);
var
data: TIdBytes;
b: Byte;
begin
b := AContext.Connection.IOHandler.ReadByte;
repeat
if b <> $00 then Exit;
b := AContext.Connection.IOHandler.ReadByte;
until b = $D0;

SetLength(data, 2);
data[0] = $00;
data[1] = $D0;
AContext.Connection.IOHandler.ReadBytes(data, 1097, True);

repeat
if {(PWord(@data[0])^ = $D000)}(data[0] = $00) and (data[1] = $D0)
and (PUInt32(@data[1091])^ = $00000000) then
begin
TThread.Queue(nil,
procedure
begin
Memo14.Lines.Add( 'Frame added to database.' );
end;
);
end else
begin
TThread.Queue(nil,
procedure
begin
Memo14.Lines.Add( 'error invalid Frame ...' );
end;
);
end;
AContext.Connection.IOHandler.ReadBytes(data, 1099, False);
until False;
end;

关于delphi如何设置tcpserver接收字符串数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55522106/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com