Unit TJSocket

Classes

TAsyncSocket -
ThWnd -

Functions

Types

TSocketMessageEvent
TWMSocket

Constants

c_FIRST
c_NULL
c_ZERO
EVENTS_DOCONNECT
EVENTS_DOLISTEN
EVENTS_SETSOCKETHANDLE
MaxWord
MinWord
WM_SOCKET
WM_SOCKETACCEPT
WM_SOCKETCLOSE
WM_SOCKETCONNECT
WM_SOCKETERROR
WM_SOCKETLISTEN
WM_SOCKETOOB
WM_SOCKETREAD
WM_SOCKETWRITE

Variables

InstanceCount


Functions


Types


TSocketMessageEvent = procedure (SocketMessage: TWMSocket) of object

TWMSocket = record
Msg : Word;
end;

Constants

c_FIRST = 1

c_NULL = 0

c_ZERO = 0

EVENTS_DOCONNECT = FD_CONNECT OR FD_CLOSE OR FD_READ

EVENTS_DOLISTEN = FD_CLOSE OR FD_ACCEPT

EVENTS_SETSOCKETHANDLE = FD_READ OR FD_CLOSE OR FD_CONNECT

MaxWord = 65535

MinWord = 0

WM_SOCKET = WM_USER + 0

Define TREAT_AS_OBJECT if you desire this component to behave as an object or simply undefine it if you wish to integrate it into your form designer. The TREAT_AS_OBJECT version is smaller and skips the On###### format of calling events. Hasn't been entirley checked for define errors in component mode, but works great in Object mode. Email me with problems. {$DEFINE TREAT_AS_OBJECT} {$IFDEF TREAT_AS_OBJECT} {$UNDEF TREAT_AS_COMPONENT} TREAT_AS_OBJECT

WM_SOCKETACCEPT = WM_USER + 5

WM_SOCKETCLOSE = WM_USER + 2

WM_SOCKETCONNECT = WM_USER + 4

WM_SOCKETERROR = WM_USER + 1

WM_SOCKETLISTEN = WM_USER + 8

WM_SOCKETOOB = WM_USER + 7

WM_SOCKETREAD = WM_USER + 3

WM_SOCKETWRITE = WM_USER + 6


Variables

InstanceCount : LongInt = 0

TREAT_AS_COMPONENT