In article <45d99eaf$1@newsgroups.borland.com>, don@ctrd.co.uk (Don Taylor)
wrote:
Date:* Mon, 19 Feb 2007 12:58:01 -0000
> Does anybody know a good source for sample code to provide both
> client and server behaviour in one program. There are several of
> these applications running on a network and each must talk to the
> other with no central server.
You can download Magenta Systems IP Log Streaming Component that uses ICS
from:
http://www.magsys.co.uk/delphi/magics.asp
or http://www.magsys.co.uk/download/software/magentaiplog.zip
TMagIpLog is designed for IP stream logging, using TCP Client, TCP Server,
UDP Client or UDP Server protocols, sending simple text lines across a
network so they may be displayed or written to disk remotely. The component
allows two way communication with TCP and UDP, so may also be used for
simple protocols such as communication between two applications. The
component supports multiple client sockets so may be used to send data to
two or more different remote servers at the same time. For TCP and UDP
clients, the component will optionally ping the remote computer first
before opening an IP connection to allow faster failure retries and some
confirmation that UDP may work. TCP client provides repeated connection
retry attempts, including re-establishing a lost connection. UDP client
will optionally keep pinging the remote during a connection to ensure it's
still there. UDP server sends data to the IP address and port from which it
last received data. TCP server supports multiple remote clients connecting.
Received data is parsed for various line endings optionally removing
control characters and triggering an event for a received line. The only
other two events are optional, one for state changed when starting and
stopping, the second offering progress information and errors.
A demo application testiplog.exe illustrates use of TMagIpLog as a TCP or
UDP client or server, and both in the same program sending data locally.
The same component may be used in a client or server application, to send
or receive.
Angus
