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

[spamer]

Вот полностью рабочий код, только в uses добавь еще Jpeg:

procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
      PageProfile, pic:string;
      error:boolean;
      beginpos, endpos : Integer;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
 IdHTTP1.AllowCookies:=true;
 IdHTTP1.HandleRedirects:=false;
 data:=tstringlist.create;
 data.Add('email=ЛОГИН'); // логин для авторизации
 data.Add('pass=ПАРОЛЬ');  // пароль для авторизации
 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;
   beginpos := Pos('center', PageProfile);
   endpos := PosEx('/>', PageProfile, beginpos + 21);
   pic := Copy(PageProfile, beginpos + 21, endpos - (beginpos + 21));
   Memo1.Lines.Add(pic);

    ms := TMemoryStream.Create;
    jpeg := TJpegImage.Create;
    try
      IdHTTP1.Get(pic, ms);
      ms.Position := 0;
      jpeg.LoadFromStream(ms);
      Image1.Picture.Graphic := jpeg;
    finally
      jpeg.Free; ms.Free;
    end;
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');

 Data.Free;
end;

[Alex2009]

Выбевает ошибку

[raxp]

uses jpeg;

[Alex2009]

Дело в том что я его подключил.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdCookieManager, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, StrUtils, ComCtrls, ExtCtrls, Jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    IdHTTP1: TIdHTTP;
    IdCookieManager1: TIdCookieManager;
    Memo1: TRichEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var data:tstringlist;
      PageProfile, pic:string;
      error:boolean;
      beginpos, endpos : Integer;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.HandleRedirects:=false;
  data:=tstringlist.create;
  data.Add('email=SuperCool'); // логин для авторизации
  data.Add('pass=lehacool');  // пароль для авторизации
  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;
   beginpos := Pos('center', PageProfile);
   endpos := PosEx('/>', PageProfile, beginpos + 21);
   pic := Copy(PageProfile, beginpos + 21, endpos - (beginpos + 21));
   Memo1.Lines.Add(pic);
   ms := TMemoryStream.Create;
   jpeg := TJpegImage.Create;
    try
        IdHTTP1.Get(pic, ms);
        ms.Position := 0;
        jpeg.LoadFromStream(ms);
        Image1.Picture.Graphic := jpeg;
    finally
        jpeg.Free; ms.Free;
    end;
  end
 else
        Memo1.Lines.Add('Авторизация не удалась');
        Data.Free;
end;


end.

[raxp]

а у меня работает, инди тибурион 10.5.7

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, Buttons,StdCtrls,strutils,IdMultipartFormData,
  IdGlobalProtocols,ExtDlgs,shellapi, ExtCtrls,jpeg;

процедура та же, что дал Денис

[Alex2009]

инди тибурион 10.5.7 дай ссылку на него плиз.

[raxp]

судя по ошибке, дело не в нем... у вас там в качестве аватарки какой файл загружен? jpeg-ли?

[Alex2009]

У меня jpg файл,размер 200х400.

[W0LF]

У меня тоже, Delphi 7, Indy 10.5.* и jpeg в uses есть...

[Alex2009]

Теперь выбивает такую ошибку <html> и в мемо пишет

cellspacing=7 border=0 width="80%">
   <tr>
    <td class="ta_r">
     <span class="grey">E-mail или Логин:</span>
    </td>
    <td style="padding: 0px">
     <input class="inputText" type="text" name="email" value="" id="email" size="25" style="margin: 0px"