Прокоментируйте код автризации вк

[DinamoBrynsk]

var data:tstringlist;
	     PageProfile:string;
	     error:boolean;
	begin
	 IdHTTP1.AllowCookies:=true;
	 IdHTTP1.HandleRedirects:=false;
	 data:=tstringlist.create;
	 data.Add('email='+edit1.text); // логин для авторизации
	 data.Add('pass='+edit2.Text);  // пароль для авторизации
	 data.Add('expire=');
	 data.Add('vk=');
	 error:=false;
	 try
	  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data);
	 except
	  error:=true;
	 end;

	 if not(error) then
	  begin
	   data.Clear;
	   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
	   data.Add('op=slogin');
	   data.Add('redirect=1');
	   data.Add('expire=0');
	   data.Add('to=');
	   IdHTTP1.HandleRedirects:=true;
	   try
	    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data);
    except
	   end;
     listbox1.items.add('Авторизовались');
	  end
	 else
  listbox1.Items.Add('Авторизация не удалась');

	 Data.Free;
end;

что каждая строчка делает

[kangreon]

var data:tstringlist;
	     PageProfile:string;
	     error:boolean;
	begin
	 IdHTTP1.AllowCookies:=true; // ПРинемаем куки
	 IdHTTP1.HandleRedirects:=false; // Не переходим по редиректам
	 data:=tstringlist.create; // Создаем переменную data типа tstringlist
// Заносим данные для POST запроса в data
	 data.Add('email='+edit1.text); // логин для авторизации
	 data.Add('pass='+edit2.Text);  // пароль для авторизации
	 data.Add('expire=');
	 data.Add('vk=');
	 error:=false;
	 try
	  PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data); // Отправляем POST запрос, и сохраняем ответ от сервера в переменную PageProfile
	 except // Обрабатываем исключения
	  error:=true;
	 end;

	 if not(error) then // Если POST запрос прошел успешно, то выполнить следующий код
	  begin
	   data.Clear; // Очищаем stringlist
	   data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
	   data.Add('op=slogin');
	   data.Add('redirect=1');
	   data.Add('expire=0');
	   data.Add('to=');
	   IdHTTP1.HandleRedirects:=true; // Переходим по редиректам
	   try
	    PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data); // Отправляем POST запрос
    except
	   end;
     listbox1.items.add('Авторизовались');
	  end
	 else
  listbox1.Items.Add('Авторизация не удалась');

	 Data.Free;
end;

Copy(PageProfile, Pos('value', PageProfile)+7, 56)

копировать из PageProfile Начиная с value + 7 символов до 56 - ого символа, считая от value...

Copy http://www.delphibasics.ru/Copy.php
Pos http://www.weblibrary.biz/delphi/string/pos
TStringList http://www.delphibasics.ru/TStringList.php

[chikaga]

Сообщение от kangreon

[CODE]
копировать из PageProfile Начиная с value + 7 символов до 56 - ого символа, считая от value...

считая от value... - это неправильно, скорее так:
копировать 56 символов из PageProfile Начиная с value + 7