Hi All,
I have set OnSessionAvailable event for a socket that acts as server as
follows
Server1 := TWSocket.Create(nil);
with Server1 do begin
Proto := 'tcp' ;
Addr := MyAddress ;
Port := IntToStr(Fport) ;
OnSessionAvailable := Avaialable ;//my method
Listen ;
end ;
Now when I send data to this socket, Server is getting data first time
but next time onwards no data reaches the server.
When I went deeper to code with in procedure
TCustomWSocket.WMASyncSelect(var msg: TMessage); event,
the condition
Check := msg.lParamLo and FD_ACCEPT;
if Check <> 0 then begin
TriggerSessionAvailable(msg.lParamHi);
end;
gets triggered only once, when I am sending data first time. But never
again. Only when the socket satisfies the ACCEPT condition I see
OnSessionAvailable event getting triggered. So it never returns to
ACCEPT mode after first send and switches between READ and WRITE modes.
It is LISTENING but not ACCPTING Do not know what should be done to make
it to ACCEPT mode. The connection never gets closed also. No idea whats
happening
Any thoughts?
Regards,
Melvin.
--
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
