ICQ

← →
LOX (2003-10-10 20:23) [0]

Как отправить сообщение на ICQ?
Самый простой и работающий пример.

← →
Rouse_ (2003-10-11 02:10) [1]

{ You need 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;

Желаю успехов

← →
LOX (2003-10-11 17:40) [2]

А зачем текст выделил?

← →
SPIRIT (2003-10-12 01:45) [3]

Удалено модератором

← →
Rouse_ (2003-10-12 02:18) [4]

> LOX © (11.10.03 17:40) [2]
А не нужно было?
Ну извини, по горячности... больше не буду...

Желаю успехов

← →
Rouse_ (2003-10-12 02:54) [5]

> SPIRIT ©
Даже если не ко мне, Вас это не красит...

Желаю успехов

← →
LOX (2003-10-12 11:27) [6]

Если кто нибудь видел последнюю версию ICQClient, кинту ссылку.

← →
LOX (2003-10-13 07:32) [7]

Всё я понял как надо отправлять!

← →
Dean (2003-10-16 06:36) [8]

Почему-то данный пример не сработал. Подозреваю, что косяк в том, что в инет выхожу через прокси. Подскажите, плз, как решить траблу... (за мной пиво)

← →
LOX (2003-10-19 19:49) [9]

как отправить SMS с помощью TICQClient?

← →
Dean (2003-10-20 10:50) [10]

← →
LOX (2003-10-21 19:58) [11]

я взял тут:
http://www.cobans.net/icq_client.html

← →
Dean (2003-10-28 09:06) [12]

> я взял тут:

Данкэ шон... ещё бы доки на него...

← →
$hade (2003-10-28 09:28) [13]

>Dean © (16.10.03 06:36) [8]
Почему-то данный пример не сработал. Подозреваю, что косяк в том, что в инет выхожу через прокси. Подскажите, плз, как решить траблу... (за мной пиво)

поменять строку
cSend := cSend + "Host: wwp.mirabilis.com:80" + chr(13) + chr(10);
на строку типа
cSend := cSend + "Host: твой_прокси:порт" + chr(13) + chr(10);

в обчих чертах так...

← →
Dean (2003-10-28 12:44) [14]

> $hade ©

В общем сообщение об ошибке перестало нудить... и мессаги уходят. Спасибо за совет. Тока вот понять не могу, куда они уходят?
Не могли бы объяснить что означают эти поля:
"from=", "&fromemail=", "fromicq:", "&Send="
Спасибо.

ICQ Найти похожие ветки