[Помогите!] Авторизация Вконтакте

[codiBB]

Сильно не пинайте, но сколько я не перерыл и не перелопатил google с яшей, ничего работающего не нашел. В делфи я не силен, не мог бы кто выложить готовый код.

[codiBB]

Цитата: Сообщение от masych [Ссылки могут видеть только зарегистрированные пользователи. ] Попробуй.

Ты сам то пробовал?


Вот кое что нагуглил:

Цитата: var s, c, remixchk, remixsid: string; i: Integer; http: TIdHTTP; begin http := TIdHTTP.Create; // Москировка под оперу http.AllowCookies := False; http.HandleRedirects := False; http.Request.UserAgent := 'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01'; // Отлавливаем редирект. ВАЖНО!!! Иначе не установятся куки try // Отправляем Логин и Пароль s := http.Get('http://vkontakte.ru/login.php?m=1&email=' + Edit1.Text + '&pass=' + Edit2.Text); except // Если редирект - Редиректим if http.ResponseCode = 302 then begin c := http.Response.RawHeaders.Text; i := PosEx('remixchk', c) + 9; remixchk := Copy(c, i, PosEx(';', c, i)-i); i := PosEx('remixsid', c) + 9; remixsid := Copy(c, i, PosEx(';', c, i)-i); http.Request.CustomHeaders.Text := 'Cookie: remixchk=' + remixchk + '; remixsid=' + remixsid; s := http.Get('http://vkontakte.ru' + http.Response.Location); end else begin ShowMessage('Ошибка авторизации'); end; end; // Авторизация пройдена // Для проверки загрузим последние Личные Сообщения s := http.Get('http://vkontakte.ru/mail.php'); i := 1; while PosEx('new messageBody', s, i) <> 0 do begin i := PosEx('new messageBody', s, i) + 17; ListBox1.Items.Add(Copy(s, i, PosEx('"', s, i) - i)); end; http.Free;

Но при попытке компиляции ловлю ошибку в этом месте:
http := TIdHTTP.Create;


Кто, что может подсказать?

Добавлено через 14 часов 22 минуты
Нашел проблему. Тему del, можно.

[kjksvkew6]

Цитата: Сообщение от codiBB Но при попытке компиляции ловлю ошибку в этом месте: http := TIdHTTP.Create; Кто, что может подсказать?

исправь

http := TIdHTTP.Create;
на
http := TIdHTTP.Create(nil);

[Innova]

Цитата: Сообщение от codiBB Ты сам то пробовал? Но при попытке компиляции ловлю ошибку в этом месте: http := TIdHTTP.Create; Кто, что может подсказать? Добавлено через 14 часов 22 минуты Нашел проблему. Тему del, можно.

http := TIdHTTP.Create;
измени на:
http := TIdHTTP1.Create;