Авторизация на ICQ.com

[100GRamm]

подскажите пж-та как через Инди сокет подключиться (авторизироваться) на icq.com? че то не получается! уверен это очень просто должно быть! спасибо!)))Edit2.Text:='login.icq.c om';
Edit3.Text:='5190';
form1.IdTCPClient1.Host:=form1.Edit 2.Text;
form1.IdTCPClient1.Port:=strtoint(f orm1.Edit3.Text);
form1.IdTCPClient1.Connect();
?????
form1.IdTCPClient1.Disconnect;

...а как там ему рассказать что мой UIN такой - то, и Password тоже имеется
и как пересылать сообщения и принимать?

[Пепел Феникса]

а через idHTTP не проще? а если так то вам нужно посылать HTTP запрос...можно сниффером посмотреть

[100GRamm]

Сообщение от Пепел Феникса

а через idHTTP не проще? а если так то вам нужно посылать HTTP запрос...можно сниффером посмотреть

может и проще, но мысль сделать это через сокет, тем более, протокол поддерживается в асе.

[100GRamm]

http://dl.web-hack.ru/books/icq_protocol.rar вот че то нашел, но ниче не понял: как этим пользоваться?

[Пепел Феникса]

так авторизация на сайте?
или в ICQ?(клиент свой)

тот архив, помоему уже устарел

[100GRamm]

Пардон)) за не точный вопрос. ..да именно авторизация с цель подключения ипросто передавать через их сеть(icq) команды, да ивобще давно хчется разобраться с асей) хочу читать книжку с компа на телефоне (хоть даже через тот же джимм) Но можно и свою читалку написать(MPascal) хотя и не пробовал еще, PS: архив явно старый - точно знать не могу, но протокол у них уже девтый,вроде, а там вышка-7, но и в товсе равно пока не врубился)))) хотя что - то доходить начало)))

[Пепел Феникса]

можно посмотреть компонент TICQClient и из него взять нужное(или его и юзать)
есть еще форум, асечка чтоли..., там много чего нарыть можно

[100GRamm]

)))УРА! спасибо! TIcqClient - это вещь! Уже юзаю!

[100GRamm]

<<удалено (Квэнди)<< <<= Сдесь есть очень интересное описание с примерами своего клиента ! без компонента TIcqClient, немного устарело но все же интересно для собственного развития(давно искал) Феникс РЕСПЕКТ! за наводку!

[100GRamm]

Вот простейший пример исспользования TIcqClient :

//авторизация

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with form1.ICQClient1 do
begin
DisableDirectConnections:=true; //connect
icqserver:='login.icq.com';
icqport:=5190;
UIN:=strtoint(edit1.Text);
password:=edit2.Text;
Login(); //ready
end;

//отправка сообщения

procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
form1.ICQClient1.SendMessage(strtoi nt(listbox1.Items[listbox1.Itemindex]),memo2.Text);
form1.Memo1.Lines.Add('от меня > '+listbox1.Items[listbox1.Itemindex]+#13+#10+memo2.text);
end
end;

//получение сообщения

procedure TForm1.ICQClient1MessageRecv(Sender : TObject; Msg, UIN: String);
begin
memo1.Lines.Add('от '+UIN+#13+#10+Msg);
end;

Вот, впринципе, все что нужно для прием\передачи , но там полно всего еще!