Форум: "Сети";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Вниз

Как отправить сообщение на 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]

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

---

← →
Esc   (2004-01-03 23:12) [6]

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

---

← →
Esc   (2004-01-03 23:24) [7]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2004.03.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.007 c