Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Послать сообщение ICQ 
:(
    Опции темы
DragonFire
Дата 22.6.2006, 15:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Вот замутил такую програмку, которая посылает ICQ сообщение, но что-то она не работает, где ошибка??
Код

procedure TFo.ClientICQConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ClientICQ.Socket.SendText(CSend);
  ClientICQ.Active := False;
end;

procedure TFo.BICQClick(Sender: TObject);
var T:String;
begin
  t:='';
  T:=InputBox('Отправка по ICQ','Введите ICQ номер адресата','');
  if t'' then begin
  cSend := 'POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0' + chr(13) + chr(10);
  cSend := cSend + 'Referer: http://wwp.mirabilis.com' + chr(13) + chr(10);
  cSend := cSend + 'User-Agent: Mozilla/4.06 (Win95; I)' + chr(13) + chr(10);
  cSend := cSend + 'Connection: Keep-Alive' + chr(13) + chr(10);
  cSend := cSend + 'Host: wwp.mirabilis.com:80' + chr(13) + chr(10);
  cSend := cSend + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
  cSend := cSend + 'Content-length:8000' + chr(13) + chr(10);
  cSend := cSend + 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*' +
    chr(13) + chr(10) + chr(13) + chr(10);
  cSend := cSend + 'from=RUS &[email protected] &fromicq:337694470' + ' &body=' + Edit1.Text + ' &to=' + T + '&Send=';
  ClientICQ.Active := True;
  end;
end;
 


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
drkot
Дата 22.6.2006, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 0
Всего: 8
В концепции.
Американ онлине заблокировала возможность отсылки сообщений без авторизации.
Смотри официальный сайт. Все поймеш. 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
DragonFire
Дата 22.6.2006, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Плииинн
А че делать то тогда?? все [censored 6] посылке сообщений? 


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
drkot
Дата 22.6.2006, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Ищущий
***


Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: 0
Всего: 8
Для себя нашел такой выход:
   CGI скрипт на хостинге получает сообщение и отправляет его на мыло.

С аськой боролся, но тянуть всю спецификацию протокола с прогой посчитал нерезонно + они его (протокол) время от времени меняют. 


--------------------
Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.
PM   Вверх
DragonFire
Дата 22.6.2006, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Ну мыло это не прикольно... 
Как же сама ICQ к серверу конектится? должен же быть какой-то способ... С авторизацией как-нибудь... 


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
Snowy
Дата 22.6.2006, 20:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
возьки компоненту TICQClient
на тори есть.
родной сайт, вроде www.cobans.net 
PM MAIL   Вверх
DragonFire
Дата 22.6.2006, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Вот, то что надо, спс!! 


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
DragonFire
Дата 23.6.2006, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 725
Регистрация: 14.8.2005
Где: Москва

Репутация: нет
Всего: 9
Я скачал архив оттуда, там куча юнитов и примеров, только я не понял как ставить сам компонент... 


--------------------
http://dragonfire.cimanu.ru/
PM MAIL ICQ   Вверх
Snowy
Дата 23.6.2006, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Также как обычно ставят компоненты.
Главный файл - icqclient.pas
А дальше - в зависимости от того, какая версия дельфи. 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0524 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.