Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

идентификация в IRC [D6, WinXP]


XProger ©   (2004-11-20 16:20:00) 

function IRC_Raw(const s: string): boolean;
begin
Result := send(sock, PChar(s)^, Length(s), 0) <> SOCKET_ERROR;
end;

...
 FD_CONNECT :
  begin
  IRC_Raw('ISIRCX');
  IRC_Raw('PASS xxx');
  IRC_Raw('NICK BOT');
  IRC_Raw('USER BOT xxx ' + IRC_GetIP + ' :BOTanik');
  end;

Это сообщение срабатывает!
После подключения сервер кикает меня по таймауту. Т.е. я даже идентификацию не прохожу... Да и в любом случае я PING обрабатываю, и все входящи сообщения я вижу - всего 4, а затем через сек 60-90 кикает меня...
IRC_GetIP - работает верно (проверял)

Что я не так делаю?


XProger   (2004-11-20 16:45:00) [1]

+ #13#10 забыл =)))
всё пашет


Наверх

Титульная страница Поиск, карта сайта Написать письмо