post запрос?

[Vikenty]

var
s: TStringList;
begin
s:=TStringList.create;
s.add('post_password=123');
Memo1.Lines.Text:=IdHTTP1.Post('http://osaitaxiblog.blog.tut.by',s);
end;

[Stilet]

в каком смысле не пускают?

Иду по ссылке и сразу попадаю на страницу: Защищено: тест
Нет там никаких кнопок и прочих полей ввода.

[zumm]

качаем программу Paros, смотрим вид поста, отправляем тоже самое через инди...

[codermoder]

Сообщение от Vikenty

var
s: TStringList;
begin
s:=TStringList.create;
s.add('post_password=123');
Memo1.Lines.Text:=IdHTTP1.Post('http://osaitaxiblog.blog.tut.by',s);
end;

в мемо1 приходит страница с вводом пароля..вы пробывали? у вас работает?

[RuVarez]

Не работает потому что Post - это процедура!!!

[codermoder]

Сообщение от RuVarez

Не работает потому что Post - это процедура!!!

ну так объясни как сделать правильно?

[RuVarez]

вернуть в memo не получится (смотреть надо на параметры!).
Ошибка из за того что вы передаете не все параметры ,тем более
это процедура)

[codermoder]

Сообщение от RuVarez

вернуть в memo не получится (смотреть надо на параметры!).
Ошибка из за того что вы передаете не все параметры ,тем более
это процедура)

и что теперь делать?
мне нужно с помощью idhttp (webbrowser1 не катит, хотя у меня там все получилось) загрузить весь текст который находится под поролем, т.е. мне нужно каким-то образом ввести пароль и получить все что "внутри"

[RuVarez]

Я не Веб программист!Я просто указал на те ошибки, которые ты не заметил!!

[codermoder]

посмотрел через сниффер
идут такие запросы:

post_password=123
Submit=Подтвердить

делаю так:

var
  Form1: TForm1;
  s: TStringList;

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=TStringList.create;
s.add('post_password=123');
s.add('Submit=Подтвердить');
Memo1.Lines.Text:=UTF8Decode(IdHTTP1.Post('http://osaitaxiblog.blog.tut.by/',s));end;

end.

ничего не выходит, нужно в мемо1 получить исходный код страницы уже без формы ввода пароля... help me!!!