Mit Server auf OnConnect reagieren wie?

[Klaus01]

.. die FormCreate Methode ist die mit Deiner Form verkabelt?
D.h im Object Inspector zugewiesen?

Grüße
Klaus

[holger_barntrup]

Hier noch mal alles:

[Klaus01]

siehe Anhang

[TiGü]

Zitat:

Zitat von Klaus01 (Beitrag 1432677)

.. die FormCreate Methode ist die mit Deiner Form verkabelt?
D.h im Object Inspector zugewiesen?

Nö, und das ist auch die Ursache für sein Problem.

[holger_barntrup]

Zitat:

Zitat von Klaus01 (Beitrag 1432677)

.. die FormCreate Methode ist die mit Deiner Form verkabelt?
D.h im Object Inspector zugewiesen?

Grüße
Klaus

Genau das war es..... :thumb:

[holger_barntrup]

Zitat:

Zitat von mjustin (Beitrag 1432354)

Beispielcode (mit Konsolenausgabe anstatt Listbox).

Hinweise: [LIST][*]das Erzeugen eines neuen Bindings ist nicht notwendig, standardmäßig wird beim Starten eines Indy TCP Servers bereits ein Binding erzeugt, mit IP 0.0.0.0. Im Code wird dann nur noch der Port gesetzt (über die DefaultPort-Property)

Und wie stell ich das denn an wenn ich eine bestimmte IP vorgeben will?
Mit

Delphi-Quellcode:

FServer.DefaultPort := 23; // Telnet Port
FServer.Bindings[0].IP := '172.16.101.111';

bekomm ich die Meldung "Argument ausserhalb des Bereichs" und die IP bleibt 0.0.0.0
In dem Beispiel oben im ersten Beitrag geht das, auch in dem mit den Komponenten auf der Form.
Ich glaub ich geb es bald auf mit dem erzeugen zur Laufzeit........

[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

[holger_barntrup]

Danke Klaus

:thumb: