5

我正在使用 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));

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

4

2 回答 2

1

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.2 http://www.indyproject.org/docsite/html/TIdIOHandler_ReadSmallInt@Boolean.html 1.3 http： //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
于 2012-12-12T12:09:41.213 回答
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;
于 2012-12-13T00:58:57.777 回答