Erstellen Sie einen dynamischen hörenden Server mit Ics in Laufzeit.

Erstellen Sie einen dynamischen hörenden Server mit Ics in Laufzeit.

Erstellen Sie einen dynamischen hörenden Server mit Ics in Laufzeit. : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Gewusst wie: Erstellen eines Diensts auf bestimmten Port.
Dadurch wird einen Socket auf Port 113 (Ident D) erstellt.
und begrüßen jeden Client mit einem text
beim Empfang eingehender Text ist die OnServerData trigged.
Wsocket verwendet;
als Private deklariert
OnServerSessionAvailable (Sender: TObject; Fehler:
OnServerDataAvailable (Sender: TObject; Fehler: Wort);

Procedure TForm1.OnServerSessionAvailable (Sender: TObject; Fehler: Wort);
var
Newclient: Twsocket;
beginnen
mit TWsocket(sender)-do
beginnen
kommentieren Sie dies, und Sie erhalten einen sehr einfachen Identd-Server.
{
Newclient: = Twsocket.create(self);
Newclient. HSocket: = akzeptieren;
mit Newclient-do
beginnen
SendStr (Getpeerport + ', 113: USERID: UNIX: JoePezt' + #13 #10)
Schließen;
frei;
Ausfahrt;

Ende;
}
Senden Sie einen Begrüßungstext an den Client.
Sendstr ('Willkommen' + #13 #10);
Ende;
Ende;
Procedure Tform1.OnServerDataAvailable (Sender: TObject; Fehler: Wort);
var
empfangen: string;
beginnen
Wir schneiden die empfangene Zeichenfolge zum Entfernen von Leerzeichen und crlf
empfangen: = trim(TWsocket(sender). Receivestr);
Ende;
Prozedur TForm1.cmdListenClick(Sender: TObject);
var
Server: Twsocket;
beginnen
Server: = Twsocket.create(self);
mit Server-do
beginnen
OnSessionAvailable: = OnServerSessionAvailable;
OnDataAvailable: = OnServerDataAvailable;
Linemode: = True;
LineEnd: = #13 #10
Addr: = '0.0.0.0';
Port: = '113'; den Anschluss wir verwenden
Proto: = 'Tcp';
hören;
Ende;
Ende;