如何在 Delphi 中使用 Indy Client 从服务器读取所有字节？

Question

我正在使用 Indy 客户端来读取服务器发送给我（客户端）的消息。它一口气向我发送了 512 字节的数据。这 512 字节的数据由两种数据类型（Word 和 String）组成。例如，它发送 2 个字节的字，然后再发送 2 个字节的字，然后是 50 个字节的字符串，依此类推。我正在尝试以下代码来解决这个问题：

var BufferArray : Array[0..512] of Byte;

 if IdTCPClient1.IOHandler.InputBufferIsEmpty then
 begin
      if IdTCPClient1.IOHandler.CheckForDataOnSource(1000) then
      begin
          Edit1.Text := idtcpclient1.IOHandler.ReadBytes(BufferArray ,512, true);
      end;
 end;

我在 Edit1.Text := idtcpclient1.IOHandler.ReadBytes(BufferArray ,512, true);错误：实际和形式 var 参数的类型必须相同。

我使用的方法是否正确。我想在 Edit1.Text 上存储整个 512 个字节，然后对这些数据做任何我想做的事情。请帮助我从服务器获取所有 512 字节。

更新：替代方法

我正在使用这种方法来读取单词和字符串值

WordArray : array[0..5] of word;

 if IdTCPClient1.IOHandler.InputBufferIsEmpty then
 begin
      if IdTCPClient1.IOHandler.CheckForDataOnSource(1000) then
      begin
        i := 0;
        while i < 6 do //Read all the words
        begin
            //Fill WORD data in array
            WordArray[i] :=  (IdTCPClient1.Socket.ReadWord(True));
        end;
      end;
end;

类似字符串的方法

WordArray[i] := (IdTCPClient1.Socket.ReadString(50));

工作正常，但我必须在循环读取所有数据时保持连接打开。如果中间连接中断，我会丢失所有内容，必须再次从服务器请求整个包。

Answer 1

很难回答你，除非你准确地描述了你所拥有的文档中所写的内容。到目前为止，我们知道您的 512B 数据包由 6 个单词和 10x50B 字符串组成。因此，请以此为起点，直到您告诉我们更多信息：

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Buffer: TBytes;
  WordArray: array[0..5] of Word;
  StringArray: array[0..9] of AnsiString;
begin
  if IdTCPClient1.IOHandler.InputBufferIsEmpty then
  begin
    if IdTCPClient1.IOHandler.CheckForDataOnSource(1000) then
      IdTCPClient1.IOHandler.ReadBytes(Buffer, 512, False);

    for I := 0 to High(WordArray) do
    begin
      WordRec(WordArray[I]).Hi := Buffer[I * 2];
      WordRec(WordArray[I]).Lo := Buffer[I * 2 + 1];
    end;
    for I := 0 to High(StringArray) do
      SetString(StringArray[I], PAnsiChar(@Buffer[I * 50 + 12]), 50);

    // here you have the arrays prepared to be processed
  end;
end;

Answer 2

1：字符串的字符集是什么？它是 1 字节的 windows-1251 吗？还是 2 字节的 Unicode UCS-2 ？还是可变长度的 UTF-8 或 UTF-16？

2：字符串的长度是多少？总是 50？

---

读取缓冲区：

1. 阅读手册
   1.1 http://www.indyproject.org/docsite/html/TIdIOHandler_ReadBytes@TIdBytes@Integer@boolean.html
   1.2http://www.indyproject.org/docsite/html/TIdIOHandler_ReadSmallInt@Boolean.html 1.3http://docwiki.embarcadero.com/Libraries/XE2/en/System.SetString

2. 根据类型和参数描述准确地编写代码。
   2.1 阅读标题：这应该会导致类似

   var  Word1, Word2: word;
   
   Word1 := IOHandler.ReadSmallInt(false);   
   Word2 := IOHandler.ReadSmallInt(false);
   

3. 读取单字节字符串
   3.1 读取缓冲区
   3.2 缓冲区转字符串

   var  Word1, Word2: word;  Buffer: TIdBytes;    
   var s: RawByteString;     
    // or AnsiString; or maybe UTF8String; but probably not UnicodeString aka string
   
   Word1 := IOHandler.ReadSmallInt(false);   
   Word2 := IOHandler.ReadSmallInt(false);
   
   // You should check that you really received 50 bytes,
   // then do something like that:
   
   IOHandler.ReadBytes(Buffer, 50, false);    
   Assert(Length(Buffer)=50);    
   SetString (s, pointer(@Buffer[0]), 50);    
   

4. 继续阅读其余部分 - 您只阅读了 512 字节数据包的 50+2+2 = 54 个字节 - 应该还有更多数据。

512 = 54*9+26 - 所以它可能看起来像一个循环 - 并丢弃 26 字节尾部。

    var Word1, Word2: word;  Buffer: TIdBytes;    
    var s: RawByteString;     

    for i := 1 to 9 do begin    
      Word1 := IOHandler.ReadSmallInt(false);     
      Word2 := IOHandler.ReadSmallInt(false);  

      IOHandler.ReadBytes(Buffer, 50, false);        
      Assert(Length(Buffer)=50);      
      SetString (s, pointer(@Buffer[0]), 50);    

      SomeOutputCollection.AppendNewElement(Word1, Word2, s);   
    end;   
    IOHandler.ReadBytes(Buffer, 512 - 9*(50+2+2), false); // discard the tail