Вконтакте и Delphi

[Onekey]

Вот такой вопросик, как сделать авторизацию вконтакте? Тоесть юзер вводит логин и пароль в компоненты едит1 и 2 соответственно и в компоненте веббровсер загружается его сраничка контакта.

[AlDelta]

IdHttp + IdCookieManager + Общие принципы авторизации на удаленных сайтах = авторизация вконтакте

[Lemo]

Webbrouser1.Navigate('http://vkontakte.ru/login.php?email=ваш_логин&pass=пароль');

[Alex Cones]

Офф:

сраничка контакта.

Верно подмечено.

Сам использую авторизацию через WebBrowser + fillformstr

fillFormStr(WebBrowser1, 'email', SA[BigNum]);
       fillFormStr(WebBrowser1, 'pass', SP[BigNum]);

function FillFormStr(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
    begin
      Exit;
    end;
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
    begin
      FormItem := WebBrowser.OleObject.Document.forms.Item(I);
     for j := 0 to FormItem.Length - 1 do
      begin
        try
        if FormItem.Item(j).Name = FieldName then
          begin
            FormItem.Item(j).Value := Value;
            Result := True;
          end;
        except
          Exit;
        end;
      end;
    end;
end;