klassenfremde ereignisse weitergeben

[Marco Steinebach]

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