TMSWebUpdate - eine neue WebUpdate-Komponente

[fylo]

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