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

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

Вопрос про ICQ. [D6, XP]

vegarulez ©   (2007-08-04 09:14:00) 

Привет всем мастерам. У меня у есть вот такой вот код, но почему то месагу не отправляет :(

var
 Form1: TForm1;
 csend: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(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:250921382'+'&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;

Подскажите в чём проблема?

---

vegarulez   (2007-08-04 11:26:00) [1]

в факе взял...

---

MetalFan   (2007-08-04 09:55:00) [2]

> У меня у есть вот такой вот код

иде спер? )))

---

Наверх