Indy und Wiedervervendung von procedure

[hesch21]

Hallo Blup

ich benutze Indy-10. da ist die Definition

Code:

TIdServerThreadEvent = procedure(AContext: TIdContext) of object;

  TIdServerContext = class(TIdContext)
  protected
    FServer: TIdCustomTCPServer;
  public
    property Server: TIdCustomTCPServer read FServer;
  end;

  TIdServerContextClass = class of TIdServerContext;


    // Occurs in the context of the peer thread
    property OnExecute: TIdServerThreadEvent read FOnExecute write FOnExecute;

Also muss ich doch nur folgendes anpassen:

Code:

TServerAblauf = class(TObject)
protected
  FServer : TIdTcpServer;
  procedure DoExecute(AThread: TIdContext);
public
  constructor Create(server : TIdTcpServer);
end;

constructor TServerAblauf.Create(server : TIdTcpServer);
begin
  inherited Create;
  FServer := server;
  // hier evtl. noch Events auf eigene Methoden richten
  FServer.OnExecute := DoExecute;
end;

procedure TServerAblauf.DoExecute(AThread: TIdContext);
begin
  // Hier tun, was zu tun ist.

end;

Ich hoffe, ich sehe das richtig. Werde das am Wochenende austesten. Leider komme ich heute nicht mehr dazu.