Mit Server auf OnConnect reagieren wie?

[Klaus01]

Delphi-Quellcode:

uses
  System.SysUtils, idTcpServer, idSocketHandle;

var
  fServer: TidTcpServer;
  binding: TidSocketHandle;
begin
  try
    fServer := TidTcpServer.create(nil);
    binding := fServer.Bindings.Add();
    binding.IP := '10.34.56.12';
    binding.Port := 23;
 except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

oder das böse with verwenden:

Delphi-Quellcode:

with fServer.bindings.add do
  begin
    ip := '10.34.56.12'
    port := 23; 
  end;

Grüße
Klaus