@gneric: nicht uninteressant aber leider fehlt noch etwas in Richtung
OOP.
Hier ein Ausschnitt aus dem Code:
Delphi-Quellcode:
type
TDownloadActionLoadUrl = class
public
class procedure Download(ziel, downloadurl: string; DownloadFeedback:TDownloadProgressEvent);
end;
....
TDownloadBits = class
public
class procedure DownloadForground(ziel, downloadurl: WideString; DownloadFeedback:TDownloadProgressEvent);
class procedure DownloadBackground(ziel, downloadurl, ExeName, Params: WideString);
class procedure CompleteJob(JobId: WideString);
end;
Hier müsste es natürlich eine gemeinsame Basisklasse mit einer virtuellen, abstrakten Methode geben.
DownloadFeedback müsste ein Event sein (anstelle eines Parameters).