Klasse: HTTPDownloader...

[himitsu]

Zitat von Daniel G:

Wohl dem, der den Download Raw Button entdeckt hat...

jetzt wo du es sagst, hab aber dennoch ewig danach suchen müssen

Delphi-Quellcode:

TDownloadWork = procedure(Download : TDownload) of object;
TDownloadBegin = procedure(Download : TDownload) of object;
TDownloadEnd = procedure(Download : TDownload) of object;

wo die Definition doch gleich ist, mach doch einfach eine Definition raus.
TDownloadCallback = procedure(const Download : TDownload) of object; oder eventuell gleich nur eine CallbackProzedur für alles

Delphi-Quellcode:

TDownloadState = (dsBegin, dsWork, dsEnd);
TDownloadCallback = procedure(const Download : TDownload; State: TDownloadState) of object;

im Allgemeinem machen sich Const bei einigen anderen Prozeduren auch nicht schlecht (z.B. bei Int64- und String-Parametern)

Delphi-Quellcode:

function GetURLFileSize(const aURL : string) : int64;
function Download(const aURL, aDest : string) : boolean;
procedure ItemsAdd(const aURL, aDest : string);