Re: [twsocket] Some changes IFDEF-ed out?

2007-03-09 Thread Wilfried Mestdagh
Hello Jack,

If I recall well he wanted to do mulitple reads in OnDataAvailable. It
is not encouraged to use it as it is not tested in later versions.

---
Rgds, Wilfried [TeamICS]
http://www.overbyte.be/eng/overbyte/teamics.html
http://www.mestdagh.biz

Wednesday, March 7, 2007, 23:51, Jack wrote:

 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


[twsocket] Some changes IFDEF-ed out?

2007-03-07 Thread Jack
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