Скачать: CL | DM;

Вопрос про ICQ.   Найти похожие ветки 

← →
vegarulez ©   (2007-08-04 09:14) [0]

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

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;

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

---

← →
MetalFan ©   (2007-08-04 09:55) [1]

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

иде спер? )))

---

← →
vegarulez ©   (2007-08-04 11:26) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c