PDA

Ver la Versión Completa : Enviar un IcqPage con el TclientSocket


dec
01-07-2006, 01:07:01
Para hacer este truco debes colocar:

Dos Tedit, un memo, un boton y el TclientSocket que para simplificar las cosas le pondremos el nombre "Icq".

El Edit1 usaremos para colocar el numero Icq del Destinatario

El Edit2 para el Subject

El memo para escribir el mensaje. (el destinatorio solo recibira los primeros 450 carateres)

Al TclientSocket le pondremos los siguientes valores en las propiedades.


Port-->80
Host-->http://wwp.icq.com
Name-->Icq (para no usar nombres largos)


En el evento "OnConnect" pondremos:


procedure TForm1.IcqConnect(Sender: TObject; Socket: TCustomWinSocket);
var
Pag:String;
Begin
Pag := 'POST /scripts/WWPMsg.dll HTTP/1.0' + chr(13) + chr(10);
Pag := Pag + 'Referer: http://www.clubdelphi.com' + chr(13) + chr(10);
Pag := Pag + 'User-Agent: PeterSoft (WinMe; I)' + chr(13) + chr(10);
Pag := Pag + 'Connection: Keep-Alive' + chr(13) + chr(10);
Pag := Pag + 'Host: "http://wwp.icq.com":80' + chr(13) + chr(10);
Pag := Pag + 'Content-type: application/x-www-form-urlencoded' + chr(13) + chr(10);
Pag := Pag+ 'Content-length: 80' + chr(13) + chr(10);
Pag := Pag + 'Accept:Text/html' + chr(13) + chr(10) + chr(13) + chr(10);
Pag := Pag + 'from=Pedro Luque &fromemail=pedro@luque.net.ar &subject='
+ edit2.Text + ' &body=' + memo1.text + ' &to=' + edit1.text + '&Send=';
Icq.Socket.SendText(PAg);
Icq.Active := false
end;


Y en el Click del boton:


procedure TForm1.Button1Click(Sender: TObject);
begin
Icq.Active:=True;
end;


Y a mandar IcqPager a lo loco :)