| Class TMsgThrd (unit CMsgThrd) |
The Message thread class
| Constructors |
constructor Create(Requests : TRequest; TimerSetting : Integer);| Functions |
procedure EnableBtn;
procedure Execute;
procedure HandleSocketEvent;
procedure OnMsgThrdDone(Sender : TObject);
procedure OnTimeOut(Sender : TObject);
procedure Resolve;
procedure SendMsg(Msg : String);
procedure Update;| 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;
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;