1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TRSPPBase.CastTextMessage(IP : String;TheMessage : string);
var
  Msg  : String;

begin
  Msg := Trim(TheMessage);
  try
    RSPPSend.Host := IP;             // IP des Empfängers (kann Server 1 oder 2 sein)
                                     // Port wird am Anfang des Programms gesetzt
    RSPPSend.Connect;                // Verbinden
    RSPPSend.IOHandler.WriteLn(Msg); // Nachricht übermitteln
    RSPPSend.Disconnect;             // Und wieder trennen
  except
    on E : Exception do begin
      ShowMessage(E.Message);
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TRSPPBase.RSPPServerExecute(AContext: TIdContext);
var
  Msg,IP    : String;
  Client    : TSimpleClient;

begin
  // Client setzen
  Client := getClient(AContext.Binding.PeerIP);
  IP := Client.DNS;
  // Text vom Client holen
  Msg := AContext.Connection.IOHandler.ReadLn();
  ... Verarbeitung der Nachricht
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TRSPPBase.RSPPServerConnect(AContext: TIdContext);
var
  Client : TSimpleClient;
  IP : String;

begin
  // Testen ob bereits connected
  IP := AContext.Binding.PeerIP;
  if not IPFound(IP)
     then begin
       // Client erzeugen
       Client := TSimpleClient.Create;
       // und Werte zuweisen
       Client.DNS  := IP;
       Client.Name := 'Logging In';
       Client.ListLink := ClientLB.Items.Count;
       // und Client der Listbox hinzufügen
       ClientLB.Items.Add(Client.Name);
       // und der Clients-Liste hinzufuegen
       Clients.Add(Client);
       // Willkommensnachricht senden (Die folgenden Nachrichten
       // kommen nur unregelmässig an
       // Vermutlich weil die Verbindung noch nicht richtig abgebaut wurde
       CastTextMessage(IP,'/TEXT Verbindung hergestellt...');
       CastTextMessage(IP,'/TEXT Willkommen bei RSPP V1.0...');
       CastTextMessage(IP,'/TEXT Bitte Logindaten senden...');
       CastTextMessage(IP,'/LOGIN');
     end;
end;