IdHTTP1 некорректно работает

[nike-p]

Доброго времени суток, третий день читаю форум, не могу разобраться и все, в общем суть проблемы:
Пытаюсь залогиниться на сервер и взять с него страницу, авторизация проходит успешно но вот страница поче-му то не выводиться. Вот код:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
Button1: TButton;
Memo1: TMemo;
IdCookieManager1: TIdCookieManager;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;

procedure TForm1.Button1Click(Sender: TObject);
var
LoginInfo: TStrings;
Response: TStringStream;
begin
LoginInfo := TStringList.Create;
Response := TStringStream.Create('');
LoginInfo.Clear;
LoginInfo.Add('email=<мыло>');
LoginInfo.Add('pass=<пароль>');
memo1.Lines.Clear;
IdHTTP1.Host:='vkontakte.ru';
IdHTTP1.Port:=80;
IdHTTP1.Post('/login.php',LoginInfo,Response);
Memo1.Lines.Add(Response.DataString );
Response.Free;
LoginInfo.Free;
end;
end.
Заранее спасибо.

[Ring0Sn]

Куки надо подрубать:

...
uses
 IdCookieManager, IdCookie;
...
var CM : TIdCookieManager;
begin
  CM := TidCookieManager.Create(IdHTTP1);
  IdHTTP1.AllowCookies := True;
  IdHTTP1.CookieManager := CM;
  IdHTTP1.HandleRedirects := True;
...

[nike-p]

добавил вышеприведенный код, но это не помогло спасти ситуацию:
когда забираю код страницы, он очищает мемо и переводит каретку на новую строку. Самого кода страницы так и нет.

[Ring0Sn]

Как выяснилось дело оказалось в индеских либах, точнее в 'IdCookieManager'
смотри аттач, теперь должно полегчать...

[nike-p]

Скачать почему то не могу, выкидывает на страницу авторизации, может то что зарегался только вчера?
Ring0Sn, не мог бы ты атач на мэйл кинуть, или ссылку какую в личку, заранее большое спасибо.

[Ring0Sn]

Держи (rapidshre.ru)
надеюсь тут проблем недолжно быть, на мыло немогу скинуть, т.к оно не отображаетсья тут...

[nike-p]

спасибо большое, только вот тут начались проблемы с делфи: унди старая стоит, скачал indy 10, попробовал установить, вроде поставился, а все равно не находит компоненты

[Ring0Sn]

Ну во первых это уже наверное другая тема...
А по существу, то прежде чем новую ставить, надо было хотябы старую удалить

[nike-p]

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

[Ring0Sn]

Да чтож там такого турдного то?
Заходишь в Component -> Install Packeges
В появившемся окне ищещь и удалешь все пакеты Indy
Закрываешь среду, и устанавливаешь компоненты...
Если 7 делфи, то могу предложить автоматический инсталлятор Indy10
(тут)