Ereignis in einer Unit zuweisen

[Hobbycoder]

Du kannst natürlich in deiner eigenen Unit einen eigenen Event definieren

Delphi-Quellcode:

TOnServerExecute=procedure(AContext: TIdContext) of object;

Type
  TServer=class
  private 
    FOnServerExecute: TOnServerExecute;
  published
    property OnServerExecute: TOnServerExecute read FOnServerExecute write FOnServerExecute;
  end;

.
.
.

und dann im

Delphi-Quellcode:

procedure TServer.tcpServerExecute(AContext: TIdContext);
begin
   try
      AContext.Connection.IOHandler.DefStringEncoding := IndyTextEncoding_UTF8; // uses IdGlobal
      AContext.Connection.IOHandler.ReadStrings(memMessage.Lines);
      AContext.Connection.IOHandler.WriteLn('#OK#');
      if Assigned(FOnServerExecute) then
        FOnServerExecute(AContext);
   finally
      AContext.Connection.Disconnect;
   end;
end;

über dieses Event das weitergeben.