Delphi断线重连线程

作为tcp客户端，使用TIdTcpClient控件，在与后台服务的交互时，如果出现网络异常，或者后台服务重启，会导致无法保存数据或查询后台数据，这种情况下可以开启断线重连线程，自动连接上后台服务

unit threadReconnectServer;interfaceusesClasses, SysUtils, ScktComp, windows, ComCtrls, forms, activex, StdCtrls, strutils, IdTCPClient, Global;typeTReconnectServerThread = class(TThread)privateclient: TIdTCPClient;protectedprocedure Execute; override;publicconstructor Create(IdTCPClient1: TIdTCPClient);destructor Destroy; override;end;implementationconstructor TReconnectServerThread.Create(IdTCPClient1: TIdTCPClient);
begininherited Create(True);client := IdTCPClient1;FreeOnTerminate := False;
end;destructor TReconnectServerThread.Destroy;
begininherited destroy;
end;procedure TReconnectServerThread.Execute;
beginwhile not Terminated dobeginSleep(5000);tryclient.Disconnect;client.Connect;gOnlineSuccess := True;Suspend;excepton e: Exception dobegingOnlineSuccess := False;end;end;end;
end;end.

在主窗体create中创建线程对象，创建成功后，并不会执行线程，在需要的时候，唤醒线程即可

// 声明
ReconnectServerThread: TReconnectServerThread;// 在create中
// 断线重连线程
ReconnectServerThread := TReconnectServerThread.Create(IdTCPClient1);

function TfrmMain.SendMsgToServer(msg: string): Boolean;procedure ReconnectServer;begingOnlineSuccess := False;// 启动重连线程ReconnectServerThread.Resume;end;beginResult := false;tryif gOnlineSuccess and IdTCPClient1.Connected thenbegin// 末尾加上分割符，保证数据传输到服务器后，能正确按Json解析IdTCPClient1.IOHandler.Write(msg + '&&', IndyTextEncoding(TEncoding.UTF8));Result := true;endelsebeginReconnectServer;end;excepton e: Exception dobeginReconnectServer;end;end;
end;

Delphi断线重连线程相关推荐

C# Socket客户端采用双线程断网重连断线重连)
C# Socket客户端采用双线程断网重连断线重连 2021年07月15日 13:38:18更新 C# Socket服务端双线程断网重连断线重连 C# Socket客户端采用双线程断网重连断线重连 ...
asyncio.Protocol socket 断线重连
asyncio.Protocol socket 断线重连原文:https://www.jianshu.com/p/f5bc755d3d8a 场景使用asyncio.Protocol进行异步连接时, ...
支持断线重连、永久watcher、递归操作 ZooKeeper 客户端
项目介绍 ZooKeeper本质上是一个分布式的小文件存储系统.原本是Apache Hadoop的一个组件,现在被拆分为一个Hadoop的独立子项目. Zookeeper 作为一个分布式的服务框架,主 ...
golang mysql断线_MySQL的连接池、异步、断线重连-Go语言中文社区
MySQL长连接 MySQL短连接每次请求操作数据库都需要建立与MySQL服务器建立TCP连接,这是需要时间开销的.TCP连接需要3次网络通信.这样就增加了一定的延时和额外的IO消耗.请求结束后会关闭 ...
springboot redis 断线重连_Redis(9)——史上最强【集群】入门实践教程
一.Redis 集群概述 Redis 主从复制到目前为止,我们所学习的 Redis 都是单机版的,这也就意味着一旦我们所依赖的 Redis 服务宕机了,我们的主流程也会受到一定的影响,这当然 ...
activemq断线重连
断线重连机制是ActiveMQ的高可用性具体体现之一. 具体就是使用failover方式,使得连接断开之后,可以不断的重试连接到一个或多个brokerURL. 例如:failover:(tcp://1 ...
Netty的断线重连
因为工作中经常使用到TCP,所以会频繁使用到诸如Mina或Netty之类的通信框架,为了方便项目的逻辑调用,经常会在框架的基础上再一次进行封装,这样做其实有画蛇添足的嫌疑,但也是无奈之举. 这里主要记 ...
PHP如何解决swoole守护进程Redis假死，mysql断线重连问题？
PHP如何解决swoole守护进程Redis假死 ,mysql断线重连问题? 最近公司有个项目,要举办一个线上活动,我这边负责提供接口记录用户访问记录,与操作记录,由于活动参与人数可能比较多,为了不影 ...
Android Socket连接（模拟心跳包，断线重连，发送数据等）
首页博客学院下载 GitChat TinyMind 论坛问答商城 VIP 活动招聘 ITeye CSTO 写博客发Chat 喻志强的博客耐心细心用心传播正能量 RSS订阅原 A ...

Delphi断线重连线程

Delphi断线重连线程相关推荐

最新文章

热门文章