idHTTPServer in Konsolenanwendung... On Ereignisse

[hedie]

Hallo

Ich möchte den IDHTTPServer in einer Konsolenanwendung verwenden.

Wie kann ich der Kompo nun dynamisch On... Ereignisse zuweisen?


Danke schonmal

[MrKnogge]

Schreibe einfach die entsprechende Methode und weise sie dann (wie einen Wert einer Variablen) zu.

[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;

[hedie]

Hmmm funktioniert leider nicht


mein code:

Delphi-Quellcode:

program thttpd;

{$APPTYPE CONSOLE}

uses
  SysUtils, IdHTTPServer, windows, IDContext;

var
  main_d:TidHTTPServer;

type
  Thd = class
    procedure main_d_response(AContext: TIDContext); // genaue Parameter nachschauen!
  end;




procedure Thd.main_d_response(AContext: TIDContext);
begin
  writeln('New Response!!!');
end;

procedure init_d();
begin
main_d := TIdHTTPServer.Create();
main_d.DefaultPort := 8070;
main_d.OnConnect := main_d_response;
main_d.Active := true;
end;



begin
  try
  init_d;
  readln;
  except
    on E:Exception do begin
      Writeln(E.Classname, ': ', E.Message);
      readln;
    end;
  end;
end.

Ich bekomm den Fehler

Code:

[DCC Fehler] thttpd.dpr(67): E2003 Undefinierter Bezeichner: 'main_d_response'

[Fussball-Robby]

Weil main_d_response eine prozedur der klasse Thd ist.
main_d.OnConnect := Thd.main_d_response; Mfg

[hedie]

Dann kommt der Fehler:

Code:

[DCC Fehler] thttpd.dpr(49): E2010 Inkompatible Typen: 'TIdServerThreadEvent' und 'Procedure'

[Fussball-Robby]

@main_d.OnConnect := @Thd.main_d_response; So?

[hedie]

Ja es hat geklappt Danke!!
Du Bist 15 und weisst so etwas??

Was genau mach den das @??

[Fussball-Robby]

Zitat von hedie:

Du Bist 15 und weisst so etwas??

Ja, aber nur weil ich es vor einer Woche auch gebraucht hab
Hier ist das erklärt.

Mfg

[hedie]

Achsoo ok Danke!