TICQClient - исправления, дополнения и прочее

[Sax-mmS]

В этой теме будут выкладываться исправления и дополнения к компоненту TICQClient от Кобана для Delphi.


Компонент, актуально работающий на 13.08.2010
скачать: TICQClient
Пример работы с компонентом:
скачать: СheatICQ
Официальный хелп от coban2k
скачать: TICQClientHelp.rar

==============================

Оригинальный компонент (с демо): скачать


Компонент с работающими прокси и кодировками скачать тут


Компонент от Romen'a (с демо):
- движок на ICQ
- к архиве есть все необходимые модули (для WSocket'a от ICS 1.4, плюс из RxLib несколько модулей)
- из компонента убрано все "лишнее"
скачать

Демки делались в Turbo Delphi 2006, поэтому если вы будете собирать их под Delphi 7 и ниже не забудте в насткойках проекта указать пути, иначе среда не найдет эти модули и будет ругаться на их отсутствие.



1) Project -> Options
2) Закладка Directories/Conditionals
3) -> Units output directory: Units
-> Search path: ICQClient

[WGR]

Привет Всем
Проблема с выгрузкой аватарки на сервер
Как я понял для выгрузки аватары нужен приход SNAC(01,21) с сервера
Вызываю UploadAvatar
приходит только SNAC(13,0E) (errcode=0)
Из за чего не приходит SNAC(01,21) ?
или почему ещё она может не загрузится на сервер?

[Sax-mmS]

SirJohn, не те функции используешь. Смотри хелп и функции SSLxxx

[OkeyUA]

Сообщение от WGR

Привет Всем
Проблема с выгрузкой аватарки на сервер
Как я понял для выгрузки аватары нужен приход SNAC(01,21) с сервера
Вызываю UploadAvatar
приходит только SNAC(13,0E) (errcode=0)
Из за чего не приходит SNAC(01,21) ?
или почему ещё она может не загрузится на сервер?

Хм... Действительно перестала работать эта функция.
Если востребовано - посмотрю

[Mila Kamila]

Не обрабатывается серверный контакт-лист при запросе. В снифере смотрела - все в норме. Ну а когда доходит дело до обработки контакт-листа, в процедуре HSnac1306 читается только строка GetTLVInt(Pkt, T); if T <> 6 then Exit; Потом ничего не происходит, КЛ не загружается в программу.
Вот. К чему эта Т? Что она делает? Смотрела во всех вариациях компонента, эта процедура почти везде одинакова.

[Deeptown12]

Кто нибудь подкажите или поделитесь хорошим снифером для Icq.

[Sax-mmS]

Если локальный, для изучения протокола - тут

[CTAJluH]

Наконец-то нашел где могут реально помочь... вообщем трабл тут:

procedure TForm1.ICQClient1AddedYou(Sender: TObject; UIN: String);
begin
SetStatus('Контакт'+UIN+' добавил вас',1);
ICQClient1.AddContact(StrToInt(UIN));
ICQClient1.SendYouWereAdded(StrToInt(UIN));
end;

Ни первая, ни вторая функции компонента не работают.
//Перепроверил - оказалось что вообще это событие не работает.

ЗЫ
перечитал весь топик. Кто-то говорил мол по-своему клиент назвать нельзя а квип на самом деле всевидящий . Могу 100% опровергнуть: у знакомого стоит название "Это аська ЗАМИРА" (нерусский чел) в поле где пишется клиент.

[Sax-mmS]

CTAJluH, по поводу добавления контакта - это пост.
По поводу SendYouWereAdded и события ничего сказать не могу. Компонент какой версии или модификации?

[CTAJluH]

Не работают события OnStatusChange и OnAddedYou.
Вполне возможно что не работают ещё какие-то события, связанные с людьми из контакт-листа.

Что такое может быть? Нужные какие то шаманства чтобы они работали?

[Deeptown12]

Не работают события OnStatusChange и OnAddedYou.
то же самое
сборка с {Includes patches from Saif.N for Support Web Pager }
протокол - ICQ_PROTOCOL_VER = $0007
Что делать?

[Sax-mmS]

Это все связано с последними изменениями на серверах АОЛ.
Это рабтает только с серверными авторизованными контактами.

[CTAJluH]

Сообщение от Sax-mmS

Это все связано с последними изменениями на серверах АОЛ.
Это рабтает только с серверными авторизованными контактами.

Проверял на авторизованных в т.ч. на себе - нифига.
Зато увидел интересную особенность:
стоит контакту написать хоть одно сообщение и события начаниют работать!

[Sax-mmS]

Сообщение от CTAJluH

А мне надо если был приконнектен и обрыв...

Там при этом же вроде тоже вызывается OnConnectionFailed. Ну уж OnDisconnected точно должен вызываться.

[CTAJluH]

Сообщение от Sax-mmS

Ну уж OnDisconnected точно должен вызываться.

А это что за событие такое? Оо

Добавлено через 48 секунд
Точнее, что за событие-то, мне понятно, но у меня такого нет :) и в мануале нет про него.

[Cegou]

Не получается подключаться через прокси. Ни в оригинальном компоненте Кобана, ни в модификации Романа.

Код:
ICQClient.ProxyType := P_SOCKS5;
ICQClient.ProxyHost := '89.176.243.14';
ICQClient.ProxyPort := '1093';


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

[Sax-mmS]

А какой сервер/порт подключения? Желательно не login.icq.com и порт 443.

[eXa]

Сообщение от Cegou

Не получается подключаться через прокси. Ни в оригинальном компоненте Кобана, ни в модификации Романа.

Код:
ICQClient.ProxyType := P_SOCKS5;
ICQClient.ProxyHost := '89.176.243.14';
ICQClient.ProxyPort := '1093';


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

Тажа проблема, только с другими сервами ещё не пробывал.
Праверьти код, если не затруднит. Всё правильно?

procedure Conn;
begin
  ICQClient:= TICQClient.Create(nil);
  ICQClient.ICQServer:= Host;
  ICQClient.ICQPort:= Port;
  ICQClient.OnError:= ICQClientError;
  ICQClient.OnLogin:= ICQClientLoginSend;
  ICQClient.OnProxyConnected:= ICQClientProxyConnected;
  ICQClient.OnUserFound:= ICQClientUserFound;
  ICQClient.OnUserNotFound:= ICQClientNoUserFound;
  ICQClient.UIN:= StrToInt(ICQLogin);
  ICQClient.Password:= ICQPass;
  ICQClient.Login();
end;

procedure ICQClientProxyConnected(Sender: TObject;
ErrCode: Word);
var
  Checked: TProxyType;
begin
  case ProxyIF of
    0: Checked:= P_NONE;
    1: Checked:= P_SOCKS4;
    2: Checked:= P_SOCKS5;
//    3: Checked := P_HTTP
  end;
  ICQClient.ProxyType:= Checked;
  ICQClient.DisableDirectConnections := TRUE;
  ICQClient.ProxyResolve:= TRUE; //TRUE
  ICQClient.ProxyAuth:= FALSE;
  if ICQClient.ProxyType = P_HTTP then
    ICQClient.ICQPort := '443';
  ICQClient.ProxyHost:= HostProxy;
  ICQClient.ProxyPort:= PortProxy;
  ICQClient.ConnectionTimeout := 15
end;

Ииии ещё... http в юнитах рабочее?

[Sax-mmS]

eXa, удивительно, если бы это работало. ICQClientProxyConnected это просто событие, оповещающее, что первичное подключение через прокси прошло или нет. Все что ты задаешь в ICQClientProxyConnected надо прописывать до ICQClient.Login();

[Pentium02]

А реально вообще заставить его работать в консольном приложении, т.е. без формы.

[Sax-mmS]

Теоретический да. В сорцах есть возможность отключить формы делфи, вот тока придется переписывать функционал клсаа Application, т.к. клиент подвязан на его системе обработки собщений Windows.

[Romen]

Сообщение от CTAJluH

Правда тут есть одна проблема, я как раз об этом спрашивал - нет события, отвечающего за дисконнект =О

OnConnectionFailed 

  // здесь только если физически произошло разъединение с сервером
  // после ошибки сюда не попадаем
  // 1, 'error icq login'
  // 2, 'error icq disconnect'
  // ErrCode, 'error connect host down'
  // ErrCode, 'error rcv data'
  // ErrCode, 'error connect proxy bad'

[CTAJluH]

Romen, опять вы мне про этот КоннекшнФайлд.

Сообщение от Manual

OnConnectionFailed(Sender: TObject)
Вызывается, когда вы не можете подключиться к серверу либо сервер вас отключил по другим причинам.

Другими словами, это событие означает, что не получилось приконнектиться.
А мне надо если был приконнектен и связь пропала.

[BEast]

Сообщение от CTAJluH

А мне надо если был приконнектен и связь пропала.

Всё правильно люди тебя говорят.
Используй OnConnectionFailed(Sender: TObject).
Только что проверил: при физическом отключении от и-нета вызывается OnConnectionFailed, что и требовалось доказать.

[Deeptown12]

Стал использовать сборку от Romena.
Не работает событие OnStatusChange даже с авторизованными пользователями. Что делать.

[Sax-mmS]

После шаманств на сервере на многих номерах работает тока серверный лист. Так что сначала контакты должны быть на сервевер, а при подключени добавлены ростер (AddContact, AddContactMulti)