Event erzeugen

[tn249]

Nachdem ich ein TNMHTTP-Objekt zur Runtime initialisiert und mit Create erstellt habe, will ich auf einen event des vorhererstellten TNMHTTP-Objekt reagieren, wie kann ich das anstellen?

MfG
tn249

[Meflin]

deklariere eine procedure on mache dann dass:
tnmhttp.OnEvent := NameDerPRocedure
oder
@tmnhttp.OnEvent := @NameDerProcedure

[tn249]

danke schonmal und wie komme ich bei OnSuccess an die Variable Cmd: CmdType?

MfG
tn249

[Meflin]

dann musst du bei deiner procedure eben dass deklarieren

Delphi-Quellcode:

procedure myOnSuccess(var Cmd: cmdType);
begin
...
end;

und dann eben wie o.g.

[tn249]

ich glaub ich stell mich grad saudumm an - bitte um konkretes beispiel;


das ist die procedure die aufgerufen werden soll;

Delphi-Quellcode:

procedure NMHTTPloginSuccess(Cmd: CmdType);
begin
  case Cmd of
    CmdGET:
      begin
      Log('NMHTTPlogin.GET successfull completed');
      ReadyState := 'r';
      end;
    end;
end;

und das mein versuch die procedure auf das onsuccess event zuzuweisen

Delphi-Quellcode:

NMHTTPlogin.OnSuccess := NMHTTPloginSuccess(Cmd: CmdType);

das hier spuckt der compiler aus;

[Error] Unit_Login.pas(76): Undeclared identifier: 'Cmd'

[Meflin]

beim zuweisen musst du die variablen hinten dran weglassen!

Code:

NMHTTPlogin.OnSuccess := NMHTTPloginSuccess;

[tn249]

ok jetzt hab ichs;

man muss die parameterliste weglassen und @ verwenden

Delphi-Quellcode:

@NMHTTPlogin.OnSuccess := @NMHTTPloginSuccess;

Edit: ohne die @ gings bei mir nicht