作為tcp客戶端，使用TIdTcpClient控件，在與后臺服務(wù)的交互時，如果出現(xiàn)網(wǎng)絡(luò)異常，或者后臺服務(wù)重啟，會導(dǎo)致無法保存數(shù)據(jù)或查詢后臺數(shù)據(jù)，這種情況下可以開啟斷線重連線程，自動連接上后臺服務(wù)

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中創(chuàng)建線程對象，創(chuàng)建成功后，并不會執(zhí)行線程，在需要的時候，喚醒線程即可

// 聲明 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// 末尾加上分割符，保證數(shù)據(jù)傳輸?shù)椒?wù)器后，能正確按Json解析IdTCPClient1.IOHandler.Write(msg + '&&', IndyTextEncoding(TEncoding.UTF8));Result := true;endelsebeginReconnectServer;end;excepton e: Exception dobeginReconnectServer;end;end; end;

總結(jié)

以上是生活随笔為你收集整理的Delphi断线重连线程的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。