Вопрос про 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]

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

иде спер? )))

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

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