Авторегистратор через Get

[stasones]

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

zapros:='http://tel.mail.ru/cgi-bin/reg?ID='+id+'&Count=1&back=%2Fcgi-bin%2Ffolders&browserData=NoJS&'+nmail+'='+mail+'&RegistrationDomain=mail.ru&'+npas+'='+pas+'&'+nrepas+'='+pas+'&Password_Question=%C4%E5%E2%E8%F7%FC%FF+%F4%E0%EC%E8%EB%E8%FF+%EC%E0%F2%E5%F0%E8&'+nquest+'&'+notvet+'='+otvet+'&'+nname+'='+name+'&'+nfemely+'='+femely+'&'+nday+'='+day+'&BirthMonth=2&'+nyear+'=1990&'+npol+'=1&x_reg_id='+xregid+'&security_image_id=&'+ncap+'='+captha.text+'&B1=%D0%E5%E3%E8%F1%F2%F0%E0%F6%E8%FF';

И выводит ошибку Not Found. Ту же сгенерированную ссылку копирую в браузер и все нормально регестрируется!

Ссылка получается такая:

http://tel.mail.ru/cgi-bin/reg?ID=lo90sa3i&Count=1&back=%2Fcgi-bin%2Ffolders&browserData=NoJS&x_e138b6a1d5f73dac=Vasilij859611&RegistrationDomain=mail.ru&x_ec3cee9c9910c92d=8107993Mr&x_ad043c7694366828=8107993Mr&Password_Question=%C4%E5%E2%E8%F7%FC%FF+%F4%E0%EC%E8%EB%E8%FF+%EC%E0%F2%E5%F0%E8&x_27e32c116b852741&x_1ab1093e7d5cb509=81364&x_f0f7abab2d686b9f=Mr836449&x_f670b9068121daa5=Ms113779&x_29738faca01ebb32=2&BirthMonth=2&x_cc496464817477ed=1990&x_f13145b7d741e0c5=1&x_reg_id=4hdd5M0y&security_image_id=&x_48a27f3b4a5d79cf=Em 6x 6a&B1=%D0%E5%E3%E8%F1%F2%F0%E0%F6%E8%FF

Куки менеджер подключен, включен, хендл редирект включен. Так тоже не работает(и в браузере):

zapros:=TIdURI.URLEncode(zapros)

Прошу совета!

[dlauser]

Попробуй это:

zapros:=TIdURI.URLEncode(zapros)

заменить на это:

uses httpapp

begin
httpencode(zapros);

[BDA]

Попробуйте связку Charles+Firefox
Перехватите get запрос и посмотрите ваш request (вроде)
вот примерчик

To post some data through http protocol in Delphi you can use TIDHttp component.
TIDHttp has a function Post that takes 2, first parameter is the url where you wanna post data and the second is the data you need to post.
The first parameter of Post function is a string and the second one is a TStringList.

Delphi sample code to post data through http. First put in the uses clause IdHTTP

function PostData:string;
var param:TStringList;
valid:boolean;
url,text:string;
http:TIDHttp;
begin
http := TIDHttp.Create(nil);
http.HandleRedirects := true;
http.ReadTimeout := 5000;
param:=TStringList.create;
param.Clear;
param.Add('parameter1=1');
param.Add('parameter2=2');
param.Add('parameter3=3');
valid:=true;
url:='http://www.examplesite.com/script.php';
try
text:=http.Post(url,param);
except
on E:Exception do
begin
valid:=false;
end;
end;
if valid then
PostData:= text
else
PostData := '';
end;

You can call the function like this:

textPostData := PostData();

This function returns empty string if it was an error posting data, if not it returns the text that is returned from the url that we posted data.

We created a new TIDHttp variable at runtime and put the properties ReadTimeout to 5 seconds(timeout of the connection) and HandleRedirects to true, because the url where we post data can redirect us to other page from where we get the result.

[stasones]

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

Попробуйте связку Charles+Firefox
Перехватите get запрос и посмотрите ваш request (вроде)
вот примерчик

В примере передача значений через пост. С этим проблем нет.
Можно сравнить ссылку, по которой переходит браузер, с исходной через снифер. Чарлез как снифером не пользуюсь. Он больше удобен для подмены запросов..
Спасибо за ответ!