Class TMsgThrd (unit SMsgThrd)

Inherits from

TThread

Constructors


constructor Create(Request : TRequest);

TMsgThrd


Functions

procedure Execute;

is this an FD_WRITE event?

procedure HandleSocketEvent;

Look for the requested file

function ParsedOk : Boolean;


procedure SendMsg(Msg : String);


procedure UpDate;


Properties

Events

Variables

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


ClientAddr : TSockAddrIn;


ConnData : TConnData;


CurrentClient : String;


CurrentIPAddr : String;


DataFile : File;


DataFileName : String;


Done : Boolean;


eventData : WSAEVENT;


eventMsg : WSAEVENT;

Private declarations

HostAddr : TSockAddrIn;


lpNetworkEvents : PWSANETWORKEVENTS;


Msg : String;


PortNo : Integer;


sktData : TSocket;


sktListen : TSocket;



Constructors


constructor Create(Request : TRequest);

TMsgThrd


Functions


procedure Execute;

is this an FD_WRITE event?


procedure HandleSocketEvent;

Look for the requested file


function ParsedOk : Boolean;


procedure SendMsg(Msg : String);


procedure UpDate;


Properties


Events


Variables


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


ClientAddr : TSockAddrIn;


ConnData : TConnData;


CurrentClient : String;


CurrentIPAddr : String;


DataFile : File;


DataFileName : String;


Done : Boolean;


eventData : WSAEVENT;


eventMsg : WSAEVENT;

Private declarations


HostAddr : TSockAddrIn;


lpNetworkEvents : PWSANETWORKEVENTS;


Msg : String;


PortNo : Integer;


sktData : TSocket;


sktListen : TSocket;