IdIRC und Invite

[sharkx]

Hallo ...

Wie kann ich mit der Indy IRC Komponente jemanden inviten?

ich hab es mit folgendem Code in allen möglichen Variationen getestet aber nichts geht.

Delphi-Quellcode:

Form1.IdIRC1.Raw('/Invite ' Nick  #channel);

[scp]

Probier mal:

Delphi-Quellcode:

Form1.IdIRC1.Raw(Format('INVITE %s %s', [Nick, AChannel]));

Wie ich der IdIRC.pas entnehmen konnte werden alle Kommandos ohne / und in Grossbuchstaben versendet. Es kann sein, das Nick und Channel beim versenden vertauscht werden müssen, so ist es zumindest bei KICK.

[sharkx]

Delphi-Quellcode:

Form1.IdIRC1.Raw(Format('INVITE %s %s', [AUser.Nick, lvItem.SubItems[1]]));

Funktioniert nicht.

auch...

Delphi-Quellcode:

Form1.IdIRC1.Raw(Format('INVITE %s %s', [lvItem.SubItems[1], AUser.Nick]));

Funktioniert nicht.

[Pseudemys Nelsoni]

Delphi-Quellcode:

IdIRC1.Raw('INVITE ' + DER_NICK + DER_CHAN);

ca so:

Delphi-Quellcode:

IdIRC1.Raw('INVITE silent #channel');

du musst halt die "/" bei befehlen weglassen

[sharkx]

hmmm...

funktioniert auch nicht.

[Pseudemys Nelsoni]

natürlich funktioniert das, habs selber grad gemacht -_-

[sharkx]

und warum funktioniert des bei mir nicht?
Ja der bot hat OP :>


.......

ich habs nunmal mit einem Edit probiert und da funktioniert es mit:

Delphi-Quellcode:

IdIRC1.Raw(Edit1.Text);

In Edit1 muss invite <nick> <channel> stehen.

Aber warum funktioniert dann meine procedure nicht?

Delphi-Quellcode:

procedure GetLogin(AUser: TIdIRCUser; User: String; Pass: String);
var
  lvItem : TListItem;

begin
  lvItem := Form1.UserList.FindCaption(0, User, True, True, False);
    if lvItem <> nil then
      begin
        if (lvItem.SubItems[0] = Pass) and not (lvItem.SubItems[3] = 'False') then
          begin
            try
              Form1.IdIRC1.Raw('invite ' + AUser.Nick + lvItem.SubItems[1]);   // AUser.Nick is derjenige der die anfrage schickt, SubItem[1] is der channel zum Inviten
            finally
              Form1.IdIRC1.Say(lvItem.SubItems[1], '[Invite] ' + AUser.Nick + ' invited himself as ' + user);
            end;
          end
        else
          begin
            Form1.IdIRC1.Say(AUser.Nick, 'Invalid Username / Password or your Account has been disabled');
            Form1.IdIRC1.Say(lvItem.SubItems[1], '[Invalid Login] ' + User + ' ('+ AUser.Nick +')' + ' tried to invite himself with invalid login!' );
          end;
      end
    else
      begin
        Form1.IdIRC1.Say(lvItem.SubItems[1], '[Invalid Login] ' + User + ' ('+ AUser.Nick +')' + ' tried to invite himself with invalid login!' );
      end;
end;

[scp]

Zitat:

Zitat von sharkx

Delphi-Quellcode:

              Form1.IdIRC1.Raw('invite ' + AUser.Nick + lvItem.SubItems[1]);   // AUser.Nick is

Du hast INVITE kleingeschrieben und das Leerzeichen zwischen Nich und Channel vergessen.

[sharkx]

argl wie blöd muss ich sein?

Aber ob invite klein oder groß geschrieben wird ist egal, funzt mit beidem :)

Danke