Class TDataThrd (unit SDataThrd)

Inherits from

TThread

Constructors


constructor Create(Client : TSockAddrIn; IpAddr : String; PortNo : Integer; FileName : String);

TDataThrd


Functions

procedure Execute;

Send a stream of bytes

procedure SendFile;


procedure UpDate;

Start the file transfer thread

Properties

Events

Variables

ClientAddr : TSockAddrIn;

Private declarations

ClientIP : String;


DataFileName : String;


Msg : String;


Port : Integer;


sktData : TSocket;



Constructors


constructor Create(Client : TSockAddrIn; IpAddr : String; PortNo : Integer; FileName : String);

TDataThrd


Functions


procedure Execute;

Send a stream of bytes


procedure SendFile;


procedure UpDate;

Start the file transfer thread


Properties


Events


Variables


ClientAddr : TSockAddrIn;

Private declarations


ClientIP : String;


DataFileName : String;


Msg : String;


Port : Integer;


sktData : TSocket;