ServerSocket和ClientSocket控件源码.rar_DelphiServerSocket

共3个文件

htm：2个

txt：1个

版权申诉

socket

33 浏览量 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</

评论收藏

内容反馈

版权申诉

小贝德罗

粉丝: 53
资源: 1万+

ServerSocket和ClientSocket控件源码.rar_Delphi ServerSocket_clientsock

最新资源

ServerSocket和ClientSocket控件源码.rar_Delphi ServerSocket_clientsock

ClientSocket-and-ServerSocket.rar_Delphi ServerSocket_ServerSock

TCP.rar_ServerSocket delphi_clientsocket文件

java实现服务器和客户机通讯的的方法.rar_ServerSocket_java socket _java 通讯_java客户

我的socket通讯工具.rar_ServerSocket_c++ Socket服务类_clientsocket

ServerSOCKET和ClientSOCKET

基于delphi的serversocket和clientsocket进行通信的程序.zip

java-chatroom.rar_java ServerSocket

Delphi 下ServerSocket和ClientSocket 的通信实例

TCP.rar_服务器监听

SSLServerSocket.rar_tls server

web-sever.rar_java http sever_sever_web sever

聊天室(用java代码编写,用到Socket,serverSocket,FileInputStream.....)

基于JAVA的ICQ系统的设计于实现.rar_java Tcp _java 多线程_network monitor java_t

有关java线程循环和serversocket和socket的程序.pdf

serversocket.rar_网络编程_Visual_C++_

delphi 异步socket（ClientSocket，ServerSocket）实例

基于Socket通讯(C#)和WebSocket协议(net)编写的两种聊天功能源码.rar

delphi源码基础的Socket通信

大灰狼远控2021最新版，解压密码222

J-LINK V10 V11固件.rar

暴力破解-hydra-8.1（windows版）

Web中间件常见漏洞总结.pdf

CTF 竞赛入门指南（ctf-all-in-one）.pdf

Web安全漏洞扫描工具-AWVS14

ISO21434.pdf

CobaltStrike4.4.zip

goby2021红队专版，1.8.255

stm32f103 adc采样+dma传输+fft处理 频率计_fft处理_stm32_ADCFFT_频率计_ADC采样_

jts-1.14.zip

最新资源

stm32f103 adc采样+dma传输+fft处理频率计_fft处理_stm32_ADCFFT_频率计_ADC采样_