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?
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