Re: [twsocket] When does OnSessionAvailable event fire
Ah. I see. Thank you. Before I posted my question I read as much information on all this as I could including my old postings from last year and the wsocket.hlp file. As I understand it then, the Wsocket.hlp file is wrong or even worse, vague giving the impression that something is possible when it really isn't. QUOTE from wsocket.hlp Applies to TWSocket Declaration Function Listen: Integer; Description The listen method is used to build a server application where a given socket must wait for incomming remote connections. The listen method ask the underlaying level to wait for connection. It is non blocking: listen returns immediately whitout waiting for an actual connection. When a connection will be available at a later time when the client connected, the OnSessionAvailable event will be generated. The OnSessionAvailable event handler will normally call the accept method to retreive the client connection handle. Before calling the listen method, you must properly setup the Addr, Port and Proto properties. END QUOTE The example that follows in the .hlp file uses telnet not tcp or udp. Telnet is TCP. Actually almost all high level protocols (http, smtp, nntp, pop3, telnet, ftpa nd more) are TCP. ICS doesn't implement any high level using UDP. As UDP is sessionless and connectionless, it is clear that the quote from the help file doesn't apply. Perhaps an extra statement in the wsocket.hlp file that this does _not_ apply to UDP and that listen does not ever generate a call to OnSessionAvailable would have saved me some time. This help file is very old and not maintened at all. There is a wiki which is there to replace the help file but we lack volunteers to build it. See http://wiki.overbyte.be. If you have some spare time, you may contribute to writing the wiki, even if you don't know the details. We are looking for someone willing to simply enter all properties, methods and events for each component. Other people will enter the full description. -- Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html -- [EMAIL PROTECTED] http://www.overbyte.be -- 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
Re: [twsocket] When does OnSessionAvailable event fire
I think I'm missing something critical but can't quite figure it out.
Your are missing the fact that you use UDP and not TCP. UDP is
connectionless and sessionless. So don't use TWSocketServer. Use TWSocket,
make it listen and the just handle OnDataAvailable event to call Receive to
get the incomming datagrams.
Have a look at the document TCP/UDP primer available from support page at
my website.
--
[EMAIL PROTECTED]
http://www.overbyte.be
- Original Message -
From: John Dammeyer [EMAIL PROTECTED]
To: 'ICS support mailing' twsocket@elists.org
Sent: Saturday, June 10, 2006 8:04 PM
Subject: [twsocket] When does OnSessionAvailable event fire
Hi,
I've finally been able to restart a project from last October. Something
has gone missing and code that used to work doesn't anymore. So I have to
sort of start over. I've followed the example code, looked at my postings
from back then in the archives but I'm having problems with the following
sequence.
On FormShow I execute the following code:
if FirstTime then begin
SrvSocket.Proto := 'udp';
SrvSocket.Addr:= '127.0.0.1';// Use loopback
SrvSocket.Port:= PortEdit.Text;// Wait on this port (4000).
SrvSocket.Listen; // Start listening for
client
which also fires
//
OnSessionConnected.
FirstTime := FALSE;
PortEdit.Enabled := FALSE;
end;
As per the example in the FAQ I want to run this method when
'OnSessionAvailable' fires but it never happens. What's needed to make
this
event fire? Running a client on that port (4000) doesn't seem to do
anything while sending UDP messages to that port from a client app does
get
through.
I think I'm missing something critical but can't quite figure it out.
Thanks
John Dammeyer
procedure TForm1.SrvSocketSessionAvailable(Sender: TObject; ErrCode:
Word);
var
NewHSocket : TSocket;
PeerName : TSockAddrIn;
Peer : String;
begin
PortEdit.Enabled := TRUE;
{ We need to accept the client connection }
NewHSocket := SrvSocket.Accept;
{ And then associate this connection with our client socket }
CliSocket.Dup(NewHSocket);
{ Wants to know who is connected to display on screen }
CliSocket.GetPeerName(PeerName, Sizeof(PeerName));
{ User likes to see internet address in dot notation }
Peer := IntToStr(ord(PeerName.sin_addr.S_un_b.s_b1)) + '.' +
IntToStr(ord(PeerName.sin_addr.S_un_b.s_b2)) + '.' +
IntToStr(ord(PeerName.sin_addr.S_un_b.s_b3)) + '.' +
IntToStr(ord(PeerName.sin_addr.S_un_b.s_b4));
InfoLabel.Caption := 'Remote ' + Peer +
' connected. Port:' + CliSocket.GetPeerPort;
{ Send a welcome message to the client }
//CliSocket.SendStr('Hello' + #13 + #10);
{ Enable the server user to disconect the client }
DisconnectButton.Enabled := TRUE;
InitDisplayButton.Enabled := TRUE;
end;
--
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
--
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
Re: [twsocket] When does OnSessionAvailable event fire
Ah. I see. Thank you. Before I posted my question I read as much
information on all this as I could including my old postings from last year
and the wsocket.hlp file. As I understand it then, the Wsocket.hlp file is
wrong or even worse, vague giving the impression that something is possible
when it really isn't.
QUOTE from wsocket.hlp
Applies to
TWSocket
Declaration
Function Listen: Integer;
Description
The listen method is used to build a server application where a given socket
must wait for incomming remote connections. The listen method ask the
underlaying level to wait for connection. It is non blocking: listen returns
immediately whitout waiting for an actual connection. When a connection will
be available at a later time when the client connected, the
OnSessionAvailable event will be generated. The OnSessionAvailable event
handler will normally call the accept method to retreive the client
connection handle.
Before calling the listen method, you must properly setup the Addr, Port and
Proto properties.
END QUOTE
The example that follows in the .hlp file uses telnet not tcp or udp.
Perhaps an extra statement in the wsocket.hlp file that this does _not_
apply to UDP and that listen does not ever generate a call to
OnSessionAvailable would have saved me some time.
Cheers,
John Dammeyer
Wireless CAN with the CANRF module now available.
http://www.autoartisans.com/products
Automation Artisans Inc.
Ph. 1 250 544 4950
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Francois PIETTE
Sent: Saturday, June 10, 2006 11:20 AM
To: ICS support mailing
Subject: Re: [twsocket] When does OnSessionAvailable event fire
I think I'm missing something critical but can't quite
figure it out.
Your are missing the fact that you use UDP and not TCP. UDP is
connectionless and sessionless. So don't use TWSocketServer.
Use TWSocket,
make it listen and the just handle OnDataAvailable event to
call Receive to
get the incomming datagrams.
Have a look at the document TCP/UDP primer available from
support page at
my website.
--
[EMAIL PROTECTED]
http://www.overbyte.be
- Original Message -
From: John Dammeyer [EMAIL PROTECTED]
To: 'ICS support mailing' twsocket@elists.org
Sent: Saturday, June 10, 2006 8:04 PM
Subject: [twsocket] When does OnSessionAvailable event fire
Hi,
I've finally been able to restart a project from last
October. Something
has gone missing and code that used to work doesn't
anymore. So I have to
sort of start over. I've followed the example code, looked
at my postings
from back then in the archives but I'm having problems with
the following
sequence.
On FormShow I execute the following code:
if FirstTime then begin
SrvSocket.Proto := 'udp';
SrvSocket.Addr:= '127.0.0.1';// Use loopback
SrvSocket.Port:= PortEdit.Text;// Wait on
this port (4000).
SrvSocket.Listen; // Start
listening for
client
which also fires
//
OnSessionConnected.
FirstTime := FALSE;
PortEdit.Enabled := FALSE;
end;
As per the example in the FAQ I want to run this method when
'OnSessionAvailable' fires but it never happens. What's
needed to make
this
event fire? Running a client on that port (4000) doesn't seem to do
anything while sending UDP messages to that port from a
client app does
get
through.
I think I'm missing something critical but can't quite
figure it out.
Thanks
John Dammeyer
procedure TForm1.SrvSocketSessionAvailable(Sender: TObject;
ErrCode:
Word);
var
NewHSocket : TSocket;
PeerName : TSockAddrIn;
Peer : String;
begin
PortEdit.Enabled := TRUE;
{ We need to accept the client connection }
NewHSocket := SrvSocket.Accept;
{ And then associate this connection with our client socket }
CliSocket.Dup(NewHSocket);
{ Wants to know who is connected to display on screen }
CliSocket.GetPeerName(PeerName, Sizeof(PeerName));
{ User likes to see internet address in dot notation }
Peer := IntToStr(ord(PeerName.sin_addr.S_un_b.s_b1)) + '.' +
IntToStr(ord(PeerName.sin_addr.S_un_b.s_b2)) + '.' +
IntToStr(ord(PeerName.sin_addr.S_un_b.s_b3)) + '.' +
IntToStr(ord(PeerName.sin_addr.S_un_b.s_b4));
InfoLabel.Caption := 'Remote ' + Peer +
' connected. Port:' + CliSocket.GetPeerPort;
{ Send a welcome message to the client }
//CliSocket.SendStr('Hello' + #13 + #10);
{ Enable the server user to disconect the client }
DisconnectButton.Enabled := TRUE;
InitDisplayButton.Enabled := TRUE;
end;
--
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
