Hilfe - HTTPS unterschiedliches Verhalten

[KlausV]

Zitat von Delphi.Narium:

Findest Du EIdWinsockStubError.Build in der MAP-Datei?
Wenn ja: Davor steht eine Adresse in der Art: 0001:001877A4
Suche bei laufendem Debugger bitte mal nach dieser Adresse: 001877A4 und versuche dann im Quelltext rückwärts zu gehen, bis Du einen möglichen Auslöser dieser Exception findest.


[/DELPHI]

Ja, den Eintrag gibt es in der map Datei. 0001:000B51B4 Wie kann ich im debug mode danach suchen. Habe nichts gefunden.

[Delphi.Narium]

Delphi 7

Menü "Suchen"
Untermenü: "Laufzeitfehler suchen".

Ins erscheinende Eingabefeld die Adresse rein und Enter.

Es sollte dann die passende Stelle im Quelltext gesucht werden.

[KlausV]

Zitat von Delphi.Narium:

idhttp.Disconnect(True);
idhttp.IOHandler.InputBuffer.Clear;
[/DELPHI]

Das wars. Kein Fehler mehr. Super, vielen Dank. Habe es als letztes Statement eingegeben und siehe da der Fehler ist weg.
Den IOhandler für SSL muss man wohl nicht mehr erzeugen. Habe den auskommentiert. Indy erkennt es anhand der URL.
Jetzt mache ich erst mal schluss und teste morgen noch weiter.

[KlausV]

Zitat von KlausV:

Zitat von Delphi.Narium:

idhttp.Disconnect(True);
idhttp.IOHandler.InputBuffer.Clear;

Sollte man beide Befehle unter try except stellen? Wenn ja, wie wäre die genau syntax? Danke schon mal.

[Delphi.Narium]

ungefähr sowas:

Delphi-Quellcode:

function MyGetUrl(http: tidHTTP; sUrl: string; sl : TStrings; var sMessage: string): Boolean;
begin
  Result := false;
  try
    http.RedirectMaximum := 0; // oder die Anzahl der maximal erwünschten Redirects
    http.HandleRedirects := false; // und hier dann true.
    http.Response.Clear;
    http.Get(sUrl, sl);
    http.Disconnect(True);
    http.IOHandler.InputBuffer.Clear;
    Result := true;
  except
    on e: Exception do begin
      case http.ResponseCode of
        301, 302 : sMessage := http.ResponseText;
      else
        sMessage := AnsiReplaceText(e.Message, #13#10, ' ');
      end;
      // Fehler ggfls. protokollieren:
      PSReg.WriteAppLog(Format('Scriptaufruf : GetSSLMethod(%s)', [sUrl]));
      PSReg.WriteAppLog(Format('Fehlermeldung: %s', [AnsiReplaceText(e.Message, #13#10, ' ')]));
      PSReg.WriteAppLog(Format('SSLMethod : %s', [sMethod]));
      http.Disconnect(True);
      http.IOHandler.InputBuffer.Clear;
    end;
  end;
end;

Minimal:

Delphi-Quellcode:

try
  http.Response.Clear;
  sIrgendeineStringVariabel := http.Get('https://www.delphipraxis.net/dp_recentthreads.php?timeframe=48hr');
  http.Disconnect(True);
  http.IOHandler.InputBuffer.Clear;
except  
  on e: Exception do begin
    ShowMessage(e.Exception);
    http.Disconnect(True);
    http.IOHandler.InputBuffer.Clear;
  end;
end;

eventuell auch:

Delphi-Quellcode:

try
  http.Response.Clear;
  try
    sIrgendeineStringVariabel := http.Get('https://www.delphipraxis.net/dp_recentthreads.php?timeframe=48hr');
  except
    ShowMessage(e.Exception);
  end;
finally
  http.Disconnect(True);
  http.IOHandler.InputBuffer.Clear;
end;