[Delphi] Авторизация ВКонтакте, ошибка... нужна помощь.

PHP:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
http: TIdHTTPEx;

begin
http := TIdHTTPEx.Create(Form1);
http.Request.UserAgent :='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
try
s := http.GetEx('http://vkontakte.ru/login.php?m=1&email=' + Edit1.Text +'&pass=' + Edit2.Text);
except
if http.ResponseCode = 302 then
s := http.GetEx('http://vkontakte.ru' + http.Response.Location);
end;
if Pos('logout', s)<>0 then
Memo1.Lines.Add('Авторизация удалась')
else
Memo1.Lines.Add('Авторизация не удалась');
http.Free;
end;


end.

Что тут не так? Раньше делал и всё нормально было, сейчас же пишет ошибку "Socket Error #11004".

 

vk.com вместо vkontakte.ru

 

Помогло, а я то и не заметил... спасибо большое, и как всегда именно вы и помагаете =)

 

А теперь следующий вопрос, есть сайт с виджетом комментариев вконтакте, и мне надо следующее > Авторизация ВКонтакте > Переадресация на страницу с комментариями вконтакте > И на этой странице пишется комментарий из Memo3 в программе, как это сделать? Нужно ли парсить виджет комментариев ВК или как вообще лучше сделать? Интересует только то чтобы с Memo3 автоматически писался комментарий по ссылке из Memo2

 

Ха... шустрый малый

 

C начало авторизуйся, с кукисами. потом делай делай программно редирект на http://vk.com/widget_comments.php?app=Тут ваш id виджета&url=Тут ваша ссылка на сайт
Лови запрос на отправку сообщение чарликом. И потом дело за мылм

 

PHP:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    IdHTTP1: TIdHTTP;
    Memo2: 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;
s: string;
http: TIdHTTPEx;

begin
http := TIdHTTPEx.Create(Form1);
http.Request.UserAgent :='Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.7.62 Version/11.01';
try
s := http.GetEx('http://vk.com/login.php?m=1&email=' + Edit1.Text +'&pass=' + Edit2.Text);
except
if http.ResponseCode = 302 then
s := http.GetEx('http://vk.com' + http.Response.Location);
end;
if Pos('logout', s)<>0 then
Memo1.Lines.Add('Авторизация удалась')
else
Memo1.Lines.Add('Авторизация не удалась');
http.Free;
begin
IdHTTP1.AllowCookies := true;
IdHTTP1.HandleRedirects := true;
data:=tstringlist.create;
data.Add('id=113601');
data.Add('num=1');
data.Add('sign=1dd88c676cfa9e3ecd9b62636dbc4abb');
data.Add('appidnow=0');
try
s := IdHTTP1.Post('http://vk.com/widget_comments.php?app=2024524&url=http://fishki.net/comment.php?id=113601', data);
except

end;
end;
end;

end.

И по другому запросу пробовал и не получается, снифер показывает следующее..

По запросу "http://vk.com/al_widget_comments.php"

PHP:

act=a_post
al=1
app=2024524
export=
hash=c75fbe3f23819e7827
limit=30
post=1222

По запросу "http://fishki.net/vk_comments.php"

PHP:

id=113601
num=1
last=Прикольно
sign=1dd88c676cfa9e3ecd9b62636dbc4abb
appidnow=0

Прошу помощи.