[Crabber]

Здравствуйте! Пробовал реализовать отправку сообщений на ICQ, но как-то не успешно. В настройках TClientsocket указан хост: wwp.mirabilis.com, порт:80. После нажатия на кнопку ничего не происходит, не выводиться сообщение об ошибке и сообщение в аську тоже не попадает.

Использовал приведенный ниже код:

Код:

{
3 TEdits, 1 TMemo und 1 TClientSocket. 
  Set the  TClientsocket's Port to 80 and the Host to wwp.mirabilis.com. 
} 

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

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

[vladislav147]

А компонент качать не пробовал, или хочешь самостоятельно (POST Запрос) ?
Название ему TICQClient ...

Выложил...
Сначала установи TICQClient, потом ICQ Socket lib...
icq_socket_lib.rar
TICQClient_v1.34.1.rar

[Crabber]

Та хотелось бы без компонента, но я вижу что с ним будет намного проще, за ссылки спасибо! Правда я качнул с http://ticqclient.tsar-ioann.ru/ версию 1.5

[PhoeniX]

По тому, что вижу:
1. HTTP/2.0 не существует. Есть 1.0 и 1.1
2. Неверные адреса. Должно быть:

Код:

ClientSocket1.Host = 'wwp.icq.com';

POST /scripts/WWPMsg.dll HTTP/1.0
Host: wwp.icq.com

3. Content-length должен быть равен длине передаваемых данных.
4. fromicq:110206786 - предполагаю, что вместо двоеточия надо использовать "="
5. Возможно, данные отправляются, но обработаться не успевают. Закрытие соединения лучше ставить на OnRead, в котором делать (для отладки)

Код:

ShowMessage(Socket.ReceiveText);

6. Обилие chr(xx) нафига? Православные #10#13 отменили?