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

[codiBB]

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

[codiBB]

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


Вот кое что нагуглил:
var
s, c, remixchk, remixsid: string;
i: Integer;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
// Москировка под оперу :)
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := False;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := False;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] :=
'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
// Отлавливаем редирект. ВАЖНО!!! Иначе не установятся куки
try
// Отправляем Логин и Пароль
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]' + Edit1.Text +
'&pass=' + Edit2.Text);
except
// Если редирект - Редиректим
if [Ссылки могут видеть только зарегистрированные и активированные пользователи] = 302 then
begin
c := [Ссылки могут видеть только зарегистрированные и активированные пользователи]
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);
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'Cookie: remixchk=' + remixchk +
'; remixsid=' + remixsid;
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]' + [Ссылки могут видеть только зарегистрированные и активированные пользователи]);
end
else
begin
ShowMessage('Ошибка авторизации');
end;
end;
// Авторизация пройдена

// Для проверки загрузим последние Личные Сообщения
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]');
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 := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]


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

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

[kjksvkew6]

Но при попытке компиляции ловлю ошибку в этом месте:
http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]


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


исправь

http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
на
http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);

[Innova]

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

Но при попытке компиляции ловлю ошибку в этом месте:
http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]


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

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


http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
измени на:
http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
:agreed: