indy irc|topic-edit geräusch-OP

[Matrix Scripter]

Hi!
Ich schreib auch gerade nen kleinen irc client mit hilfe der indys..

Mein Problem ist, dass das Topic nicht angezeigt wird. und ich hab ka wieso :/
Hier der Code:

Delphi-Quellcode:

procedure TForm1.IdIRCJoined(Sender: TObject; AChannel: TIdIRCChannel);
begin
  MeChat.Lines.Add('Sie haben ' + Channel + ' betreten');
  if (AChannel.Topic<>'') then
  begin
    MeChat.Lines.Add('Thema ist: '+AChannel.Topic);
    EdtTopic.Text := AChannel.Topic;
  end;
end;

Außerdem hab ich nen Edit das sobald auf enter gedrückt wird den Text der drin ist abschickt. Jedoch kommt da immer noch so ein komisches "beep". Kann man das irgendwie abstellen?

Und außerdem wird nicht angezeigt ob ein User OP/voice ist:

Delphi-Quellcode:

procedure TForm1.IdIRCNames(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var i : integer;
begin
  for i := 0 to idIRC.Users.Count-1 do
  begin
    if idIRC.IsOp(idIRC.Users.Items[i].Nick) then
      LBNicks.Items.Add('@'+idIRC.Users.Items[i].Nick)
    else
    begin
      if idIRC.IsVoice(idIRC.Users.Items[i].Nick)then
        LBNicks.Items.Add('+'+idIRC.Users.Items[i].Nick)
      else
        LBNicks.Items.Add(idIRC.Users.Items[i].Nick);
    end;
  end;
end;

(Benutze indy9, Delphi 2005 Personal)

Hoffe mir kann jemand helfen
mfG MatrixScripter

[marabu]

Guten Morgen.

Wenn kein Topic angezeigt wird, dann vielleicht weil du vorher keines gesetzt (SetTopic) hast?

Der Ton beim Drücken der Enter-Taste rührt davon her, dass die Standardbehandlung mit der Taste nichts anzufangen wusste. Das hier sollte helfen:

Delphi-Quellcode:

procedure TDemoForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    ShowMessage(Edit.Text);
    // Keine weitere Bearbeitung von #13
    Key := #0;
  end;
end;

IsOp() und IsVoice() schauen sich das erste Zeichen im Nick an - du würdest mit deinem Code dem Nick ein zusätzliches Kennzeichen voranstellen.

Grüße vom marabu

[Matrix Scripter]

Hi marabu,
doch der Channel hat schon ein Topic.
Und das mit isOP und isVoice funktioniert ja eben nicht so wie ich will. in meiner Liste wird niemand mit @ oder + angezeigt. Und ich weiss nicht warum...

[marabu]

Ich kann dir leider nur Hilfe zur Selbsthilfe geben.

Zitat von Matrix Scripter:

doch der Channel hat schon ein Topic.

Was steht denn in AChannel.Topic, wenn du einen Haltepunkt setzt und den Wert der Eigenschaft untersuchst?

marabu