Работа с ICQ - Работа с сетью в Delphi

Gambler · 13.02.2007, 21:39

Привет всем! Вопрос прост: как отправить сообщение на номер ICQ? Читал в Delphi World что то не работает. Может чего не понял. Если у кого что получилось напишите пожалуйста! Заранее спасибо!

rpy3uH · 14.02.2007, 20:07

для этого есть специальные комопненты посмотри torry.net

Gambler · 16.02.2007, 23:23

Спасибо за ссылку. Скачал от туда TICQClient v.1.21. Но что то не пашет. Так то все понятно и все должно бы работать, но нет!!! У кого есть опыт работы с этим компонентом поделитесь секретами!

rpy3uH · 17.02.2007, 09:41

дай ссылочку я тоже его скачаю (искать не хочется.....)

Gambler · 17.02.2007, 22:41

Вот ссылочка. Скачай, там сразу два проекта. У меня все компилируется, но ничего не работает. Если что получится скажи!

-=DeS=- · 19.02.2007, 06:42

В файле ICQClient.pas нужно исправить это:

Код:

//SRV_COOKIE
      FUIN  := GetTLVStr(@pkt, T);                //Client's UIN in ASCII format

на это

Код:

T := GetInt(@pkt, 2);
      if T = $008e then                 // TLV(142 [0x008E])
      begin
        Inc(pkt.Len, GetInt(@pkt, 2));  
        FUIN  := GetTLVStr(@pkt, T);
      end else
      if T = $0001 then                 // TLV(1 [0x0001])
        FUIN  := GetWStr(@pkt);

И всё должно работать!

Gambler · 20.02.2007, 22:47

Спасибо! Сейчас попробуем.....

Проверил! Все работает! Огромное спасибо!!!

BOBAH13 · 20.02.2007, 23:53

да пробуй... толку мало.

есть у меня желание, кому интересно ?! давайте вместе напишим с нуля на новом протоколе OSKAR, так как на нем щас и пашет вся ситема. напишем компонент или длл лучше ))) ну и сорсы собнсо, но там смотреть уже будем.

-=DeS=- · 23.02.2007, 07:32

Ты бы лучше компонент для Mail Agent'a написал вот это уже другое дело! А может у кого есть этот компонент? А раз icq компонент работает зачем писать новый? А вот для маил агента я не встречал...

rpy3uH · 23.02.2007, 10:52

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

13.02.2007, 21:39	#1
Gambler Игрок Форумчанин Регистрация: 29.10.2006 Сообщений: 367	Работа с ICQ Привет всем! Вопрос прост: как отправить сообщение на номер ICQ? Читал в Delphi World что то не работает. Может чего не понял. Если у кого что получилось напишите пожалуйста! Заранее спасибо! Жизнь всегда игра. Но смерть - не всегда поражение. #define true (Math.random()>0.5) //Удачной отладки

14.02.2007, 20:07	#2
rpy3uH добрый няша Старожил Регистрация: 29.10.2006 Сообщений: 4,804	для этого есть специальные комопненты посмотри torry.net [Программирование на ассемблере на платформе x86-64]

16.02.2007, 23:23	#3
Gambler Игрок Форумчанин Регистрация: 29.10.2006 Сообщений: 367	Спасибо за ссылку. Скачал от туда TICQClient v.1.21. Но что то не пашет. Так то все понятно и все должно бы работать, но нет!!! У кого есть опыт работы с этим компонентом поделитесь секретами! Жизнь всегда игра. Но смерть - не всегда поражение. #define true (Math.random()>0.5) //Удачной отладки

17.02.2007, 09:41	#4
rpy3uH добрый няша Старожил Регистрация: 29.10.2006 Сообщений: 4,804	дай ссылочку я тоже его скачаю (искать не хочется.....) [Программирование на ассемблере на платформе x86-64]

17.02.2007, 22:41	#5
Gambler Игрок Форумчанин Регистрация: 29.10.2006 Сообщений: 367	Вот ссылочка. Скачай, там сразу два проекта. У меня все компилируется, но ничего не работает. Если что получится скажи! Жизнь всегда игра. Но смерть - не всегда поражение. #define true (Math.random()>0.5) //Удачной отладки

19.02.2007, 06:42	#6
-=DeS=- Форумчанин Регистрация: 20.12.2006 Сообщений: 135	В файле ICQClient.pas нужно исправить это: Код: `//SRV_COOKIE FUIN := GetTLVStr(@pkt, T); //Client's UIN in ASCII format` на это Код: `T := GetInt(@pkt, 2); if T = $008e then // TLV(142 [0x008E]) begin Inc(pkt.Len, GetInt(@pkt, 2)); FUIN := GetTLVStr(@pkt, T); end else if T = $0001 then // TLV(1 [0x0001]) FUIN := GetWStr(@pkt);` И всё должно работать! writeln('Hello Dude!!!');

20.02.2007, 22:47	#7
Gambler Игрок Форумчанин Регистрация: 29.10.2006 Сообщений: 367	Спасибо! Сейчас попробуем..... Проверил! Все работает! Огромное спасибо!!! Жизнь всегда игра. Но смерть - не всегда поражение. #define true (Math.random()>0.5) //Удачной отладки Последний раз редактировалось Gambler; 20.02.2007 в 22:58.

20.02.2007, 23:53	#8
BOBAH13 Android Developer Старожил Подтвердите свой е-майл Регистрация: 19.02.2007 Сообщений: 3,708	да пробуй... толку мало. есть у меня желание, кому интересно ?! давайте вместе напишим с нуля на новом протоколе OSKAR, так как на нем щас и пашет вся ситема. напишем компонент или длл лучше ))) ну и сорсы собнсо, но там смотреть уже будем. Home \| Android for food \| XWindows Dock \| github

23.02.2007, 07:32	#9
-=DeS=- Форумчанин Регистрация: 20.12.2006 Сообщений: 135	Ты бы лучше компонент для Mail Agent'a написал вот это уже другое дело! А может у кого есть этот компонент? А раз icq компонент работает зачем писать новый? А вот для маил агента я не встречал... writeln('Hello Dude!!!');

23.02.2007, 10:52	#10
rpy3uH добрый няша Старожил Регистрация: 29.10.2006 Сообщений: 4,804	зачем разрабатывать ICQ клиент, их и так немерено и недостатков в них нет никаких, поэтому бестолково мучаться........ [Программирование на ассемблере на платформе x86-64]