| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

чат

Res ©   (2008-02-23 01:05:00) 

Пытаюсь авторизоватся в чате chat.mail.ru, ниче не получается, подскажите пожалуйста как можно авторизоватся.
var
mainpage:string;
page:TStringStream;
int:array[1..30] of integer;
post:Tstrings;
x:integer;
begin
x:=0;
page:=Tstringstream.Create('');
 try
 form1.IdHTTP1.Get(' http://chat.mail.ru/', page);
 except
 end;
mainpage:=page.DataString;
page.Free;
int[1]:=Pos('<select name=room', mainpage);
     while (int[1]<>0) do
     begin
     Inc(x); //Увеличиваем x
     setlength(form1.chatlist, x+3);
     int[1]:=PosEx('<option value=', mainpage, int[1]+1);
     int[2]:=PosEx('"', mainpage, int[1]+1);
     int[3]:=PosEx('"', mainpage, int[2]+1);
     int[4]:=PosEx('>', mainpage, int[3]+1);
     int[5]:=PosEx('<', mainpage, int[4]+1);
     form1.chatlist[x]:=copy(mainpage, int[2]+1, int[3]-int[2]-1)+'|'+copy(mainpage,int[4]+1, int[5]-int[4]-1);
     end;
     for x:=1 to 2{length(form1.chatlist)-1} do
     begin
     post:=Tstringlist.Create;
     page:=Tstringstream.Create('');
     post.Add('page= http://1.chat.mail.ru/');
     post.Add('enter=1812');
     post.Add('Login='+form1.Edit1.Text);
     post.Add('Domain='+copy(form1.ComboBox1.Text, 2, length(form1.ComboBox1.Text)));
     post.Add('Password='+form1.Edit2.Text);
     post.Add('nick='+form1.Edit3.Text);
     post.Add('room='+form1.chatlist[x]);
       try
       form1.IdHTTP1.Post(' http://my.chat.mail.ru/cgi-bin/auth', post);
       showmessage('все ок1');
       except
       end;
       try
       form1.IdHTTP1.Get(' http://1.chat.mail.ru/cgi-xml/chat', page);
       showmessage('все ок2');
       except
               showmessage('все не ок2');
       end;
     mainpage:=page.DataString;
     form1.Memo1.Lines.Add(mainpage);
     page.Free;
     post.Free;
     end;

end;

---

Res   (2008-02-23 10:45:00) [1]

Да, я пытался сделать, но не получилось))) Может подскажите что нить?)

---

KilkennyCat   (2008-02-23 07:51:00) [2]

наивный.

---

Наверх