|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Отправка сообщения по ICQ
Здравствуйте! Пробовал реализовать отправку сообщений на ICQ, но как-то не успешно. В настройках TClientsocket указан хост: wwp.mirabilis.com, порт:80. После нажатия на кнопку ничего не происходит, не выводиться сообщение об ошибке и сообщение в аську тоже не попадает.
Использовал приведенный ниже код: Код:
{ 3 TEdits, 1 TMemo und 1 TClientSocket. Set the TClientsocket's Port to 80 and the Host to wwp.mirabilis.com. } var Form1: TForm1; csend: string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); 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=' + edit1.Text + ' &fromemail=' + edit2.Text + ' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send='; clientsocket1.Active := True; end; procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin clientsocket1.Socket.SendText(csend); clientsocket1.Active := False; end; Буду признателен если кто посоветует как можно реализовать отправку сообщения определенному пользователю ICQ. Желательно не используя дополнительные компоненты. Заранее спасибо! |
#2
|
|||
|
|||
TICQClient
А компонент качать не пробовал, или хочешь самостоятельно (POST Запрос) ?
Название ему TICQClient ... Выложил... Сначала установи TICQClient, потом ICQ Socket lib... icq_socket_lib.rar TICQClient_v1.34.1.rar Последний раз редактировалось vladislav147, 25.10.2012 в 23:22. |
#3
|
||||
|
||||
Та хотелось бы без компонента, но я вижу что с ним будет намного проще, за ссылки спасибо! Правда я качнул с http://ticqclient.tsar-ioann.ru/ версию 1.5
|
Этот пользователь сказал Спасибо Crabber за это полезное сообщение: | ||
vladislav147 (26.10.2012)
|
#4
|
||||
|
||||
По тому, что вижу:
1. HTTP/2.0 не существует. Есть 1.0 и 1.1 2. Неверные адреса. Должно быть: Код:
ClientSocket1.Host = 'wwp.icq.com'; POST /scripts/WWPMsg.dll HTTP/1.0 Host: wwp.icq.com 4. fromicq:110206786 - предполагаю, что вместо двоеточия надо использовать "=" 5. Возможно, данные отправляются, но обработаться не успевают. Закрытие соединения лучше ставить на OnRead, в котором делать (для отладки) Код:
ShowMessage(Socket.ReceiveText); Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение: | ||
vladislav147 (26.10.2012)
|