Hallo,
Zitat von
thkerkmann:
Hi,
Du definierts in deiner Komponente ein Ereignis OnWork, welches sich der Benutzer auf eine Ereignisprozedur setzen kann.
Okay, soweit klar.
Delphi-Quellcode:
TDownloadFortschritt = procedure (Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer) of object;
....
TMeineKomponente = Class (TComponent)
{ private deklarationen }
fIdHTTP: TIdHTTP;
fOnDownloadFortschritt: TOnDownloadFortschritt;
Zitat von
thkerkmann:
Desweiteren baust Du eine Behandlungsroutine für das
Indy OnWork in deine Klasse ein, und rufst darin dein Event auf.
Genau hier hänge ich. Meine procedure heißt
Delphi-Quellcode:
procedure TMeineKomponente.Execute;
begin
...
fIdHTTP.Get (
url, fs);
// fs ist'n filestream
...
Wie sieht denn jetzt hier welche Behandlungsroutine aus????
Zitat von
thkerkmann:
Im Constructor- wo du wohl auch die
Indy createst, setzt du das Event entsprechend auf deine Behandlungsroutine.
Das ist auch wieder klar, aber vielleicht noch'n Tippp für die mitte?
Viele Grüße
Marco