Crear una dinámica de escucha del servidor con ics en tiempo de ejecución.

Crear una dinamica de escucha del servidor con ics en tiempo de ejecucion.

Crear una dinamica de escucha del servidor con ics en tiempo de ejecucion. : Multi-millones de consejos para hacer su vida mas facil.

como crear un servicio de escucha en el puerto especifico.
// esto creara un socket de escucha en el puerto 113 (Ident D)
// y la bienvenida a cualquier cliente con un texto
// cuando el texto entrante es recibida la OnServerData es causado.
utiliza Wsocket
// privado declarado
OnServerSessionAvailable(Sender: TObject de Error:
OnServerDataAvailable(Sender: TObject de Error: Word)

Procedure TForm1.OnServerSessionAvailable(Sender: TObject de Error: Word)
var
newclient : Twsocket
begin
& nbsp & nbsp con TWsocket(remitente)
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp // descomentar esta, y usted recibira una muy simple identd servidor.
& nbsp & nbsp & nbsp & nbsp {
& nbsp & nbsp & nbsp & nbsp newclient := Twsocket.create(self)
& nbsp & nbsp & nbsp & nbsp newclient.HSocket := Aceptar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp con newclient hacer
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp SendStr(getpeerport ', 113 : id de usuario : UNIX : JoePezt' #13#10)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp cerrar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp libre
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp salida

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp }
& nbsp & nbsp & nbsp & nbsp // enviar una nota de bienvenida para el cliente.
& nbsp & nbsp & nbsp & nbsp sendstr('bienvenido' #13#10)
& nbsp & nbsp final
fin
Procedure Tform1.OnServerDataAvailable(Sender: TObject de Error: Word)
var
recibido : string
begin
& nbsp & nbsp // recortamos la cadena recibida para eliminar espacios en blanco y crlf
& nbsp & nbsp recibido := trim(TWsocket(remitente).Receivestr)
fin
procedure TForm1.cmdListenClick(Sender: TObject)
var
& nbsp & nbsp servidor : Twsocket
begin
& nbsp & nbsp Servidor := Twsocket.create(self)
& nbsp & nbsp & nbsp & nbsp con el Servidor
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp OnSessionAvailable := OnServerSessionAvailable
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp OnDataAvailable := OnServerDataAvailable
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Linemode := true
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp LineEnd := #13#10
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Addr := '0.0.0.0'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp puerto := '113' // el puerto que usamos
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp proto := 'tcp'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp escuchar
& nbsp & nbsp & nbsp & nbsp final
fin