Delphi之TClientSocket和TServerSocket使用tcp keepalive心跳机制实现“断网”、"断电"检测...

最新推荐文章于 2023-10-10 16:16:50 发布
最新推荐文章于 2023-10-10 16:16:50 发布
阅读量881 收藏 2
点赞数
文章标签： 网络 数据结构与算法
原文链接：http://www.cnblogs.com/tc310/p/10886086.html
版权

 

开发环境：Delphi7

测试环境：WinXP，Win7  32bit，Win7 64bit

使用TClientSocket和TServerSocket实现TCP长连接通讯，经常因为断电断网等原因导致出现一些死连接。

解决方法是客户端和服务端都定时发送心跳包。

具体实现如下：

TClientSocket和TServerSocket均使用非阻塞模式

1、定义心跳常量和KeepAlive 数据结构

//定义心跳常量
Const
  IOC_IN = $80000000;
  IOC_VENDOR = $18000000;
  IOC_out = $40000000;
  SIO_KEEPALIVE_VALS = IOC_IN or IOC_VENDOR or 4;
  DATA_BUFSIZE =
最低0.47元/天 解锁文章
bit小兵
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
[ v1.2 改进版，不过仍然失败 ]IdTCPClient / IdTCPServer + 心跳机制
Gavin Chen
05-14 1048
跟上一版本相比，服务器没怎么改，但客户端几乎重写。 服务器代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, IdBaseComponent, IdCompo
Delphi TServerSocket和TClientSocket两个组件的基本用法
04-08
笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。 设计思路
socket连接过程中，异常断开（服务关闭和网线断开）的处理
热门推荐
时有限
06-01 1万+
场景 嵌入式设备经常用到tcp通信，设备端内部负责维护一个长连接的socket，来与服务端通信，但是有时候网络环境会发生波动导致网络异常，这时候就需要设备有一个断线重连机制。有时候客户端和服务端之间未做应用层心跳保活，无法修改服务端内容，这时候就需要设备自己检测网络是否正常了。 方案 当服务端关闭服务或者服务端异常退出时，我们通过recv和send的返回值能判断链接已经关闭，这时候就可以进入重连流程了。但是如果连接过程中网络断开（不一定是设备端网络断了，可能是路由器，可能是远端服务器），我们recv和sen
Delph7中TcpClient和TcpServer用法分析
程序猿视角
06-12 1万+
最近使用了Delphi7提供的TcpCLient和TcpServer两个VCL控件，发现这两个控件使用非常简单，不像网上不少帖子说的那样难用、性能差。TcpClient和TcpServer没有采用事件驱动的模式，而是采取了同步方法调用的策略（网上有帖子称之为阻塞模式），大大简化了编写Sockets通讯程序的过程。如果我们还停留在事件驱动的思维习惯上，就会发现很难使用这两个控件。Delphi
关于Delphi XE DataSnap心跳包
普森备忘录
02-15 4061
user Windows; private procedure ClientDisconnectEvent(Sender: TObject); // 客户端异常出错处理,需要引用windows单元 procedure T****.CMServerConnect(DSConnectEventObject: TDSConnectEventObject); var   ClientCo
Delphi之TClientSocket和TServerSocket进行TCP长连接通讯使用KeepAlive自动发送心跳包检测断网
05-18
Delphi之TClientSocket和TServerSocket进行TCP长连接通讯，使用KeepALive自动发送心跳包检测断网，并实现断线重连，经测试可以及时检测到拔掉网线断网情况，具有较高的参考价值
Delphi之TServerSocket和TClientSocket多线程传输
03-22
在Delphi编程环境中，TServerSocket和TClientSocket组件是用于网络通信的重要工具，它们分别代表服务器端和客户端的套接字（Socket）接口。在本文中，我们将深入探讨如何利用这两个组件进行多线程传输，以实现高效、...
TCP-programming-examples.zip_TCP/IP协议栈_Delphi_
08-11
在Delphi中，TClientSocket和TServerSocket组件是实现TCP通信的核心，它们分别代表客户端和服务器端。首先，我们需要创建一个TServerSocket组件，设置其Port属性为期望监听的端口，然后启动监听。接着，客户端通过...
Tcpclient和Tcpserver实现简单通讯.rar
08-07
在Delphi编程环境中，我们可以使用内置的TcpClient和TcpServer组件来实现基于TCP的客户端和服务端通信。本教程将深入探讨如何使用这两个组件实现简单的数据交互。 首先，我们来看`TcpClient`。TcpClient是Delphi中...
DELPHI SOCKET 阻塞通讯
09-15
DELPHI SOCKET 阻塞通讯
tcp-udp.rar_TCP程序_delphi tcp 通讯_delphi tcp/ip_tcp-udp delphi_tcp
09-14
1. 创建套接字对象：使用TClientSocket或TServerSocket组件来创建客户端或服务器端的套接字。 2. 设置属性：配置套接字的属性，如Host（目标主机）、Port（端口号）、Active（是否激活连接）等。 3. 数据传输：通过...
delphi socket cross开源跨平台通讯库
从事厨房信息化行业，万能对接所有点餐系统，kds，智能控菜，酒店协调软件
10-10 387
delphi socket cross是Pascal跨平台的tcp通讯组件。windows下用的iocp。linux下用的epoll。支持http，https。
delphi idtcpclient和idtcpserver的心跳包
weixin_30484247的博客
03-02 117
delphi idtcpclient和idtcpserver的心跳包 转载于:https://www.cnblogs.com/LittleTiger/p/6489420.html
Delphi断线重连线程
L丶cz博客
12-14 1868
Delphi tcp client 断线重连
TCP Server处理多Client请求的方法—非阻塞accept与select
远方客的专栏
12-22 2360
前言 参看基于TCP/UDP的socket代码，同一时间Server只能处理一个Client请求：在使用当前连接的socket和client进行交互的时候，不能够accept新的连接请求。为了使Server能够处理多个Client请求，常见的方法： （1）多进程/线程方法、（2）non-blocking socket(单进程并发)、（3）non-blocking和select结合使用。三种方法...
ServerSocket，ClientSocket控件源码阅读笔记
hcqi2004的专栏
12-09 3754
一、socket知识介绍 1. 阻断型和非阻断型端口. 阻断型(stThreadBlocking)Socket在运行中,应用程序调用了Socket接口函数后,函数并不马上返回,一直要到相应的操作完成才返回,这期间应用程序处于等待状态.这种运行方式适合需要同步通信的应用程序. 非阻断型(stNonBlocking)Socket在运行中,Socket接口函数调用后立即返回应用程序可以进行别处的
（转）TCP连接异常断开检测
dianchixian5277的博客
05-29 426
TCP是一种面向连接的协议，连接的建立和断开需要通过收发相应的分节来实现。某些时候，由于网络的故障或是一方主机的突然崩溃而另一方无法检测到，以致始终保持着不存在的连接。下面介绍一种方法来检测这种异常断开的情况 TAG:TCP连接异常断开TCP断链 TCP是一种面向连接的协议，连接的建立和断开需要通过收发相应的分节来实现。某些时候，由于网络的故障或是...
网络编程——socket
m0_51050554的博客
01-06 1250
套接字就是两台主机之间逻辑连接的端点，是网络中不同主机上的应用进程之间进行双向通信的端点的抽象。一个套接字就是网络上进程通信的一端，提供了应用层进程利用网络协议交换数据的机制。从所处的地位来讲，套接字上联应用进程，下联网络协议栈，是应用程序通过网络协议进行通信的接口。
delphi读取modbus tcp
最新发布
11-08
Delphi是一种流行的编程语言，可以用于开发Windows应用程序。Modbus TCP是一种通信协议，常用于工业控制系统中设备之间的通信。在Delphi中，我们可以使用第三方...这样，我们就可以在Delphi中实现Modbus TCP读取操作。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值