在delphi中从IdTCPServer连接读取未知数量的字节

时间:2019-02-08 19:57:14

标签: indy10 delphi-10.2-tokyo

我正在设置一个客户端/服务器程序,以在我的应用程序中发送和接收未知数量的字节。如何在程序中接收未知的缓冲区大小?

我将数据传递到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。数据包好,发送也好。但是在服务器端会出现问题。

1 个答案:

答案 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;