Question

如何利用Delphi 6编写Socket网络通信程序1

Answer 1

现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。 设计思路本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接通信。 type client_record=record CHandle: integer; //客户端套接字句柄 CSocket:TCustomWinSocket; //客户端套接字 CName:string; //客户端计算机名称 CAddress:string; //客户端计算机IP地址 CUsed: boolean; //客户端联机标志 end; 下面对组件ServerSocket和ClientSocket的属性设置简单说明。 ServerSocket的属性： · Port，是通信的端口，必须设置。在本例中设置为1025； · ServerTypt，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。 · ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值10。 其它属性采用默认设置即可。

Answer 2

直接百度搜索【利用Delphi编写Socket通信程序】那是我十几年前写的