idHTTPServer in Konsolenanwendung... On Ereignisse

[dominikkv]

Delphi-Quellcode:

  TMeineKlasse = class
    procedure MeinEreignis(Sender: TObject); // genaue Parameter nachschauen!
  end;


var  // irgendwo halt...
  MeinIDServer: TIdHTTPServer; 


procedure TMeineKlasse.MeinEreignis(Sender: TObject);
begin
  // bla 
end;

procedure WeiseDemServerMeinEreignisZu;
begin
  MeinIDServer.OnMeinEreignis := MeinEreignis;  
end;