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

[.fry]

SERVICE_TEMP_UNAVAIL

[.skyer]

дада, я это тоже уже видел)

[krekan]

Друзья, я так понял программу от .skyer нужно исправить, что бы она работала . . . Киньте пожалуйста исправленную версию, очень прошу :) Пишет Connection Closed . . .

Добавлено через 1 час 1 минуту
Также пробовал Oscar Regger, так же не работает :(

[.skyer]

krekan, nic это не моя программа, а программа AUR'a :)
Сниффер тебе в руки дорогой)

[.fry]

Регистрация через протокол временно не доступнa.

[DeDoK]

Скажите как TICQClient менять статус когда я в сети? допустим вместо Онлайн поставить депрессию или недоступен?

[.skyer]

DeDoK, ICQ.SetStatus := (cardinal)
самому влом чтоле посмотреть?

[Vo1tik]

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

Скажите как TICQClient менять статус когда я в сети? допустим вместо Онлайн поставить депрессию или недоступен?

OFFTOP: Блин похоже месяц нынче такой, даже мышкой кнопку поиск ткнуть лень ... или скачать пример

[narikad]

Народ помогите. У кого получается нормально загрузить список контактов со статусами? напишите как надо правильно.

[lines]

Здравтвуйте, неподскажите как изменить Ник на номере с помощью компонента?
Или такой функции нет в компоненте?

[DeDoK]

2.skyer - так ты мне дезинформацию подсовуеш. сам бы исходник открыл - в TICQClient нет функции SetStatus. Я быстрей сам откопал - ICQClient1.Status:=(cardinal);

[yxu]

DeDoK, сам бы открыл исходник и поиском поискал, а не тупо ставил точки после слова ICQClient1 и искал функцию.

property Status: LongWord read FStatus write SetStatus;

Другой вопрос, что эта процедура не объявлена в паблик.

[.skyer]

DeDoK, извини, ошибся.

lines, Здравтвуйте, неподскажите как изменить Ник на номере с помощью компонента?
Или такой функции нет в компоненте?

есть, напиши в асю или в лс расскажу

[RankoR]

.skyer, секретная инфа? =) Рассказывай тут ))

[.skyer]

RankoR, да нет, не секретная. просто лень )
вот либо мне lines сам напишет и тут выложит решение, либо я когда не будет так лениво сделаю

Добавлено через 4 часа 4 минуты
вот я решился описать процедуру смены и получения информации с номера.

И так, начнем:
1. Добавляем в FormCreate две строчки:

ICQ.OnUserGeneralInfo := OnUserGeneralInfo;
ICQ.OnUserInfoAbout := OnUserInfoAbout;

2. Создаем процедуры:
а) OnUserGeneralInfo (Sender: TObject; UIN, NickName,
FirstName, LastName, Email, City, State, Phone,
Fax, Street, Cellular, Zip, Country: String; TimeZone: Byte; PublishEmail: Boolean);

б) OnUserInfoAbout (Sender: TObject; UIN, About: String);

3. Думаю получить инфо дальше вы сможете самостоятельно)

4. Смена информации

в TICQClient'e есть такая строчка:

procedure TICQClient.SetSelfInfo(
NickName, FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip: String;
Country: Word; TimeZone: Byte; PublishEmail: Boolean;
Age: Word; Gender: Byte; const HomePage: String; BirthYear: Word; BirthMonth, BirthDay: Byte;
Language1, Language2, Language3: String; const About: String;
AuthorizationRequired, WebAware: Boolean
);

...ей и продолжаем пользоваться.
ICQ.SetSelfInfo(параметры, отписанные выше);

кому чо не ясно ломитесь в асю, опишу более подробно, ибо времени пока достаточно -)

[Vo1tik]

Переделал TICQClient
Версия, годная и для Delphi 2009 и для Delphi 7

[krekan]

Подскажите пожалуйста как в TICQClient реализовать передачу файлов? Или может есть дугой способ?

[.skyer]

krekan, в TICQ это пока еще не реализованно.
в смысле это есть, но не работает )

[RankoR]

krekan, кучу раз обсуждали в этой теме

[MiCr0s0fT]

Похоже, ICQ протокол снова подвергся изменениям. TICQClient получает "неверно сформированный пакет", либо коннектится на пару секунд и выпадает из сети.

Также, я заметил интересную вещь со статусами, написал на офф.форуме QIP:
http://forum.qip.ru/showthread.php?p=307277#post307277
Прошу поддержать, если вы тоже такое заметили. Данная проблема касается только пользователей QIP и QIP Infium

[.skyer]

MiCr0s0fT, я хз что у тебя там подверглось изменениям, мой бот пашет нормально.
и держится в онлайне столько, сколько надо ;)

[debrova]

Господа, помогите с UTF8. Когда в простом самом варианте делаю ICQClient.SendMessage(55800228 9,юникод), приходит ????????? при том в icqmenace CLI_SENDMSG показывает тоже самое, то есть юникод теряется еще до начале,думаю там Ansistring какой где то сбивает его, но непоняла где менять . Какие есть варианты доработки TICQClient-Demo(Native) компонента? "Сборки" не годятся :cry:

[RankoR]

MiCr0s0fT, malformed login packet (или как-то так) ?
Если да, то такое часто бывает именно на определенных номерах, на каких конкретно - хз

[flabber]

MiCr0s0fT, всё ок,палёт нормальный =\

[.skyer]

debrova, cнифай или ковыряй компонент от "царя"
там все отлично