Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Сети > Послать сообщение ICQ


Автор: DragonFire 22.6.2006, 15:58
Вот замутил такую програмку, которая посылает 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 &fromemail=stepa-new@mail.ru &fromicq:337694470' + ' &body=' + Edit1.Text + ' &to=' + T + '&Send=';
  ClientICQ.Active := True;
  end;
end;
 

Автор: drkot 22.6.2006, 17:14
В концепции.
Американ онлине заблокировала возможность отсылки сообщений без авторизации.
Смотри официальный сайт. Все поймеш. 

Автор: DragonFire 22.6.2006, 17:20
Плииинн
А че делать то тогда?? все [censored 6] посылке сообщений? 

Автор: drkot 22.6.2006, 17:49
Для себя нашел такой выход:
   CGI скрипт на хостинге получает сообщение и отправляет его на мыло.

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

Автор: DragonFire 22.6.2006, 18:12
Ну мыло это не прикольно... 
Как же сама ICQ к серверу конектится? должен же быть какой-то способ... С авторизацией как-нибудь... 

Автор: Snowy 22.6.2006, 20:24
возьки компоненту TICQClient
на тори есть.
родной сайт, вроде www.cobans.net 

Автор: DragonFire 22.6.2006, 20:49
Вот, то что надо, спс!! 

Автор: DragonFire 23.6.2006, 07:40
Я скачал архив оттуда, там куча юнитов и примеров, только я не понял как ставить сам компонент... 

Автор: Snowy 23.6.2006, 09:13
Также как обычно ставят компоненты.
Главный файл - icqclient.pas
А дальше - в зависимости от того, какая версия дельфи. 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)