Hallo,
da ich meine Updates auf einem SSL-Webserver liegen habe, hab ich deine Komponente um SSL-Fähigkeit erweitert.
Das notwendige OpenSSL-Update für Delphi/
Indy gibt es
hier.
Hier geänderte der Code:
Delphi-Quellcode:
uses
...,IdSSLOpenSSL;
TWebUpdate = class(TComponent)
private
{ Private-Deklarationen }
...
fSSLIOHandler: TIdSSLIOHandlerSocket;
...
end;
constructor TWebUpdate.Create;
begin
...
fSSLIOHandler := TIdSSLIOHandlerSocket.Create(self);
fSSLIOHandler.SSLOptions.Method := sslvSSLv3;
fIdHTTP.IOHandler := fSSLIOHandler;
...
end;
procedure TWebUpdate.SetUpdateURL(const value: string);
begin
...
if copy (UpperCase (fUpdateUrl), 1, 4) <> 'HTTP' then // <-- damit man auch https eingeben kann
fUpdateURL := 'http://' + fUpdateURL;
...
end;
Das war's auch schon. Bei mir funktioniert das für meine Zwecke
