Как отправить сообщение на ICQ номер

← →
AndreySoft © (2003-11-12 22:20) [0]

т.е. в Edit"e пишем номер ICQ, в RichEdit"е пишем сообщение, нажимаем кнопку и сообщение должно отправиться на сервер.
Может кто-нибудь знает где есть исходник?
Заранее, всем спасибо!

← →
AndreySoft © (2003-11-12 22:53) [1]

Спасибо всем кто попытался ответить, но я уже нашёл.
Вот код, может кому пригодиться.
Только я что-то в нём ещё не разобрался: что можно вводить в три Эдита?

{ You need 3 TEdits, 1 TMemo und 1 TClientSocket. Set the TClientsocket"s Port to 80 and the Host to wwp.mirabilis.com. } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ScktComp; type TForm1 = class(TForm) SpeedButton1: TSpeedButton; ClientSocket1: TClientSocket; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Memo1: TMemo; procedure SpeedButton1Click(Sender: TObject); procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); private { Private declarations } public { Public declarations } end; var Form1: TForm1; csend: string; implementation {$R *.dfm} procedure TForm1.SpeedButton1Click(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; end.

← →
Denis_Ac (2003-11-13 06:49) [2]

2AndreySoft
>> Только я что-то в нём ещё не разобрался: что можно вводить в три Эдита?
В смысле???
edit1 - От кого
edit2 - Адрес мыла того кто отправляет
edit3 - Кому отправляют
memo1 - Текст сообщения

← →
AndreySoft © (2003-11-13 16:03) [3]

> edit1 - От кого

В смысле "от кого" - Номер своей аси?

> edit2 - Адрес мыла того кто отправляет

ну это понятно

> edit3 - Кому отправляют

Тоже номер ICQ?

> memo1 - Текст сообщения

Это я уже давно понял

PS: Если так, то чё ж он тогда ругается про какие-то порты?

← →
AndreySoft © (2003-11-13 16:18) [4]

...и говорит что "No address specified"

← →
AndreySoft © (2004-01-03 16:50) [5]

Удалено модератором
Примечание: Создание пустых сообщений ...

стучи в асю - помогу

ой а асю забыл 7512725

Как отправить сообщение на ICQ номер Найти похожие ветки