Delphi IdTCPClient 发送二进制数据

admin

1. uses
   
2.   IdTCPClient, IdGlobal;
   
3. 
   
4. var
   
5.   TCPClient: TIdTCPClient;
   
6.   BinaryData: TIdBytes;
   
7. begin
   
8.   TCPClient := TIdTCPClient.Create(nil);
   
9.   try
   
10.     TCPClient.Host := '127.0.0.1';
    
11.     TCPClient.Port := 12345;
    
12. 
    
13.     // 初始化二进制数据
    
14.     SetLength(BinaryData, 5); // 分配5个字节的空间
    
15.     BinaryData[0] := 65;      // 写入ASCII 'A' 的字节值
    
16.     BinaryData[1] := 66;      // 'B'
    
17.     BinaryData[2] := 67;      // 'C'
    
18.     BinaryData[3] := 68;      // 'D'
    
19.     BinaryData[4] := 69;      // 'E'
    
20. 
    
21.     TCPClient.Connect;
    
22.     try
    
23.       TCPClient.IOHandler.Write(BinaryData); // 发送二进制数据
    
24.     finally
    
25.       TCPClient.Disconnect;
    
26.     end;
    
27.   finally
    
28.     TCPClient.Free;
    
29.   end;
    
30. end;

复制代码