python socket 长连接_python 怎么建立socket长连接

客户端源码(uClientMain.pas)：

unit uClientMain;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;

const

SocketHost = '172.16.1.6'; //服务器端地址

type

TfrmClientMain = class(TForm)

ControlBar1: TControlBar;

ToolBar1: TToolBar;

tbConnected: TToolButton;

tbSend: TToolButton;

tbClose: TToolButton;

tbDisconnected: TToolButton;

ClientSocket: TClientSocket;

Edit1: TEdit;

Memo1: TMemo;

StatusBar: TStatusBar;

btnSend: TBitBtn;

procedure tbConnectedClick(Sender: TObject);

procedure tbDisconnectedClick(Sender: TObject);

procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);

procedure tbSendClick(Sender: TObject);

procedure tbCloseClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure ClientSocketConnect(Sender: TObject;

Socket: TCustomWinSocket);

procedure ClientSocketConnecting(Sender: TObject;

Socket: TCustomWinSocket);

procedure ClientSocketDisconnect(Sender: TObject;

Socket: TCustomWinSocket);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;

ErrorEvent: TErrorEvent; var ErrorCode: Integer);

private

{ Private declarations }

public

{ Public declarations }

end;

取消

评论