[Laymer]

Может быть, конечно, что подобная тема уже создавалась, но поиск ничего не выдал, так что создам новую.
При переделке чужого проекта столкнулся со странным модулем/классом/чем-то там ещё под названием "vortex". Вот проблемное место (эта процедура запускает бота на канал).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

procedure TForm1.Button1Click(Sender: TObject); var IRCQuery: TStringList; IRCServ, IRCJoin, IRCCountry: String;   begin if (edUser.Text = '') {or (cbChan.Text = '')} or (cbServer.Text = '') then  Exit else begin         IRCQuery := TStringList.Create;     try      IRCQuery.Text := IdHTTP1.Get('http://'+cbServer.text+'/это я на всякий случай не покажу/Login.asp?UserName=&Password=&IPAddress=');     except      ShowMessage('Error contacting server. This server or your network is down.');        Exit;     end;       IRCServ := StringReplace(IRCQuery[0],'<CONNECT ','',[]);     IRCServ := StringReplace(IRCServ,'>','',[]);       if IRCQuery.Count >= 2 then begin // Server-controlled autojoin      IRCJoin := StringReplace(IRCQuery[1],'<JOIN ','',[]);      IRCJoin := StringReplace(IRCJoin,'>','',[]);      cbChan.Text := IRCJoin;     end;       IRCQuery.Free;        {Form1.irc.IrcOptions.MyNick := eduser.Text;      Form1.irc.IrcOptions.ServerHost := IRCServ;}        case cbflag.ItemIndex of        51 : IRCCountry := 'CL';        52 : IRCCountry := 'CS';        53 : IRCCountry := 'SI';        54 : IRCCountry := 'LB';        55 : IRCCountry := 'MD';        56 : IRCCountry := 'UA';        57 : IRCCountry := 'LV';        58 : IRCCountry := 'SK';        59 : IRCCountry := 'CR';        60 : IRCCountry := 'EE';        61 : IRCCountry := 'CN';      else        IRCCountry := 'UK';      end;          {Form1.irc.IrcOptions.UserName := inttostr(cbflag.ItemIndex)+' '+inttostr(cbrank.ItemIndex)+' '+IRCCountry+' ProSnooper2';      Form1.irc.IrcOptions.Password := 'ELSILRACLIHP ';      Form1.irc.connect;      Form1.Caption := 'ProSnooper - '+cbchan.Text;        Form1.Show;}        try        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','Username',rdString,edUser.Text);        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','Channel',rdString,cbChan.Text);        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','ServerList',rdString,cbServer.Items.CommaText);        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','Server',rdString,cbServer.Text);        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','Flag',rdString,IntToStr(cbFlag.ItemIndex));        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','Rank',rdString,IntToStr(cbRank.ItemIndex));        SetRegistryData(HKEY_CURRENT_USER,'\Software\Secret','AutoLogin',rdString,BoolToStr(CheckBox2.Checked));      except        ShowMessage('Cannot access registry.');      end; end; end;

Если точнее, то проблема в коде, к-ый скрывается в многострочных комментариях. Дело в том, что нечто под названием "irc" принадлежит к классу Tvortex. В модулях тоже есть vortex. Я его скачал, но он устанавливаться не желает. По крайней мере на делфи 7 не желает точно. Собственно вопрос - а что это вообще такое и как с этим быть?
Подскажите, пожалуйста, а то я дальше не продвинусь.

[Laymer]

В общем IdIRC помог, а с вортексом так ничего и не получилось.