Class TMsgThrd (unit CMsgThrd)

Inherits from

TThread

The Message thread class

Constructors


constructor Create(Requests : TRequest; TimerSetting : Integer);

Is this a FD_WRITE event?


Functions

procedure EnableBtn;


procedure Execute;

Wait for a Winsock 2.

procedure HandleSocketEvent;

Send the message .

procedure OnMsgThrdDone(Sender : TObject);

case

procedure OnTimeOut(Sender : TObject);


procedure Resolve;


procedure SendMsg(Msg : String);

We got this far, so we send a message .

procedure Update;

TMsgThrd

Properties

Events

Variables

Finished : Boolean;


Buffers : array[0..MAXGETHOSTSTRUCT-1] of char;


ClientAddr : TSockAddrIn;


ConnData : TConnData;


CurrentIPAddr : String;


DataFileName : String;


Done : Boolean;


EventData : WSAEVENT;


EventMsg : WSAEVENT;

Private declarations

Host : PHostent;


HostAddr : TSockAddrIn;


h_addr : pchar;


lpNetworkEvents : PWSANETWORKEVENTS;


Msg : String;


OldMsgPort : String;


Request : TRequest;


RequestMsg : String;


ResTimer : TTimer;


sktData : TSocket;


sktMsg : TSocket;


TimeOutValue : Integer;


wsaData : TWSADATA;



Constructors


constructor Create(Requests : TRequest; TimerSetting : Integer);

Is this a FD_WRITE event?


Functions


procedure EnableBtn;


procedure Execute;

Wait for a Winsock 2.2 event to occur on the Message thread ...


procedure HandleSocketEvent;

Send the message ...


procedure OnMsgThrdDone(Sender : TObject);

case


procedure OnTimeOut(Sender : TObject);


procedure Resolve;


procedure SendMsg(Msg : String);

We got this far, so we send a message ...


procedure Update;

TMsgThrd


Properties


Events


Variables


Finished : Boolean;


Buffers : array[0..MAXGETHOSTSTRUCT-1] of char;


ClientAddr : TSockAddrIn;


ConnData : TConnData;


CurrentIPAddr : String;


DataFileName : String;


Done : Boolean;


EventData : WSAEVENT;


EventMsg : WSAEVENT;

Private declarations


Host : PHostent;


HostAddr : TSockAddrIn;


h_addr : pchar;


lpNetworkEvents : PWSANETWORKEVENTS;


Msg : String;


OldMsgPort : String;


Request : TRequest;


RequestMsg : String;


ResTimer : TTimer;


sktData : TSocket;


sktMsg : TSocket;


TimeOutValue : Integer;


wsaData : TWSADATA;