Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Could not load SSL library - [INDY10.5.5]

  Alt 23. Jan 2012, 00:48
Ich habe dir mal ein Beispiel-Projekt angehängt (Source und Bin)
Eingestellt wurde da so gut wie nichts
Delphi-Quellcode:
// Auszug aus der DPR
  object IdHTTP1: TIdHTTP
    IOHandler = IdSSLIOHandlerSocketOpenSSL1
    AllowCookies = True
    HandleRedirects = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = -1
    Request.ContentRangeStart = -1
    Request.ContentRangeInstanceLength = -1
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    Request.Ranges.Units = 'bytes'
    Request.Ranges = <>
    HTTPOptions = [hoForceEncodeParams]
    OnRedirect = IdHTTP1Redirect
    Left = 176
    Top = 64
  end
  object IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL
    MaxLineAction = maException
    Port = 0
    DefaultPort = 0
    SSLOptions.Mode = sslmUnassigned
    SSLOptions.VerifyMode = []
    SSLOptions.VerifyDepth = 0
    Left = 176
    Top = 112
  end
Delphi-Quellcode:
// Auszug aus der PAS
procedure TMainForm.Http_GOExecute( Sender : TObject );
begin
  mem_response.Lines.BeginUpdate;
  try
    mem_response.Lines.Clear;
    mem_response.Lines.Text := IdHTTP1.Get( edt_address.Text );
  finally
    mem_response.Lines.EndUpdate;
  end;
  edt_address.SetFocus;
end;
Angehängte Dateien
Dateityp: zip IndyHttpSsl.zip (1,59 MB, 140x aufgerufen)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat