Socket error 10054 connection reset by peer delphi

Socket error 10054 connection reset by peer delphi

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

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;

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 — рабочий

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

Источник

Socket error 10054 connection reset by peer delphi

перестал работать idHTTP

выдает ошибку:socket Error # 10054 Connection reset by peer

раньше все работало. думал это из за делфи кровой, скомпилил на другой машине — такая же проблема. тестил на разных машинах но результат один и тот же. В чем проблема и как исправить?
P.S. На всех машинах, на которых проводились испытания, стоит XP zver

socket Error # 10054 Connection reset by peer

У меня кажется такое же было. Означает мол «Сервер разорвал с вами соединение». Попросту говоря послал вас лесом.

Попробуйте после подобной ошибки такое делать: idHTTP1.Socket.Close;

надо с www писать, тогда гугля будет отдавать страницу
http://www.google.ru/

Без www:
• запрос HEAD долго идёт
• запрос GET нормально

C www:
• запрос HEAD нормально
• запрос GET нормально

Моя программа раз в секунду «тырила» html-страницу с сайта через idHTTP1 (зачем не важно ).
Через некоторое время вместо скачивания страницы вылазало такое окно: «socket Error # 10054 Connection reset by peer».
Заметил я его не сразу: меня у компа долго не было, а после «энного» такого окна программа просто вылетает без следов (а я когда вернулся долго недоумевал — мол кто прогу закрыл в моё отсутствие?).
Стал разбираться что за зверь, выяснилось в справке:

WSAECONNRESET (10054) — Connection reset by peer.
An existing connection was forcibly closed by the remote host. This normally results if the peer application on the remote host is suddenly stopped, the host is rebooted, or the remote host uses a hard close (see setsockopt for more information on the SO_LINGER option on the remote socket.) This error may also result if a connection was broken due to keep-alive activity detecting a failure while one or more operations are in progress. Operations that were in progress fail with WSAENETRESET. Subsequent operations fail with WSAECONNRESET.

Как я понял серверу просто надоело что я всё время «тырю» страницу и он меня послал — «Удаленный хост принудительно разорвал существующее подключение.».

Так что эта ошибка зависит не сколько от программы, сколько от сервера. Я её вот таким финтом частично «вылечил», если так можно выразиться:

Источник

Socket error 10054 connection reset by peer delphi

INDY 10.5.1 (Delphi6 sp3)

try
s:=IdHTTP.Get(Link);
except
on E: Exception do
begin
. Lines.Add(E.Message);
.
end;
end;

При отключении интернета (сети) во время работы программы выпадается ошибка:

Socket Error # 10054
Connection reset by peer.

При подключении сети, ошибка та же, ничего не считывается.

При запуске программы без сети ошибка
Socket Error # 10054,
а
Connection reset by peer. отсутствует

Как разглючить idHTTP, что-то надо написать где знак вопрос?

http.CheckForDisconnect — нет такого в idHTTP.
CheckForGracefulDisconnect — это Определяет, разъединил ли пэр изящно.(promt)

Пока GET не используется, пишет «Not Connected», раз считал, уже ничего не пишет.

Другие, кто использует GET, у Вас при переподключении интернета, тоже программа заглючивается, или Вам пофигу. )

Опять сам задаю, сам отвечаю.

Ошибку Connection reset by peer убирает процедура IdHTTP.Disconnect;

Значит, если вместо знака вопроса в программе вставить вот это, всё нормально
продолжает работать.

try
IdHTTP.Disconnect;
except
end;

или так, чтобы выполнить IdHTTP.Disconnect один раз.

try
if pos(‘Connection reset by peer’,E.Message)>0 then IdHTTP.Disconnect;
except
end;

А как это в idIRC лечится?
Прост такая же проблема.

INDY 10.5.1 (Delphi6 sp3)

try
s:=IdHTTP.Get(Link);
except
on E: Exception do
begin
. Lines.Add(E.Message);
.
end;
end;

При отключении интернета (сети) во время работы программы выпадается ошибка:

Socket Error # 10054
Connection reset by peer.

При подключении сети, ошибка та же, ничего не считывается.

При запуске программы без сети ошибка
Socket Error # 10054,
а
Connection reset by peer. отсутствует

Как разглючить idHTTP, что-то надо написать где знак вопрос?

Источник

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0374 ]   [ 16 queries used ]   [ Generated: 10.02.23, 02:43 GMT ]