(IdIRC) Nachrichten des aktuellen Channels erhalten ?

[Äfan]

Hi,

Mal wieder IRC: Ich habe es jetzt endlich geschaft in einen IRC chat zu connecten und so... hat ja lange nicht hingehauen :? Etwas schreiben kann ich schon und das erscheint dann auch im chat, allerdings kann ich nicht lesen was die anderen schreiben, also es erscheint nur am anfang die übliche IRC-Connection text und danach kommt nix mehr, also schreibe ich so zu sagen blind :freak: Bei welchem Ereigniss muss ich das machen, dass er mir den text zeigt ? Habe es so gemacht:

Delphi-Quellcode:

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

Aber da kommt wie gesagt nur der IRC-Connection text. Wie muss ichs richtig machen ?

Habe schon tuts angeschaut, aber entweder ist da zu wenig drin oder es is einfach zu kompliziert zu kapieren. Wär cool wenns sich auch jemand der schon mal so nen IRC Clienten gemacht hat, mal per MSN melden würde, also als ansprechpartner oda sowas :nerd:

thx

mfg

[Mr Whoopee]

OnMessage... aber darüber gibts auch massig hier ;)

[Äfan]

Zitat:

Zitat von Mr Whoopee

OnMessage... aber darüber gibts auch massig hier ;)

Na danke für den link... glaub mir, ich habe schon gesuch, aber da finde ich nichts passendes... kannst ja selber schauen wenns willst :warn:

Aber thx wegen dem OnMessage.

Edit:

Wie bekomm ich die nachrichten ? :oops:

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);
begin
  RichEdit1.Lines.Add(IdIRC1.?);
end;

Ich habe erst mit Replies probiert, aber da kommt bei keinem was raus :gruebel:

[sECuRE]

Hi,

wie wär's mal mit dem übergebenen Parameter Content? (engl: Inhalt)

cu

[Äfan]

content gibts aber nicht

[Matze]

Zitat:

Zitat von Äfan

content gibts aber nicht

Delphi-Quellcode:

procedure TForm1.IdIRC1Message(Sender: TObject; AUser: TIdIRCUser;
  AChannel: TIdIRCChannel; Content: String);

Im Prozedur-Kopf steht es doch. Diese Variable enthält den Text, einfach in der Prozedur verwenden.

[Äfan]

Oh :oops: OK jetzt gehts... Aber mal ein anderes Problem: Wenn ich jetzt eine Nachricht bekomme, erscheint dass in meinem Chat:

Zitat:

:UserImChat!~[e-mail] PRIVMSG #test :test
[UserImChat]:test
:UserImChat!~[e-mail] PRIVMSG #test :1
[UserImChat]:1

Gemacht habe ich das mit diesem code:

Delphi-Quellcode:

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

Also die 2 und 4 zeile die ich bekomme is ok, aber wie kann ich verhindern, dass das :UserImChat!~[e-mail] PRIVMSG #test :test nicht kommt. Wenn ich was schreibe kommt in meinem Chat vor dem Text auch anstatt mein name nur so unwichtiges zeug und am anfang kommt im Java IRC so ein infotext, der in meinem chat ein totales chaos ist und im Java IRC garnicht erscheint bzw. nur bestimmte sachen und als richtiger text ohne so wirrwar:

Zitat:

:liberty.german-elite.net 332 Testuser #test :Das Topic suckt ;D
:liberty.german-elite.net 333 Testuser #test HansWurst
:liberty.german-elite.net 353 Testuser = #test :Testuser +UserImChat @BB @triple @eO @Rad @K0i|aeffchen @W45
:liberty.german-elite.net 366 Testuser #test :End of /NAMES list.
:liberty.german-elite.net 324 Testuser #test +ntr
:liberty.german-elite.net 329 Testuser #test 1116666985
PRIVMSG #test :Edit1
:UserImChat!~[e-mail] PRIVMSG #test :test
[UserImChat]:test
:UserImChat!~[e-mail] PRIVMSG #test :1
[UserImChat]:1
PRIVMSG #test :Testtext
PING :liberty.german-elite.net
PONG :liberty.german-elite.net
PING :liberty.german-elite.net
PONG :liberty.german-elite.net

Edit: Auch das Ping Pong wird im Java IRC nicht gezeigt.

[Matze]

Kann es sein, dass du im OnReceive das hier irgendwo verarbeitest?

Delphi-Quellcode:

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

[Äfan]

Ja das ist vollkommen richtig:

Delphi-Quellcode:

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

[Matze]

Dann schmeiß das raus, das zeigt dir nämlich die Server-Meldungen an. ;)