сообщения в асю

[DeDoK]

как можно написать сообщение в ICQ не используя TICQClient? есть какие либо предложения? рассмотрю все варианты. Заранее спасибо

[dolphin705]

http://dolphin.ucoz.ru/forum/9-87-1
Тут видел исходник

[DeDoK]

Нема там исходника(( только готовая программа и компонент(

[Квэнди]

Можете использовать webmessage
Вот пример:
http://www.icq.com/people/webmsg.php...omemail=1@1.ru
Но незаметно не получится из-за капчи, так что можно просто предложить пользователю заполнить капчу а дальше уже отправлять стандартным заполнением форм

[DeDoK]

я нашел как это делается на сокетах
но мне не понятна эта строка

 cSend := cSend + 'from=' + edit1.Text + ' &fromemail=' + edit2.Text + 
    ' &fromicq:110206786' + ' &body=' + memo1.Text + ' &to=' + edit3.Text + '&Send=';

Обьясните пожалуста что это за параметры?

[KORN]

это запрос:
from - тут с ходу и не скажу что должно быть
fromemail - мыло
fromicq:110206786 - номер icq
body - текст сообщения
to - кому

[DeDoK]

  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: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;

Вот этот код. Ток чето он у меня не работает(( дето я с параметрами последними не ловлю((((