Delphi 使用socket和其他实体通信：

admin

用任意语言编一个TCP的socket，然后Delphi与之通信：

1. uses IdTCPClient;
   
2. var TCPClient : TIdTCPClient;
   
3.   procedure TForm1.sendAndReceive(conn: TIdTCPClient);
   
4.     var
   
5.       client_text, recvString: string;
   
6.       buf: array[0..1023] of Char;
   
7.       buffer: TBytes;
   
8.       leng_of_msg : Longint;
   
9.       bytes_length, bytes_body, raw_client_to_send: TBytes;
   
10.     begin
    
11. 
    
12.         try
    
13.           client_text := '|CONSUMER|INIT|RaspiFreeLancer|RaspiCardBoard|1|';
    
14.           memo1.Lines.Add('Will send:' + client_text);
    
15. 
    
16.           leng_of_msg := length(client_text);
    
17.           memo1.Lines.Add(inttostr(leng_of_msg));
    
18. 
    
19.           bytes_length := longToBytes(leng_of_msg);
    
20. 
    
21.           bytes_body := stringToBytes(client_text);
    
22. 
    
23.           raw_client_to_send := combineTwoBytes(bytes_length, bytes_body);   // 都将两个字节组合到一块
    
24. 
    
25.           if (conn.Connected) then  // and (TCPclient.Socket.Opened) then
    
26.           begin
    
27.             //TCPClient.IOHandler.(client_text, length(client_text)); // 发送数据到服务器
    
28. 
    
29.             conn.IOHandler.WriteDirect(raw_client_to_send);
    
30. 
    
31.           end;
    
32.          
    
33.           if (conn.Connected) and (not conn.Socket.InputBufferIsEmpty) then
    
34.           begin
    
35. 
    
36.             conn.IOHandler.CheckForDataOnSource(100);  // fill the output buffer with a timeout of 100ms.
    
37.             conn.IOHandler.InputBuffer.ExtractToBytes(buffer, -1, True, -1);  // False???
    
38.             memo2.Lines.Add('Has recved value:' + bytesToString(buffer));
    
39. 
    
40.           end;
    
41.           // recvString := TCPClient.IOHandler.ReadLn;    // 从服务器接收数据
    
42. 
    
43.           // TCPClient.IOHandler.readln(buf, 1024);
    
44.           // setLength(buffer, 100);
    
45.           // TCPClient.IOHandler.ReadBytes(buffer,100,False); //   ReadBytes(buffer, 1024, True);
    
46. 
    
47.           // memo1.Lines.add('Read from server:' + recvString); // 显示服务器响应
    
48.         except
    
49. 
    
50.           on e: exception do
    
51.             memo1.Lines.add('Error:' + e.className + e.message);
    
52.         end;
    
53.     end;
    
54. 
    
55.     function TForm1.combineTwoBytes(const bytes1, bytes2: TBytes): TBytes;
    
56.     begin
    
57.       setLength(result, length(bytes1) + length(bytes2));
    
58.       copyMemory(@result[0], @bytes1[0], length(bytes1));
    
59.       copyMemory(@result[length(bytes1)], @bytes2[0], length(bytes2));        
    
60.     end;
    

复制代码

1.   procedure TForm1.FormCreate(Sender: TObject);
   
2.   begin
   
3.     TCPClient := TIdTCPClient.Create(nil);
   
4.     try
   
5. 
   
6.       TCPClient.Host := '172.17.10.100'; // Python服务器的IP地址
   
7.       TCPClient.Port := 65535;        // Python服务器监听的端口
   
8.           //TCPClient.ConnectTimeout := 5000; // 连接超时时间
   
9.           //TCPClient.ReadTimeout := 2000;    // 读取超时时间
   
10. 
    
11.       TCPClient.Connect;               // 连接到服务器
    
12. 
    
13.       //TCPClient.socket.open;
    
14. 
    
15.       //sendAndReceive(TCPClient);
    
16. 
    
17.     except
    
18.       on e: Exception do
    
19.          begin
    
20.           TCPClient.Disconnect; // 断开连接
    
21.           TCPClient.Free;
    
22.           memo2.Lines.Add('Error conn:' + e.Message);
    
23.          end;
    
24.     end;
    
25.   end;

复制代码

暂时就是这么编的，帧的前部是后部的长度，用一个长整型记录，之后两个部分都转成字节，然后相连接，发送。
收取的也是字节，转成字串输出。数据的转换请看前面一个帖子。
用到TIdTCPClient， Delphi2007 编译通过。

暂时这么编的。似乎有些时候不太稳定，欢迎大家批评。

admin

这里有一个从百度抄来的使用WinSock的例子，需要的可以参考delphi socket 通信

1. program Project1;
   
2. 
   
3. uses
   
4.   SysUtils,
   
5.   Winsock;
   
6. 
   
7. var
   
8.   sock: TSocket;
   
9.   host: string;
   
10.   servPort: Integer;
    
11.   hostaddr: TSockAddrIn;
    
12.   names: PHostEnt;
    
13.   buf: array[0..1023] of Char;
    
14.   name: string;
    
15.   WSAData: TWSAData;
    
16. begin
    
17.   // 初始化Winsock
    
18.   WSAStartup($202, WSAData);
    
19. 
    
20.   // 设置服务器IP地址和端口
    
21.   host := '127.0.0.1';
    
22.   servPort := 12345;
    
23. 
    
24.   // 创建socket
    
25.   sock := socket(AF_INET, SOCK_STREAM, 0);
    
26. 
    
27.   // 填写服务器地址结构
    
28.   hostaddr.sin_family := AF_INET;
    
29.   hostaddr.sin_port := htons(servPort);
    
30.   names := gethostbyname(PChar(host));
    
31.   move(names^.h_addr_list^, hostaddr.sin_addr.S_addr, names^.h_length);
    
32. 
    
33.   // 连接服务器
    
34.   connect(sock, hostaddr, sizeof(hostaddr));
    
35. 
    
36.   // 接收数据
    
37.   recv(sock, buf, 1024, 0);
    
38. 
    
39.   // 打印接收到的数据
    
40.   Writeln(buf);
    
41. 
    
42.   // 关闭socket
    
43.   closesocket(sock);
    
44. 
    
45.   // 清理Winsock
    
46.   WSACleanup;
    
47. 
    
48.   readln;
    
49. end.

复制代码