TMSWebUpdate - eine neue WebUpdate-Komponente

[Pfoto]

Hallo Pif,

Delphi-Quellcode:

fIdHTTP.OnWork := InternalOnWork;

bedeuted, dass beim das Ereignis OnWork von der Methode
InternalOnWork aufgefangen wird.

Die Parameter des Types von OnWork und die Parameter
der Methode von InternalOnWork müssen identisch sein.
Das ist nun vielleicht durch Versionsunterschiede
nicht mehr passend.

Die Methode

Delphi-Quellcode:

procedure InternalOnWork (Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);

müsste also angepasst werden.

Ich habe die Indy-Komponenten nicht installiert, deswegen
kann ich ab hier nicht weiterhelfen. Sorry.



Gruß
Pfoto

[Pif]

Trotzdem Danke Pfoto.
Ich scheine der einzige mit dem Problem zusein. Ich werd mal schaun ob ich es gefixed bekomme.

MfG Pif

[Marco Steinebach]

Hallo,
Es gibt eine neue Version. Geändert hat sich lediglich, daß das Demo für das indirekte Update nicht mehr kommt, weil sich das, meiner Meinung nach, selbst erklärt.
Außerdem mußte ich die Demo-Update-Dateien auf meinem Server umziehen, deshalb gibts 'ne neue Version.
Viel spaß damit und viele Grüße
Marco

[jfheins]

Nur so: Normalerweise sind die Bezeichner (von den Events) Englisch ;)

Ich hab mich beim ersten durchlesen gewundert, wegen dem denglisch (OnUpdateGefunden :mrgreen: )

[Delphi Code Anfänger]

Zitat:

Zitat von Pif

Hallo Pfoto
Danke für deine hilfe, das mit dem package habsch begriffen.
aber wenn ich das installieren will kommt ein fehler im quelltext der komponente

Delphi-Quellcode:

fIdHTTP.OnWork := InternalOnWork;

[DCC Fehler] WebUpdateThread.pas(39): E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Mach ich da was falsch oder liegt es am quellcode?

Ich bekomme genau den gleichen Fehler.

Ich weiß nicht wie ich es beheben kann. Kann mir vielleicht einer helfen?

[Marco Steinebach]

Hallo,

Zitat:

Zitat von Delphi Code Anfänger

Zitat:

Zitat von Pif

Danke für deine hilfe, das mit dem package habsch begriffen.
aber wenn ich das installieren will kommt ein fehler im quelltext der komponente

Delphi-Quellcode:

fIdHTTP.OnWork := InternalOnWork;

[DCC Fehler] WebUpdateThread.pas(39): E2009 Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Mach ich da was falsch oder liegt es am quellcode?

Ich bekomme genau den gleichen Fehler.

Ich weiß nicht wie ich es beheben kann. Kann mir vielleicht einer helfen?

Ich kann's versuchen! ;-)
Was sagt denn die Indy hilfe, zum aufbau von OnWork, also wie sieht bei dir die Parameterliste aus?
Viele Grüße
Marco

[Marco Steinebach]

Hallo,
Es gibt eine neue Version, weil die Batch-Datei, nach einem direkten Update, nicht ordnungsgemäß gelöscht wurde.
Des weiteren heißt die Prozedur zum starten der Update-Suche, ganz nach Marco-Denglisch:
SucheNachUpdates.
Viele Grüße
Marco

[Marco Steinebach]

Hallo zusammen,
Es gibt, mal wieder, eine neue Version (1.00.5).
Neuerungen sind das Ereignis OnKeinUpdateGefunden, selbsterklärend und eine Prozedur Namens Neustart. Wenn nämlich der Neustart der Anwendung, nach einem Update, nicht gleich, sondern erst später durchgeführt werden soll, hatte man, vorher, ein Problem.

Viel Spaß damit und wie gesagt: für Kritiken und Anregungen bin ich jederzeit offen!
Viele Grüße
Marco

[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 :lol:

[Svenkan]

Gefällt mir schonmal ganz gut, aber ich hab 2 Probleme:

1. Ich lasse die Dateien in das Unterverzeichnis '\downloads' laden. Nachdem das Update-Programm geschlossen wird, werden diese Dateien allerdings nicht ins Hauptverzeichnis verschoben.
2. Fällt bei mir AWorkCount in den negativen Bereich. Da ich eigtl einen Fortschrittsbalken einbauen wollte, kann ich das erstmal vergessen, da mir negative Werte rein gar nichts bringen. Denn so kann es bei größeren Dateien schnell den Anschein haben, dass der Download steckengeblieben ist.