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

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

ICQ [D6, D7, Win2k, WinXP]

LOX ©   (2003-10-10 20:23:00) 

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

---

Dean   (2003-10-28 12:44:00) [1]

> $hade ©

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

---

$hade   (2003-10-28 09:28:00) [2]

>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 09:06:00) [3]

> я взял тут:

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

---

LOX   (2003-10-21 19:58:00) [4]

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

---

Dean   (2003-10-20 10:50:00) [5]

>LOX ©
А где ж надыбать ентот компонент (ICQClient)? А то я тока демо нашёл. Подскажи.

---

LOX   (2003-10-19 19:49:00) [6]

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

---

Dean   (2003-10-16 06:36:00) [7]

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

---

LOX   (2003-10-13 07:32:00) [8]

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

---

LOX   (2003-10-12 11:27:00) [9]

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

---

Rouse_   (2003-10-12 02:54:00) [10]

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

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

---

Rouse_   (2003-10-12 02:18:00) [11]

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

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

---

SPIRIT   (2003-10-12 01:45:00) [12]

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

---

LOX   (2003-10-11 17:40:00) [13]

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

---

Rouse_   (2003-10-11 02:10:00) [14]

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

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

---

Наверх