Проблема с постом через delphi

[ananasios2010]

Доброго времени суток, уважаемые пользователи. Я в делфи как бы сказать новенький, но уже что то пытаюсь что то разбираюсь, возникла такая задача передо мной:
1. Авторизируемся на форуме, и допустив какой нибудь теме(своей) отвечаем.

Авторизацию сделал следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var
silka,fff: string;
data,mes: tstringlist;
begin
silka:=('http://www.sibnet.ru/profile.php');
data:=tstringlist.Create;
data.Add('use=login');
data.Add('login='+edit1.Text);
data.Add('password='+edit2.Text);
data.Add('x=15');
data.Add('y=13');
fff:=idhttp1.Post(silka, data);
if pos('logout', fff)<>0 then
showmessage('Успешная авторизация!');
else
showmessage('Авторизация не удалась!')
end;

далее мне требуется перейти в свою тему и нажать кнопку ответ,

if pos('logout', fff)<>0 then
showmessage('Успешная авторизация!');
silka:=('http://forum.sibnet.ru/index.php?act=post&do=reply_post&f=46&t=580222');

как мне сделать чтобы сообщение допустим из какого нибудь memo1.text запостить под своим логином в данной теме... Заранее спс за помощь.

[Pein95]

сниффером проверте что куда отрпавляетса когда вы создаете пост на сайте и сделайте тоже самое в своей программе

[ananasios2010]

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

сниффером проверте что куда отрпавляетса когда вы создаете пост на сайте и сделайте тоже самое в своей программе

пробывал сниффером, все делал что снифалось, естественно message забивал другое, но почему то пост на форуме не появлялся, возможно потому что терялась авторизация....

[Den7656]

Ты прикрутил TIDCoockiemanager ?
Посмотри в сниффере, может там отправляестся GZIP.
Если че, прикрути его к инди тоже.

[ananasios2010]

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

Ты прикрутил TIDCoockiemanager ?
Посмотри в сниффере, может там отправляестся GZIP.
Если че, прикрути его к инди тоже.

куки я не прикручивал, можно по конкретнее как прикрутить куки ?

[ananasios2010]

люди добрые объясните как авторизоваться на живом примере

http://forum.myttk.ru/

уже всю голову сломал, не хочет и все (((((

[)Игнат(]

Прикручиваются они так:
Кидаешь на форму TidCookieManager с вкладки Indy Misc
idHTTP1.CookieManager:=idCookieMana ger1;
idHTTP1.AllowCookies:=true;

[ananasios2010]

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

Логинюсь:

procedure TForm1.Button1Click(Sender: TObject);
var name, psswd, click, mess: Integer;
begin
if CheckBox1.Checked=true then
begin
WebBrowser1.Navigate('http://...........'); //Загружаем страницу в веб браузер

//Ожидаем полной загрузки страницы после чего логинимся
while WebBrowser1.ReadyState<>4 do
Application.ProcessMessages;

//Вводим имя
for name:=0 to WebBrowser1.OleObject.document.all. tags('input').length-1 do
begin
if WebBrowser1.OleObject.document.all. tags('input').item(name).Name='vb_l ogin_username' then
WebBrowser1.OleObject.document.all. tags('input').item(name).value:='св ой ник на форуме';
end;

//Вводим пароль
for psswd:=0 to WebBrowser1.OleObject.document.all. tags('input').length-1 do
begin
if WebBrowser1.OleObject.document.all. tags('input').item(psswd).Name='vb_ login_password' then
WebBrowser1.OleObject.document.all. tags('input').item(psswd).value:='с вой пароль на форуме';
end;

//Кликаем по кнопке вход
for click:=0 to WebBrowser1.OleObject.document.all. tags('input').length-1 do
begin
if WebBrowser1.OleObject.document.all. tags('input').item(click).value='Lo g in' then
WebBrowser1.OleObject.document.all. tags('input').item(click).click;
end;

все логиниться прекрасно, далее мне нужно перейти по ссылки для добавление поста в определенной теме...

webbrowser1.navigate(http://...................)

он у меня переходит и показывает что я не залогинен, мучался вроде испровил данную проблему вставкой:

sleep(100)
webbrowser1.navigate(http://...................)
sleep(100)

теперь ищем форму для сообщения:

for mess:=0 to WebBrowser1.OleObject.document.all. tags('textarea').length-1 do
begin
if WebBrowser1.OleObject.document.all. tags('textarea').item(mess).Name='m essage' then
WebBrowser1.OleObject.document.all. tags('input').item.value(mess):='ту т свое сообщение';
end;

форма не заполняется, перепробывал уже все(что умею), если вешаю допустим

for mess:=0 to WebBrowser1.OleObject.document.all. tags('textarea').length-1 do
begin
if WebBrowser1.OleObject.document.all. tags('textarea').item(mess).Name='m essage' then
WebBrowser1.OleObject.document.all. tags('input').item(mess).value:='ту т свое сообщение';
end;

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

Люди добрые помогите пожалуйста как сделать чтобы залогинилось перешло заполнилось... заранее спасибо!

[Пепел Феникса]

далее мне нужно перейти по ссылки для добавление поста в определенной теме...

вы что сразу переходите?
а событие OnDocumentComplete для кого?

[ananasios2010]

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