Авторизация ВКонтакте

[KWN, lnc]

Вообщем, уважаемые программисты. вот код.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls, IdCookieManager, ShellApi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    mmo1: TMemo;
    mmo2: TMemo;
    mmo3: TMemo;
    http1: TIdHTTP;
    cookie1: TIdCookieManager;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ss:TStringList;
f:TFileStream;
begin
mmo1.Lines.Clear;
mmo2.Lines.Clear;
mmo3.Lines.Clear;
http1.Get('http://vkontakte.ru/login.php?');
mmo2.lines.add('cookie1.CookieCollection.Count: '+inttostr(cookie1.CookieCollection.Count));
mmo3.Lines.Add(http1.Request.RawHeaders.Text);
mmo3.Lines.Add('');
mmo3.Lines.Add(http1.Response.RawHeaders.Text);
mmo3.Lines.Add('');
ss:=TStringList.Create;
f:=TFileStream.Create('C:\111.html',fmCreate);
try
 	ss.Add('email=****@mail.ru');
  ss.Add('pass=12345');
  ss.Add('expire=1');
  http1.Post('http://login.vkontakte.ru/?act=login',ss,f);
  mmo3.Lines.Add(http1.Request.RawHeaders.Text);
	mmo3.Lines.Add('');
	mmo3.Lines.Add(http1.Response.RawHeaders.Text);
	mmo3.Lines.Add('');
finally
	ss.Free;
  f.Free;
  ShellExecute(Handle, nil,pchar('C:\111.html'), nil, nil, SW_SHOW);
end;
end; 

end.

мне нужно извлечь в Edit1.Text := Ф.И.О вопос как? пожалуйста помогите. дайте исходник! перелазил весь интернет. не нашел того что я хочу (((

[sxcine]

парсить страницу!
тольк там кажется фамилия и имя будет, был исходник, но комп новый купил...

[r9m]

прокрути страницу вниз на "Похожие темы" там этих авторизаций уйма.

[Alar]

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

прокрути страницу вниз на "Похожие темы" там этих авторизаций уйма.

лучше давать ссылки. так как список похожих тем - динамический и - потом могут отказаться 5 вот таких тем с отсылом посмотреть похожие темы.

http://www.programmersforum.ru/showthread.php?t=37236
http://www.programmersforum.ru/showthread.php?t=90189

[KWN, lnc]

помогло

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;

но как оттуда вывести строку

скажем..

"info":"1234567"
"cod":"privet"

Edit.Text := 1234567/privet

[alex198555]

А кто-нибудь может исходник здесь выложить?

[eFail]

Автор у тебя какая версия инди стоит?У меня просто когда пытаюсь юзать твои изначальный код выдавала ошибку на mmo2.lines.add('cookie1.CookieColle ction.Count: '+inttostr(cookie1.CookieCollection .Count));
говорит что-то типо неизвестный индентификатор!

[Blourid]

а где ты там видишь

"info":"1234567"
"cod":"privet"

я что то не понял

[KWN, lnc]

eFail, вкладка Indy Misc поставь компонент IdCookieManager
Blourid

"info":"1234567"
"cod":"privet"

это на сайте. мне нужно вывести у себя в edit.text := 1234567/privet

[Blourid]

без парсинга точно не обойтись