 |
Delphi ошибка "connection reset by peer" - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
24.11.2010, 00:18
|
#1
|
|
|
|
Разведчик
|
 Регистрация: 24.08.2009
 Сообщений: 8
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Delphi ошибка "connection reset by peer"
Привет всем. Пишу программу - авторегистратор. Нужно послать GET запрос, но при выполнении программы выдает ошибку "connection reset by peer". Продебажил - переменные все нормальные. Вот неработающий фрагмент.
Код:
procedure TForm1.ButtonRegClick(Sender: TObject);
var
id,nmail,mail,npas,pas,nrepas,nquest,notvet,otvet,nname,name,nfemely,femely,nday,day,nyear,npol,xregid,ncap:string;
begin
id:=pos(43, 56);//pos- функция парсинга из html кода нужных значений по координатам
nmail:=pos(30, 66);
npas:=pos(34, 79);
nrepas:=pos(45, 81);
nquest:=pos(31, 106);
notvet:=pos(41, 109);
nname:=pos(30, 112);
nfemely:=pos(30, 114);
nday:=pos(28, 117);
nyear:=pos(28, 124);
npol:=pos(17, 127);
xregid:=pos(53, 144);
ncap:=pos(37, 147);
randomize;
mail:='Vasilij'+inttostr(random(1000000)+100000);
pas:=inttostr(random(10000000)+1000000)+'Mr';
otvet:=inttostr(random(100000));
name:='Mr'+inttostr(random(1000000)+100000);
femely:='Ms'+inttostr(random(1000000)+100000);
day:=inttostr(random(30));
memohtml.Lines.Text:=http.Get('http://*****/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');
//короче нельзя, пост не катит на этом сайте.
end;
В http.request все выставлено как словил в сниффере, кроме кодировки.
Самое главное, что если сгенерированую ссылку вставить в браузер то все правильно работает. Версия delphi 7. В гугле ничего толкового не нашел. Прошу дельного совета.
|
|
|
24.11.2010, 01:56
|
#2
|
|
|
|
Сержант
|
 Регистрация: 20.07.2010
 Сообщений: 138
 Популярность: 26409
 Сказал(а) спасибо: 53
Поблагодарили 567 раз(а) в 198 сообщениях
|
Re: Delphi ошибка "connection reset by peer"
Установи нормальный юзер агент и рефферер - остальное оставь пустым. Включи редиректы. Если не поможет подключи куки и сначала делай запрос на страницу входа (регистрации), чтобы забрать куки, а потом уже регай. Если 7 делфи - обнови Indy.
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
|
|
|
24.11.2010, 02:08
|
#3
|
|
|
|
Разведчик
|
 Регистрация: 24.08.2009
 Сообщений: 8
 Популярность: 10
 Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Delphi ошибка "connection reset by peer"
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 13:17.
|
 |