POST запрос

[DeDoK]

немогу правильно сформировать пост запрос через idHTTP
вобщем страница с которой работаем - http://wen.ru/gb/?uid=1&form=1
пишу такой код

procedure TForm1.Button2Click(Sender: TObject);
var
Captcha:TMemoryStream;
s,CapchaID, sec_cap:string;
gif : TGifImage;
begin
gif := TGIFImage.Create;
s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1');
CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1);
sec_cap:=(Copy(CapchaID,pos(',',CapchaID)+1,length(CapchaID)-pos(',',CapchaID)+1));
captcha:=TMemoryStream.Create;
idHTTP1.Get('http://wen.ru/secure/gif.php?'+CapchaID, captcha);
captcha.SaveToFile('captcha.gif');
Image1.Picture.LoadFromFile('captcha.gif');
Captcha.Free;
gif.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
captcha, name, s, CapchaID, sec_cap : string;
params:tstringlist;
begin
s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1');
CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1);
sec_cap:=(Copy(CapchaID,pos(',',CapchaID)+1,length(CapchaID)-pos(',',CapchaID)+1));
captcha:=Edit2.Text;
name:=edit3.Text;
params:=TStringList.Create;
try
params.Add('author='+name);
params.Add('message'+ sec_cap +'='+Memo1.Lines.Text);
params.Add('tr=n');
params.Add('uid='+Edit1.Text);
params.Add('add=1');
params.Add('code'+ sec_cap +'='+captcha);
params.Add('cid=7257959');
params.Add('lng=ru');
idhttp1.Post('http://wen.ru/gb/',params);
finally
params.free;
end;
end;

но в post запросе где ошибаюсь с параметрами и ничего не работает. Подскажите пожалуйста - с какими параметрами я ошибаюсь

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

<go method='post' href='http://wen.ru/gb/'><postfield name='author' value='$(author)'/>
<postfield name='message' value='$(message8522)'/>
<postfield name='tr' value='$(tr)'/>
<postfield name='uid' value='1'/>
<postfield name='add' value='1'/>
<postfield name='code' value='$(code8522)'/>
<postfield name='cid' value='7653187'/>
<postfield name='lng' value='ru'/>
</go>

как я понял вот поля Post запроса...
то есть эти все игры со второй частью капчи лишь для того чтоб запутать(что и получилось)
+попробуйте просниферить


вот я просниферил...

author=%D1%85%D0%B7
message=%D1%82%D0%B5%D1%81%D1%82
tr=n
uid=1
add=1
code=7026
cid=1709508
lng=ru

автор=хз
сообщение=тест


кстати там еще первая часть капчи нужна(а не вторая)

[DeDoK]

а как вы получаете первую часть капчи?
пробую
(Copy(CapchaID,pos(',',CapchaID)+1, length(CapchaID)-pos(',',CapchaID)-1));
получаю бред.
я так понимаю, что копируем из CapcthaID, считаем от запятой, и копируем первые символы. как с помощью Length считать с самого первого символа?

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

Copy(CapchaID,1, pos(',',CapchaID)-1)

примерно так....писал здесь....возможно -1 не нужно

[DeDoK]

не работает(((((( что делать??? пишу так

procedure TForm1.Button1Click(Sender: TObject);
var
captcha, name, s, CapchaID, sec_cap : string;
params:tstringlist;
begin
s:=idHTTP1.Get('http://wen.ru/gb/?uid='+Edit1.Text+'&form=1');
CapchaID:=Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),pos('"',Copy(s,pos('<img src="/secure/gif.php?',s)+length('<img src="/secure/gif.php?'),15))-1);
sec_cap:=Copy(CapchaID,1, pos(',',CapchaID)-1);
captcha:=Edit2.Text;
name:=edit3.Text;
params:=TStringList.Create;
try
params.Add('author='+name);
params.Add('message='+Memo1.Lines.Text);
params.Add('tr=n');
params.Add('uid='+Edit1.Text);
params.Add('add=1');
params.Add('code='+captcha);
params.Add('cid='+sec_cap);
params.Add('lng=ru');
idhttp1.Post('http://wen.ru/gb/',params);
finally
params.free;
end;
end;

[DeDoK]

пробовал через TWebBrowser - тот вобще ошибку выбивает(((((
писал так:

procedure TForm1.Button3Click(Sender: TObject);
var
html_elements: OleVariant;
i: integer;
s : string;
Begin
WebBrowser1.Navigate('http://wen.ru/gb/?uid=1&form=1');
html_elements:=WebBrowser1.OleObject.Document.forms.item(0).elements;
for i:=0 to (html_elements.length -1) do
begin
s:='Имя элемента: ' + html_elements.item(i).name +
   '|Значение элемента: ' + html_elements.item(i).value +
   '|Имя тега: '+ html_elements.item(i).tagName +
   '|Тип: ' + html_elements.item(i).type;
   Memo1.Lines.Add(s);
end;
end;
но он вылетает по нажатию кнопки. хотя с другими сайтами работает. подскажите где я могу ошибатся? вроде ведь в post запросе все параметры указал верно

[DeDoK]

Ребята ну помогите пожалуйста. Очень надо