IdIRC und Invite

[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:
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;