Ошибка при неаыторизации вконтакте (Delphi)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by u4iteor, 17 Jul 2010.

  1. u4iteor

    u4iteor Member

    Joined:
    14 Feb 2010
    Messages:
    0
    Likes Received:
    8
    Reputations:
    0
    есть код на дельфи :(для баттона)
    ...
    procedure TForm1.Button1Click(Sender: TObject);
    var data:tstringlist;
    PageProfile:string;
    error:boolean;

    begin
    IdHTTP1.AllowCookies:=true;
    IdHTTP1.HandleRedirects:=false;
    data:=tstringlist.create;
    data.Add('act=login');
    data.Add('expire=1');
    data.Add('vk=');
    data.Add('email=//////@rambler.ru'); // логин для авторизации
    data.Add('pass=//////'); // пароль для авторизации
    data.Add('success_url=http://vkontakte.ru/share.php?act=logged');
    error:=false;
    try
    PageProfile:=IdHTTP1.Post('http://login.vk.com/', 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=1');
    data.Add('to=');
    IdHTTP1.HandleRedirects:=true;
    try
    IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data);
    except
    end;
    PageProfile:=IdHTTP1.get('http://vkontakte.ru');
    Edit1.Text:='Авторизация удалась';
    end
    else
    ShowMessage('неверно');

    Data.Free;
    end;
    end.
    ...
    при верном емайл/пасс все ок
    При неверном: ошибка:
    В дельфи совсем недавно, так что многого не знаю. :)
     
  2. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    Убери галочку Intergrated debugging в окне Tools => Debugger Options... и можешь запускать прожку. Позже не забудь восстановить ее.
    Исключение, которое у тебя вызывается есть на самом деле нормальным.
     
  3. u4iteor

    u4iteor Member

    Joined:
    14 Feb 2010
    Messages:
    0
    Likes Received:
    8
    Reputations:
    0
    Извините, забыл о гугле=)
    Chrome~, спс!
    del temky