我正在设置一个客户端/服务器程序,以在我的应用程序中发送和接收未知数量的字节。如何在程序中接收未知的缓冲区大小?
我将数据传递到TIdBytes
变量,并通过以下行发送它:
IdTCPClient.IOHandler.Write(TIdBytes_Var);
TIdBytes_Var
的第一个字节确定数据包大小,并因其他条件而变化。我会注意软件包的大小,不要超过1024字节。
在接收方(IdTCPServerExecute),我添加以下行以读取所有字节:
var
byte_buffer: TIdBytes;
begin
AContext.Connection.IOHandler.ReadBytes(byte_buffer,-1,false);
end;
在调试模式下,当我从客户端向服务器发送第一个数据包后,引发了异常:
带有消息“''的引发的异常类EConvertError不是有效的浮点值
在运行模式下,只会丢失我的连接。
问题出在哪里,如何从Indy的输入缓冲区接收所有字节?
这是我的最小代码:
在客户端制作数据包并最终设置传递给其他线程的事件
//create packet. Buffer_to_send is a TIdBytes variable on unit of network thread (U_network_thread).
SetLength(U_network_thread.Buffer_to_send,(6 + (tmp_ints * 12)));//set buffer lenght dynamically, tmp_ints is my record counter(shortint)
tmp_int:= 2;//tmp_int is the integer variable
U_network_thread.Buffer_to_send[0]:= $1;//header sign
U_network_thread.Buffer_to_send[1]:= tmp_ints;//tmp_ints is my record counter as short integer
while tmp_ints > 0 do
begin
Read(My_File,tmp_rec);//read record from bin file
Move(tmp_rec,U_network_thread.Buffer_to_send[tmp_int],12);//12 is record lenght
tmp_int:= tmp_int + 12; //add pointer
dec(tmp_ints);
end;
tmp_int2:= zone_i;//integer info
Move(tmp_int2,U_network_thread.Buffer_to_send[tmp_int],4); //add info to the packet
Frq_Evt.SetEvent; //set event to triger sending on other thread
在net_thread上,连接到服务器并通过ReadLn
命令接收到ack符号后,我等待事件
procedure TNetThread.Execute;
.//create IdTCPClient1 and connect to server
.//receive ack from server by IdTCPClient1.IOHandler.ReadLn command
.//wait for event
while(true) do
if (FEvent.WaitFor(200) = wrSignaled) then//Buffer_to_send fill on main thread
begin
//send buff
if sending_buf(Buffer_to_send) then
begin
//sending ok
end
else
begin
//sending error
end;
end;
end;
end;
function TNetThread.sending_buf(T_Buffer: TIdBytes): boolean;
begin
try
IdTCPClient1.IOHandler.Write(T_Buffer)
result := true;
except
result := false;
end;
end;
在服务器端,连接后,通过WriteLn
命令发送确认符号,而在IdTCPServerExecute
上我尝试这样做
procedure Tmain_form.IdTCPServerExecute(AContext: TIdContext);
var
byte_buffer: TIdBytes;
begin
AContext.Connection.IOHandler.ReadBytes(byte_buffer,-1,false);
//do something else
end;
所有工作正常且连接已通过,服务器将ack符号发送给客户端。客户收到它并等待事件。事件发生后,客户端将组成数据包,并将其传递给net_thread。数据包好,发送也好。但是在服务器端会出现问题。
答案 0 :(得分:0)
TIdBytes_Var的第一个字节确定数据包的大小,并因其他条件而变化。
因此,然后简单地先读取1个字节,然后读取它说了多少个附加字节,例如:
AContext.Connection.IOHandler.ReadBytes(byte_buffer, AContext.Connection.IOHandler.ReadByte, false);
我会注意软件包的大小,不要超过1024字节。
单个字节不能超过255,因此您的最大数据包大小将为256,包括大小字节。
在我从客户端向服务器发送第一个数据包后,在调试模式下出现问题并收到: “带有消息“''的引发的异常类EConvertError不是有效的浮点值”
显示的代码无法引发该异常。
更新
这是我的最小代码
现在看您的代码,我可以看到,尽管您先前有声明,但是数据包的 first 字节不是数据包大小,它始终是$01
。实际上,分组中根本没有存储分组大小。 2nd 字节包含存储在数据包中的12字节记录的数量,并且该数据包具有6个固定字节,因此最大数据包大小实际上是3066字节。
尝试更多类似的方法:
传递给其他线程
// create packet. Buffer_to_send is a TIdBytes variable on unit of network thread (U_network_thread).
SetLength(U_network_thread.Buffer_to_send, (6 + (tmp_ints * 12))); // set buffer length dynamically, tmp_ints is my record counter(shortint)
tmp_int := 2; // tmp_int is the integer variable
U_network_thread.Buffer_to_send[0] := $1; //header sign
U_network_thread.Buffer_to_send[1] := tmp_ints; // tmp_ints is my record counter as short integer
while tmp_ints > 0 do begin
Read(My_File, tmp_rec); // read record from bin file
Move(tmp_rec, U_network_thread.Buffer_to_send[tmp_int], 12); // 12 is record length
Inc(tmp_int, 12); // add pointer
Dec(tmp_ints);
end;
tmp_int2 := GStack.HostToNetwork(UInt32(zone_i)); // integer info, in network byte order
Move(tmp_int2, U_network_thread.Buffer_to_send[tmp_int], 4); // add info to the packet
Frq_Evt.SetEvent; // set event to trigger sending on other thread
procedure Tmain_form.IdTCPServerExecute(AContext: TIdContext);
var
byte_buffer: TIdBytes;
Header: Byte;
Count: Word;
Zone: Integer;
begin
Header := AContext.Connection.IOHandler.ReadByte; // should always be $01
Count := AContext.Connection.IOHandler.ReadByte; // record counter
AContext.Connection.IOHandler.ReadBytes(byte_buffer, Count * 12); // records
Zone := AContext.Connection.IOHandler.ReadInt32; // zone
// process as needed...
end;