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

[spamer]

Если честно даже и не знаю, из-за чего оно не хочет у вас работать, у меня все отлично. Но хотя могу предположить, вот этот код

PHP код:

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" 


это кусок html из страницы авторизации (мне кажется на эту страницу даже переходит при неправильном вводе логина(эл.почта) и пароля), следовательно проверьте на всякий случай правильность ввода логина(эл.почта) и пароля.
Вот еще прикреплю свой пример проекта:

[Alex2009]

Все равно не ваш исходник не мой не работат(((
Пароль и емаил проверил,все правильно.
Но все равно эта ошибка и ссылается на IdHttp.pas
код

 raise EIdHTTPProtocolException.CreateError(AResponseCode, FHTTP.ResponseText,

[Alex2009]

Если убрать то ошибки нету и авторизируется без проблем

        IdHTTP1.Get(pic, ms);
        ms.Position := 0;
        jpeg.LoadFromStream(ms);

значит ошибка тут.

[W0LF]

Да, хотя на Delphi 2010 у меня все прекрасно работает, а на Delphi 7 - неработает, тоже что и у Alex2009... Странно как-то.

[raxp]

...пожалуй тогда и я уточню ...пробовал на delphi6, delphi7se, turbo-delphilite portable, везде працюэ/

[Alex2009]

Может с самой Delphi что то???

[spamer]

У меня delphi7 все отлично работает, уже и знакомым дал потестить и тоже у всех работает...и у raxp работает...скорее всего что-то может у вас с Делфи...

[kSower]

'http://vkontakte.ru/login.php?email='+email+'&pass='+pa ss+'&HTTP/1.0'
думаю вы уловите суть))) если нет, то помогу

[SoftKoc]

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

У меня delphi7 все отлично работает, уже и знакомым дал потестить и тоже у всех работает...и у raxp работает...скорее всего что-то может у вас с Делфи...

Скачал исходник.
У меня Delphi 7.
Windows XP, SP3.
Авторизация проходит, потом при

        IdHTTP1.Get(pic, ms);
        ms.Position := 0;
        jpeg.LoadFromStream(ms);

Вылетает ошибка

[Lemo]

Допустим я авторизировался, и потом хочю програмно посетить группу

  IdHTTP1.get('http://vkontakte.ru/clubхххххх');

Но когда я захожу в статистику группы просмотры не изменились ... Мб неправильно get оформил?
Полный код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    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:string;
      error:boolean;
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;
   Memo1.Lines.Add('Авторизация удалась');
  end
 else
  Memo1.Lines.Add('Авторизация не удалась');

  IdHTTP1.get('http://vkontakte.ru/clubххххххх');

 Data.Free;
end;

end.