Entwickler-Ecke

Internet / Netzwerk - IdHTTP SSL - Connection closed gracefully


the-kecks - Mi 01.07.09 15:21
Titel: IdHTTP SSL - Connection closed gracefully
hi,
ich hab mal wieder ein problem. ich will mich bei gamesload via SSL einloggen aber ich kriege immer den fehler "connection closed Gracefully"
code:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
 
[...]
    try
      HTMLCode:=IdHTTP1.Get(URL);
      Params.Add('__EVENTTARGET=loginControl%24bt_continue');
      Params.Add('__EVENTARGUMENT=');
      Params.add('__VIEWSTATE=' + readout(htmlcode, 'id="__VIEWSTATE" value=',  '" />'));
      Params.Add('loginControl%24txt_email=' + Memo2.Lines[i]); //login
      Params.Add('loginControl%24txt_pwd=' + Memo3.Lines[i]);   //pw
      Params.Add('registerControl%24txt_email=');
      Params.Add('registerControl%24txt_pwd=');
      Params.Add('registerControl%24txt_pwd2=');
      Params.Add('registerControl%24txt_fname=');
      Params.Add('registerControl%24txt_name=');
      Params.Add('registerControl%24txt_street=');
      Params.Add('registerControl%24txt_number=');
      Params.Add('registerControl%24txt_zip=');
      Params.Add('registerControl%24txt_city=');
      Params.Add('registerControl%24select_country=0');
      Params.Add('birthday_control%24txtBirthday=TT.MM.JJJJ');
      Params.Add('AgbLicence1%24chk_agb=on');
      Params.Add('__EVENTVALIDATION=' + readout(htmlcode, 'id="__EVENTVALIDATION" value=', '" />'));
      IdHTTP1.Post(URL, Params);
    finally
      Params.Free;
    end;
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
end;

noch ein paar einstellungen:
IdHTTP:
IOHandler = IdSSLIOHandlerSocketOpenSSL1
HandleRedicts = true
BoundPort = 0
Defaultport = 443
Port = 443
allowcookies = true

IdSSLIOHandlerSocketOpenSSL:
BoundPort = 0
Defaultport = 443
Port = 443
Method = v2
Mode Client
verify depth = 2

hoffe ihr könnt mir helfen :)

mfg


Narses - Mi 01.07.09 15:26
Moin!

Suche in: Delphi-Forum, Delphi-Library CONNECTION CLOSED GRACEFULLY :les: :think: ;)

cu
Narses


jaenicke - Mi 01.07.09 15:27
Das ist kein Fehler, sondern nur eine Ausnahme. Damit sagt dir die Indykomponente nur, dass die Verbindung einseitig geschlossen wurde, ohne dass das auch der anderen Seite vorher gesagt wurde.


the-kecks - Mi 01.07.09 16:13
@narses
hab schon gesucht, hab dann die einstellungen mit port usw. übernommen aber es geht immernoch nicht

ja, dass die gegenstelle die verbindung schließt ist mir schon klar aber warum ist mir noch ein rätzel. hab ich irgendeine einstellung vergessen? und was ist mit den zertifikaten? brauch ich die als client? nein, oder?
hier nochn log:
Zitat:

idSSL: Resolving hostname god.t-online.de.
idSSL: Connecting to 80.150.6.167.
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "SSLv2 write client hello A"
idSSL: SSL status: "SSLv2 read server hello A"
idSSL: SSL status: "SSLv2 write client master key A"
idSSL: SSL status: "SSLv2 client start encryption"
idSSL: SSL status: "SSLv2 write client finished A"
idSSL: SSL status: "SSLv2 read server verify A"
idSSL: SSL status: "SSLv2 read server finished A"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: Cipher: name = DES-CBC3-MD5; description = DES-CBC3-MD5 SSLv2 Kx=RSA Au=RSA Enc=3DES(168) Mac=MD5
; bits = 168; version = SSLv2;
New Cookie:
Comment:
Version:
CookieText: ASP.NET_SessionId=qdqdf345ggvms055vunhg255; path=/; domain=god.t-online.de
ServerCookie: ASP.NET_SessionId=qdqdf345ggvms055vunhg255; path=/; domain=god.t-online.de
ClientCookie: ASP.NET_SessionId=qdqdf345ggvms055vunhg255
Domain: god.t-online.de
Expires:
CookieName: ASP.NET_SessionId
Path: /
Value: qdqdf345ggvms055vunhg255
DisplayName: TIdCookieRFC2109

Redirect:
Dest: https://god.t-online.de/gamesload/buying/buy1_startBuying.aspx?provider=gamesload
NumRedirect: 1
Handled: 1
Method: 1

idSSL: Resolving hostname god.t-online.de.
idSSL: Connecting to 80.150.6.167.
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "SSLv2 write client hello A"
idSSL: SSL status: "SSLv2 read server hello A"
idSSL: SSL status: "SSLv2 write client master key A"
idSSL: SSL status: "SSLv2 client start encryption"
idSSL: SSL status: "SSLv2 write client finished A"
idSSL: SSL status: "SSLv2 read server verify A"
idSSL: SSL status: "SSLv2 read server finished A"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: Cipher: name = DES-CBC3-MD5; description = DES-CBC3-MD5 SSLv2 Kx=RSA Au=RSA Enc=3DES(168) Mac=MD5
; bits = 168; version = SSLv2;
Redirect:
Dest: https://god.t-online.de/gamesload/buying/buy3_checkPaymentMethods.aspx
NumRedirect: 2
Handled: 1
Method: 1

idSSL: Resolving hostname god.t-online.de.
idSSL: Connecting to 80.150.6.167.
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "SSLv2 write client hello A"
idSSL: SSL status: "SSLv2 read server hello A"
idSSL: SSL status: "SSLv2 write client master key A"
idSSL: SSL status: "SSLv2 client start encryption"
idSSL: SSL status: "SSLv2 write client finished A"
idSSL: SSL status: "SSLv2 read server verify A"
idSSL: SSL status: "SSLv2 read server finished A"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: Cipher: name = DES-CBC3-MD5; description = DES-CBC3-MD5 SSLv2 Kx=RSA Au=RSA Enc=3DES(168) Mac=MD5
; bits = 168; version = SSLv2;
Redirect:
Dest: https://god.t-online.de/gamesload/memberzone/login.aspx
NumRedirect: 3
Handled: 1
Method: 1

idSSL: Resolving hostname god.t-online.de.
idSSL: Connecting to 80.150.6.167.
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "before/connect initialization"
idSSL: SSL status: "SSLv2 write client hello A"
idSSL: SSL status: "SSLv2 read server hello A"
idSSL: SSL status: "SSLv2 write client master key A"
idSSL: SSL status: "SSLv2 client start encryption"
idSSL: SSL status: "SSLv2 write client finished A"
idSSL: SSL status: "SSLv2 read server verify A"
idSSL: SSL status: "SSLv2 read server finished A"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: SSL status: "SSL negotiation finished successfully"
idSSL: Cipher: name = DES-CBC3-MD5; description = DES-CBC3-MD5 SSLv2 Kx=RSA Au=RSA Enc=3DES(168) Mac=MD5
; bits = 168; version = SSLv2;
idSSL: Disconnected.


mfg


the-kecks - Mi 01.07.09 20:48
oder kann ich die Meldung(?) irgendwie umgehen/umschreiben, sodass der nicht direkt ganz abbricht?

mfg


jaenicke - Mi 01.07.09 20:54
Kann es sein, dass du den Sinn von try..finally noch nicht so ganz verstanden hast? Genau das machst du doch damit. Wenn also der Fehler beim ersten Get auftritt, springt das Programm zu dem finally. Du bräuchtest also ein weiteres try..finally / try..except, das diese Meldung abfängt.


the-kecks - Mi 01.07.09 21:06

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
 
    try
      try
        HTMLCode:=IdHTTP1.Get(URL);
      except
      end;
      Params.Add('__EVENTTARGET=loginControl%24bt_continue');
      Params.Add('__EVENTARGUMENT=');
      Params.add('__VIEWSTATE=' + readout(htmlcode, 'id="__VIEWSTATE" value=',  '" />'));
      Params.Add('loginControl%24txt_email=' + Memo2.Lines[i]);
      Params.Add('loginControl%24txt_pwd=' + Memo3.Lines[i]);
      Params.Add('registerControl%24txt_email=');
      Params.Add('registerControl%24txt_pwd=');
      Params.Add('registerControl%24txt_pwd2=');
      Params.Add('registerControl%24txt_fname=');
      Params.Add('registerControl%24txt_name=');
      Params.Add('registerControl%24txt_street=');
      Params.Add('registerControl%24txt_number=');
      Params.Add('registerControl%24txt_zip=');
      Params.Add('registerControl%24txt_city=');
      Params.Add('registerControl%24select_country=0');
      Params.Add('birthday_control%24txtBirthday=TT.MM.JJJJ');
      Params.Add('AgbLicence1%24chk_agb=on');
      Params.Add('__EVENTVALIDATION=' + readout(htmlcode, 'id="__EVENTVALIDATION" value=', '" />'));
      try  
        IdHTTP1.Post(URL, Params);
      except
      end;
    finally
      Params.Free;
    end;

so? habs schon so versucht das klappt auch nicht.

mfg


jaenicke - Mi 01.07.09 21:08
So springt das Programm bei der Exception in Get ja ebenfalls zum finally...
Was du willst ist doch, dass dann die weiteren Befehle ausgeführt werden. Also musst du dort auch die Exception abfangen und dabei eben nicht hinter die anderen Befehle springen lassen. Also eben nur das Get in einen try-Block.


the-kecks - Mi 01.07.09 21:36
sry! habs verbessert.
Jetzt macht der zwar weiter aber bei IdHTTP1.Post() kommt das auch. diese lösung mit try except hilft mir ja auch nicht weiter, ich brauch ja trotzdem den htmlcode der seite. weiß jmd vll wie ich diese meldung direkt umgehen kann? Falls das von bedeutung ist, manchmal kommt auch die exception "Error connecting with SSL".

danach kommt übrigens immer eine zugriffsverletzung wenn ich IdHTTP nochmal benutze. ich hab mal versucht die IdHTTP & die Id SSL kompo freizugeben und dann wieder zu createn aber da kommt auch ne zugriffsverletzung. habs auch mit IdHTTP1.disconnect versucht.

mfg


the-kecks - Do 02.07.09 12:20
wie kann ich denn diese zugriffsverletzungen vermeiden? also die kommen immer die IdHTTP und OpenSSL. was ich aber nicht kann ist die verbindung zu trennen o. ä. weil ich die cookies, die ich beim ersten login bekommen habe noch brauche.
Genaue Exceptions:
- in OpenSSL: "Zugriffsverletzung bei Adresse 004051D0 in Modul 'Projekt1.exe'. Lesen von Adresse 00000004"
- in IdHTTP: "Zugriffsverletzung bei Adresse 0048D843 in Modul 'Projekt1.exe'. Lesen von Adresse 00000014"

mfg


the-kecks - So 05.07.09 20:22
weiß niemand wie ich diese zugriffsverletzungen weg krieg?

mfg


BenBE - Mo 06.07.09 08:44
Compilier mal mit Mapfile (detailliert), und führ für die erhaltenen Fehlerstellen OmMAP aus. An die damit angesagten Stellen setzt Du einmal Breakpoints und schaust bitte mal in den Stack. Mit Debug-DCUs empfiehlt sich zu diesem Zweck (Achtung: Da steht dann nicht nur dein Source drin, das könnte u.U. verwirren).


the-kecks - Mo 06.07.09 16:25
also die stellen wo die fehler auftreten:
OpenSSL:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
function TIdSSLSocket.Send(const ABuf : TIdBytes): integer;
var
  err: Integer;
begin
  Result := IdSslWrite(fSSL, @ABuf[0], Length(ABuf)); //fehler
  err := GetSSLError(Result);
  if (err = OPENSSL_SSL_ERROR_WANT_READ) or (err = OPENSSL_SSL_ERROR_WANT_WRITE) then begin
    Result := IdSslWrite(fSSL, @ABuf[0], Length(ABuf));
  end;
end;

IdHTTP:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
 
procedure TIdCustomHTTP.ConnectToHost(ARequest: TIdHTTPRequest; AResponse: TIdHTTPResponse);
var
  LLocalHTTP: TIdHTTPProtocol;
  LS : TIdStreamVCL;
begin
  ARequest.FUseProxy := SetHostAndPort;

  if ARequest.UseProxy = ctProxy then
  begin
    ARequest.URL := FURI.URI;
  end;

[...]

  FHTTPProto.BuildAndSendRequest(URL);

  if (ARequest.Method in [hmPost, hmPut]) then //fehler
  begin
    LS := TIdStreamVCL.Create(ARequest.Source);
    try
      IOHandler.Write(LS, 0, false);
    finally
      FreeAndNil(LS);
    end;
  end;
end;

im aufruf-stack stand:
Zitat:

TIdSSLSocket.Send((71, 69, 84, 32, 47, 103, 97, 109, 101, 115, 108, 111, 97, 100, 47, 109, 101, 109, 98, 101, 114, 122, 111, 110, 101, 47, 108, 111, 103, 105, 110, 46, 97, 115, 112, 120, 32, 72, 84, 84, 80, 47, 49, 46, 49, 13, 10, 72, 111, 115, 116, 58, 32, 103, 111, 100, 46, 116, 45, 111, 110, 108, 105, 110, 101, 46, 100, 101, 58, 52, 52, 51, 13, 10, 65, 99, 99, 101, 112, 116, 58, 32, 116, 101, 120, 116, 47, 104, 116, 109, 108, 44, 32, 42, 47, 42, 13, 10, 65, 99, 99, 101, 112, 116, 45, 69, 110, 99, 111, 100, 105, 110, 103, 58, 32, 105, 100, 101, 110, 116, 105, 116, 121, 13, 10, 85, 115, 101, 114, 45, 65, 103, 101, 110, 116, 58, 32, 77, 111, 122, 105, 108, 108, 97, 47, 53, 46, 48, 32, 40, 87, 105, 110, 100, 111, 119, 115, 59, 32, 85, 59, 32, 87, 105, 110, 100, 111, 119, 115, 32, 78, 84, 32, 53, 46, 49, 59, 32, 100, 101, 59, 32, 114, 118, 58, 49, 46, 57, 46, 48, 46, 49, 48, 41, 32, 71, 101, 99, 107, 111, 47, 50, 48, 48, 57, 48, 52, 50, 51, 49, 54, 32, 70, 105, 114, 101, 102, 111, 120, 47, 51, 46, 48, 46, 49, 48, 13, 10, 67, 111, 111, 107, 105, 101, 58, 32, 65, 83, 80, 46, 78, 69, 84, 95, 83, 101, 115, 115, 105, 111, 110, 73, 100, 61, 111, 119, 106, 117, 50, 53, 113, 97, 53, 50, 118, 117, 109, 118, 113, 49, 106, 113, 106, 51, 104, 53, 53, 53, 13, 10, 13, 10))
TIdSSLIOHandlerSocketOpenSSL.SendEnc(???)
TIdSSLIOHandlerSocketOpenSSL.Send(???)
TIdSSLIOHandlerSocketOpenSSL.WriteDirect((71, 69, 84, 32, 47, 103, 97, 109, 101, 115, 108, 111, 97, 100, 47, 109, 101, 109, 98, 101, 114, 122, 111, 110, 101, 47, 108, 111, 103, 105, 110, 46, 97, 115, 112, 120, 32, 72, 84, 84, 80, 47, 49, 46, 49, 13, 10, 72, 111, 115, 116, 58, 32, 103, 111, 100, 46, 116, 45, 111, 110, 108, 105, 110, 101, 46, 100, 101, 58, 52, 52, 51, 13, 10, 65, 99, 99, 101, 112, 116, 58, 32, 116, 101, 120, 116, 47, 104, 116, 109, 108, 44, 32, 42, 47, 42, 13, 10, 65, 99, 99, 101, 112, 116, 45, 69, 110, 99, 111, 100, 105, 110, 103, 58, 32, 105, 100, 101, 110, 116, 105, 116, 121, 13, 10, 85, 115, 101, 114, 45, 65, 103, 101, 110, 116, 58, 32, 77, 111, 122, 105, 108, 108, 97, 47, 53, 46, 48, 32, 40, 87, 105, 110, 100, 111, 119, 115, 59, 32, 85, 59, 32, 87, 105, 110, 100, 111, 119, 115, 32, 78, 84, 32, 53, 46, 49, 59, 32, 100, 101, 59, 32, 114, 118, 58, 49, 46, 57, 46, 48, 46, 49, 48, 41, 32, 71, 101, 99, 107, 111, 47, 50, 48, 48, 57, 48, 52, 50, 51, 49, 54, 32, 70, 105, 114, 101, 102, 111, 120, 47, 51, 46, 48, 46, 49, 48, 13, 10, 67, 111, 111, 107, 105, 101, 58, 32, 65, 83, 80, 46, 78, 69, 84, 95, 83, 101, 115, 115, 105, 111, 110, 73, 100, 61, 111, 119, 106, 117, 50, 53, 113, 97, 53, 50, 118, 117, 109, 118, 113, 49, 106, 113, 106, 51, 104, 53, 53, 53, 13, 10, 13, 10))
TIdIOHandler.WriteBufferFlush(???)
TIdIOHandler.WriteBufferFlush
TIdIOHandler.WriteBufferClose
TIdHTTPProtocol.BuildAndSendRequest(???)
TIdCustomHTTP.ConnectToHost($278E7D4,???)
TIdCustomHTTP.DoRequest(hmPost,'https://god.t-online.de/gamesload/purchase/buy.aspx?intIdGame=31003&partner=bbyd&',$279517C,$2794650,(...))
TIdCustomHTTP.Post('https://god.t-online.de/gamesload/purchase/buy.aspx?intIdGame=31003&partner=bbyd&',???,$2794650)
TIdCustomHTTP.Post('https://god.t-online.de/gamesload/purchase/buy.aspx?intIdGame=31003&partner=bbyd&',???,$2794650)
TIdCustomHTTP.Post('https://god.t-online.de/gamesload/purchase/buy.aspx?intIdGame=31003&partner=bbyd&',$278878C)
TForm1.Button1Click(???)
Project1


hoffe ich hab das richtig verstanden

mfg


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!