при отправки post получаю socket error 10054

[Smagulov85]

всем привет!! делаю post запрос через idhttp1 (Delphi XE2 indy 10.5.8.0)

IdHTTP1.Post('сайт',LoginInfo,Response);

debuger выдает ошибку этой строке, как избавиться не понимаю
socket error 10054 connection reset by peer

[Человек_Борща]

сервер режет соединение с вами, а не вы с ним. Может не так подключились может данные не те. В любом случае проблема у вас.

[Smagulov85]

Сообщение от Человек_Борща

сервер режет соединение с вами, а не вы с ним. Может не так подключились может данные не те. В любом случае проблема у вас.

побывал на win xp delphi xe3 через прокси. все работает и парсит нормально получаю данные. а на win 7 delphi xe2 без прокси выдает ошибку

[Smagulov85]

Ошибку нашел!! но теперь в место ответа post получаю такой символ

‹

код проги такой

var
Form1: TForm1;
Http : TidHttp;
CM : TidCookieManager;
Data : TStringList;
StrPage, UserID, UserName, s, str, s1, SId, SId_asp, ss, co, co_asp, asp_ss,uid_ss, co_uid, uid : String;
i : integer;
Response: TStringStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
idHTTP1.Get('http://www.russianpost.ru/rp/servise/ru/home/postuslug/trackingpo');
IdHTTP1.Response.RawHeaders.Extract ('Set-Cookie', Memo1.Lines);//получаем куки
s:=Memo1.Text;
// копируем куки
Sid:='SessionId=';

if Pos(SId, s)=0 then begin
messagedlg('Ошибка: Невозможно проверить обновление! Проверьте подключение к интернету.' ,mtError, [mbOK],0)
end else begin
ss:=copy(s,pos('=',s)+1,length(s));
co:=copy(ss,0,pos('; path=/',ss)-1);
Edit1.Text:=co;
end;
SId_asp:='ASP.NET_SessionId';
if Pos(SId_asp, s)=0 then begin
messagedlg('Ошибка: Невозможно проверить обновление! Проверьте подключение к интернету.' ,mtError, [mbOK],0)
end else begin
asp_ss:=copy(s,pos('_SessionId=',s) +11,length(s)); //
co_asp:=copy(asp_ss,0,pos('; path=/; HttpOnly',asp_ss)-1);
Edit2.Text:=co_asp;
end;
uid:='HttpOnly';
if Pos(uid, s)=0 then begin
messagedlg('Ошибка: Невозможно проверить обновление! Проверьте подключение к интернету.' ,mtError, [mbOK],0)
end else begin
uid_ss:=copy(s,pos('uid=',s)+4,leng th(s)); //
co_uid:=copy(uid_ss,0,pos('; expires',uid_ss)-1);
Edit3.Text:=co_uid;
end;

Http := TIdHTTP.Create;
Data := TStringList.Create;
Response := TStringStream.Create;
Http.AllowCookies := true;
Http.HandleRedirects := true;
HTTP.Request.Accept:='text/html, application/xhtml+xml, */*';
HTTP.Request.Referer:='http://www.russianpost.ru/rp/servise/ru/home/postuslug/trackingpo';
HTTP.Request.AcceptLanguage:='ru-RU';
HTTP.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)';
HTTP.Request.ContentType:='applicat ion/x-www-form-urlencoded';
HTTP.Request.AcceptEncoding:='gzip, deflate';
HTTP.Request.Host:='www.russianpost .ru';
HTTP.Request.ContentLength:=325;
HTTP.Request.CustomHeaders.Text:='C ookie: SessionId='+Edit1.Text+';ASP.NET_Se ssionId='+Edit2.Text+';uid='+Edit3. Text;
HTTP.Request.Connection:='Keep-Alive';
HTTP.Request.CacheControl:='no-cache';
Data.Add('OP=');
Data.Add('PATHCUR=rp/servise/ru/home/postuslug/trackingpo');
Data.Add('PATHFROM=');
Data.Add('WHEREONOK=');
Data.Add('ASP=');
Data.Add('PARENTID=');
Data.Add('FORUMID=');
Data.Add('NEWSID=');
Data.Add('DFROM=');
Data.Add('DTO=');
Data.Add('CA=');
Data.Add('CDAY=18');// это число меняется я пока меняю его в ручную
Data.Add('CMONTH=09');// это число меняется я пока меняю его в ручную
Data.Add('CYEAR=2012');// это число меняется я пока меняю его в ручную
Data.Add('NAVCURPAGE=');
Data.Add('SEARCHTEXT=');
Data.Add('searchAdd=');
Data.Add('PATHWEB=RP/INDEX/RU/Home');
Data.Add('PATHPAGE=RP/INDEX/RU/Home/Search');
Data.Add('search1=');
Data.Add('BarCode=19112254797938');
Data.Add('searchsign=1');
Data.Add('entryBarCode=');
Http.Post('http://www.russianpost.ru/resp_engine.aspx?Path=rp/servise/ru/home/postuslug/trackingpo', Data, Response);
memo2.Text:= UTF8Encode(Response.DataString);
//Memo2.Lines.Text := idHttp1.Response.RawHeaders.GetText ;
finally
Response.Free;
Data.Free;
Http.Free;
end;
end;

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

для проверки 19112254797938 - рабочий

скрины снифера

http://f1.s.qip.ru/gKJ8LlDb.jpg

http://f1.s.qip.ru/gKJ8LlDc.jpg


P.s знаю код ужасный, не надо критики.... пишу как могу