Hello ,
When I look at the twsocket.pas code, I notice that some changes
are not in effect. This one, for example, requires TOMASEK to be
defined. Is there any reason for this?
Advertising
function TCustomWSocket.TriggerDataAvailable(ErrCode : Word) : Boolean;
var FSelectEventTemp: LongInt;
begin
Result := Assigned(FOnDataAvailable);
if not Result then
Exit;
{$IFDEF TOMASEK} { 23/01/99 }
{ Do not allow FD_READ messages, this will prevent reentering the }
{ OnDataAvailable event handler. }
{FSelectEvent := FD_WRITE or FD_CLOSE or FD_CONNECT;
WSocket_Synchronized_WSAASyncSelect(FHSocket, Handle, WM_ASYNCSELECT,
FSelectEvent);}
FSelectEventTemp := FSelectEvent and (not FD_READ);
WSocket_Synchronized_WSAASyncSelect(FHSocket, Handle, WM_ASYNCSELECT,
FSelectEventTemp);
try
...
--
Best regards,
Jack
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
