| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сообщения на аску [D6, D7, Win2k, WinXP]

LOX ©   (2003-09-05 21:28:00) 

А как написать прогу которая отправляет сообщения на аску.

---

AndreyAs   (2003-09-08 10:29:00) [1]

Сообщение из рссылки этого сайта:

ICQ2000 Сделай Сам :)
( http://www.delphimaster.ru/cgi-bin/links.pl?get=1022300644)
Сайт для тех, кто интересуется протоколами ICQ.
Описана работа протокола ICQ2000a (ICQv7),
Подробно-комментированные исходные коды для Delphi-5 прилагаются.

---

LOX   (2003-09-07 14:57:00) [2]

Это я понял. но у меня это непашет

---

Rouse_   (2003-09-07 10:59:00) [3]

В первом свой ник
Во втором мыло
> " &fromicq:110206786"- это меняем на свой UIN
В третьем UIN реципиента

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

---

LOX   (2003-09-06 17:52:00) [4]

Плиз, приведите работающий пример, мне это ОЧЕНЬ нужно.

---

SkyN   (2003-09-06 11:27:00) [5]

и ещё компаненты
http://www.delphimaster.ru/cgi-bin/faq.pl?ook=1&id=988618936&n=20

---

SkyN   (2003-09-06 11:25:00) [6]

есть компонента TIcqClient смотреть на http://www.cobans.net
или разбираться с протоколом

---

ruslan_as   (2003-09-06 10:02:00) [7]

Пишу так
Edit1 - Имя
Edit2 - свою почту
Edit3 - номер Аськи

В ответ Asynchronus socket error 10060

---

ruslan_as   (2003-09-06 09:46:00) [8]

Простите за невежество, но что писать в Edit1 - 3?

---

Rouse_   (2003-09-06 08:38:00) [9]

Вот так можно послать сообщение:

{
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.dllHTTP/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;

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

---

Наверх