(IdIRC) Nachrichten des aktuellen Channels erhalten ?

[Äfan]

Na dann geht aber nix mehr :cry:

Ich geb dir mal den ganzen code, sonst wird das glaube ich nix... Ahja das mit der userliste geht auch net :D...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
IdIRC1.Nick := 'Testuser'; 
IdIRC1.Host := 'irc.*****.com';
IdIRC1.Port := 6667;    
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdIRC1.Connect();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdIRC1.Join('#test');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  IdIRC1.Say('#test',Edit1.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  IdIRC1.Quit('Haut mal ab');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 idirc1.Disconnect;
end;



procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
  RichEdit1.Lines.Add('[' + AUser.Nick + ']: ' + Content);
end;


procedure TForm1.IdIRC1Send(Sender: TObject; ACommand: String);
begin
  RichEdit1.Lines.Add(ACommand);
end;



procedure TForm1.IdIRC1Join(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel);
var
 i:integer;
begin
  for i := 0 to IdIRC1.Users.Count do
   begin
   ListBox1.Items.Add(AUser.Nick);
  end;
end;

procedure TForm1.IdIRC1Receive(Sender: TObject; ACommand: String);
begin
  RichEdit1.Lines.Add(Acommand)
end;

[Matze]

Wenn du diese Zeile entfernst

Delphi-Quellcode:

RichEdit1.Lines.Add(Acommand)

und neu kompilierst, sollte dies ganze Proedur entfernt werden. Sie hat keinen Einfluss auf das eigentliche chatten.

[malo]

Zitat:

Zitat von Äfan

Na dann geht aber nix mehr :cry:

Ich geb dir mal den ganzen code, sonst wird das glaube ich nix... Ahja das mit der userliste geht auch net :D...

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
  RichEdit1.Lines.Add('[' + AUser.Nick + ']: ' + Content);
end;

procedure TForm1.IdIRC1Receive(Sender: TObject; ACommand: String);
begin
  RichEdit1.Lines.Add(Acommand) //das wegmachen, hier ist der "Fehler"
end;

Fällt dir was auf? Die zweite Prozedur schickt diese "seltsamen Nachrichten" an dein Richedit. Einfach die mit Kommentaren markierte Zeile entfernen.

[Äfan]

Ok funktioniert einwandfrei, bloß hab ich noch fragen:

1. Wie zeige ich jetzt den willkommenstext des server ?
2. Wie mache ich das mit den Formatierungen des Chats, also wenn ich nen text im chat farbig oder fett mache, dass dies auch so in meinem Chat erscheint ? Müsste ja gehen, habe ja ne richedit.
3. Wie mache ich die Userliste ? Mein versuch steht ja da oben im code.

[Airblader]

Delphi-Quellcode:

procedure TForm1.IdIRC1Join(Sender: TObject; AUser: TIdIRCUser; 
  AChannel: TIdIRCChannel); 
var 
i:integer; 
begin 
  for i := 0 to IdIRC1.Users.Count do 
   begin 
   ListBox1.Items.Add(AUser.Nick); 
  end; 
end;

Ich kenne die IdIRC Kompo zwar nicht auswendig, aber ich vermute, es muss mehr in dem Stil sein:

Delphi-Quellcode:

...
ListBox1.Items.Add(IdIRC1.Users[i].Nick);
...

Andernfalls addest du ja ständig den selben Namen

air

[Äfan]

Ne, geht net :(

[Die Muhkuh]

Zitat:

Zitat von Äfan

Ne, geht net :(

Mein Auto fährt auch nicht...


Was geht nicht? Fehlermeldung?

[malo]

Mal ganz davon ab, dass Spider recht hat, solltest du jedoch für jede Frage einen neuen Thread eröffnen. ;)

[Äfan]

Eine seite davor steht was ich will :zwinker: und was nicht geht is das:

Zitat:

Zitat von Airblader

Delphi-Quellcode:

procedure TForm1.IdIRC1Join(Sender: TObject; AUser: TIdIRCUser; 
  AChannel: TIdIRCChannel); 
var 
i:integer; 
begin 
  for i := 0 to IdIRC1.Users.Count do 
   begin 
   ListBox1.Items.Add(AUser.Nick); 
  end; 
end;

Ich kenne die IdIRC Kompo zwar nicht auswendig, aber ich vermute, es muss mehr in dem Stil sein:

Delphi-Quellcode:

...
ListBox1.Items.Add(IdIRC1.Users[i].Nick);
...

Andernfalls addest du ja ständig den selben Namen

air

[Spoon]

Um genau zu sein ist es:

Delphi-Quellcode:

ListBox1.Items.Add(IdIRC1.Users.Items[i].Nick);

MfG