Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Methode zum wiederfinden eines Indy-Thread

    Delphi
    by hincapie, 30. Mär 2007
  Ich glaube aber , das in dem Code aus dem IndyChat schon die Lösung steckt.
  Es gibt da nämlich auch die Möglichkeit, vom Server eine Nachricht an einen ausgewählten Client zu schicken:
  
  procedure TfrmMain.btnPMClick(Sender: TObject);
  var
  Msg : String;
  Client : TSimpleClient;
  begin
  Msg := InputBox('Private Message', 'What is the message', '');
  Msg := Trim(Msg);
• Forum: Netzwerke

  Re: Methode zum wiederfinden eines Indy-Thread

    Delphi
    by hincapie, 30. Mär 2007
  In etwa so? (entnommen dem IndyChat-Demo)
  
  procedure TfrmMain.tcpServerExecute(AThread: TIdPeerThread);
  var
  Client : TSimpleClient;
  Com, // System command
  Msg : String;
  begin
  { Get the text sent from the client }
  Msg := AThread.Connection.ReadLn;