TAsyncSocket -
ThWnd -
TSocketMessageEvent
TWMSocket
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
InstanceCount
TSocketMessageEvent = procedure (SocketMessage: TWMSocket) of object
TWMSocket = record
Msg : Word;
end;
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
InstanceCount : LongInt = 0
TREAT_AS_COMPONENT