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

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

Как отправить сообщение на ICQ номер [D6, Win95/98, Win2k, WinXP]

AndreySoft ©   (2003-11-12 22:20:00) 

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

---

Esc   (2004-01-03 23:24:00) [1]

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

---

Esc   (2004-01-03 23:12:00) [2]

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

---

AndreySoft   (2004-01-03 16:50:00) [3]

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

---

AndreySoft   (2003-11-13 16:18:00) [4]

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

---

AndreySoft   (2003-11-13 16:03:00) [5]

> edit1 - От кого

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

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

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

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

Тоже номер ICQ?

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

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

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

---

Denis_Ac   (2003-11-13 06:49:00) [6]

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

---

AndreySoft   (2003-11-12 22:53:00) [7]

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

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

end.

---

Наверх