ServerSocket和ClientSocket控件源码.rar_DelphiServerSocket_clientsock

共3个文件

htm：2个

txt：1个

版权申诉

socket

147 浏览量 2022-09-23 06:29:53 上传评论收藏 15KB RAR 举报

资源推荐

资源详情

资源评论

收起资源包目录

ServerSocket和ClientSocket控件源码.rar （3个子文件）

Socket编程.htm 40KB

www.pudn.com.txt 218B

SvrSocket,CltSocket控件源码.htm 38KB

<html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>SOCKET 编程</title> </head> <body> SOCKET 编程 <table border="1" width="100%" bgcolor="#C0C0C0"> <tr> <td width="100%">ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。 设计思路   本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接通信。 本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服务器端时，服务器端如何识别每个客户端，并对请求给出相应的回复。为了保证一个客户端断开连接时不影响其它客户端与服务器端的通信，同时保证服务器端能够正确回复客户端的请求，在本例中声明了一个记录类型： <div align="center"> <table borderColor="#d0a070" cellSpacing="0" borderColorDark="#ffffff" cellPadding="5" width="99%" bgColor="#ffffc0" border="1"> <tbody> <tr> <td><code> type client_record=record   CHandle: integer; //客户端套接字句柄   CSocket:TCustomWinSocket; //客户端套接字   CName:string; //客户端计算机名称   CAddress:string; //客户端计算机IP地址   CUsed: boolean; //客户端联机标志 end;</code></td> </tr> </tbody> </table> </div>   利用这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中，CHandle保存客户端套接字句柄，以便准确定位每个与服务器端保持连接的客户端；Csocket保存客户端套接字，通过它可以对客户端进行回复。Cused记录当前客户端是否与服务器端保持连接。   下面对组件ServerSocket和ClientSocket的属性设置简单说明。 <div align="center"> <table borderColor="#d0a070" cellSpacing="0" borderColorDark="#ffffff" cellPadding="5" width="99%" bgColor="#ffffc0" border="1"> <tbody> <tr> <td><code> ServerSocket的属性： · Port，是通信的端口，必须设置。在本例中设置为1025； · ServerTypt，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。 · ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值10。 其它属性采用默认设置即可。 ClientSocket的属性： · Port，是通信的端口，必须与服务器端的设置相同。在本例中设置为1025； · ClientType，客户端读写信息类型，应该与服务器端的设置相同，为stNonBlocking表示异步读写信息。 · Host，客户端要连接的服务器的IP地址。必须设置，当然也可以在代码中动态设置。 其它属性采用默认设置即可。 </code></td> </tr> </tbody> </table> </div> 程序源代码: · 服务器端源码（uServerMain.pas）： <div align="center"> <table borderColor="#d0a070" cellSpacing="0" borderColorDark="#ffffff" cellPadding="5" width="99%" bgColor="#ffffc0" border="1"> <tbody> <tr> <td><code> unit uServerMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons; const CMax=10; //客户端最大连接数 type client_record=record CHandle: integer; //客户端套接字句柄 CSocket:TCustomWinSocket; //客户端套接字 CName:string; //客户端计算机名称 CAddress:string; //客户端计算机IP地址 CUsed: boolean; //客户端联机标志 end; type TfrmServerMain = class(TForm) ServerSocket: TServerSocket; ControlBar1: TControlBar; ToolBar1: TToolBar; tbConnect: TToolButton; tbClose: TToolButton; tbDisconnected: TToolButton; Edit1: TEdit; Memo1: TMemo; StatusBar: TStatusBar; procedure tbConnectClick(Sender: TObject); procedure tbDisconnectedClick(Sender: TObject); procedure ServerSocketClientRead(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocketListen(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure ServerSocketClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); procedure tbCloseClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ServerSocketGetSocket(Sender: TObject; Socket: Integer; var ClientSocket: TServerClientWinSocket); procedure</

评论收藏

内容反馈

版权申诉