Indy - Demo Chat

[HDieterH]

Zitat von Synonym:

ein bischen mehr code wäre von Vorteil!

synonym

Hallo, kann ich machen ... nur dachte ich schon, dass dieses ChatDemo jeder kennt

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Com,
  Msg : String;
begin

  if not IdTcpClient1.Connected then
    exit;

{ Wenn hier vom Server kein String kommt, dann kommt der nie über diese Zeile }  
Msg := IdTCPClient1.ReadLn(#$0A , 250, -1);
{ also, hier hin :-( }

  if Msg <> '' then
    if Msg[1] <> '@' then
      begin
      { Not a system command }
        memLines.Lines.Add(Msg);
      end
    else
      begin
      { System command }
        Com := UpperCase(Trim(Copy(Msg, 2, Pos(':', Msg) -2)));
        Msg := UpperCase(Trim(Copy(Msg, Pos(':', Msg) +1, Length(Msg))));
        if Com = 'CLIENTS' then
          lbClients.Items.CommaText := Msg;
      end;

end;

reicht das fürs erste ?

Schon mal Danke für das Interesse, Dieter

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]