Hi,
erstelle ich ein Konsolenprogramm dann kommt folgender fehler, mit dem ich leider nix anfangen kann. Deswegen hänge ich mal den Quelltext mit dran.
exception at 0806D30F:
List index (0) out of bounds.
Delphi-Quellcode:
{ add your program here }
IDTelnetServer1:=TIDTelnetServer.Create;
SocketHandle:=TIdSocketHandles.Create(IDTelnetServer1);
IDTelnetServer1.Bindings.Add;
IDTelnetServer1.Bindings:=SocketHandle;
IDTelnetServer1.Bindings.Items[0].ClientPortMax:=0;
IDTelnetServer1.Bindings.Items[0].ClientPortMin:=0;
IDTelnetServer1.Bindings.Items[0].IP:='127.0.0.1';
IDTelnetServer1.Bindings.Items[0].IPVersion:=Id_IPv4;
IDTelnetServer1.Bindings.Items[0].Port:=23;
IDTelnetServer1.Bindings:=SocketHandle;
IDTelnetServer1.Active:=True;
sleep(10000);
IDTelnetServer1.Active:=False;
IDTelnetServer1.Free;
// stop program loop
Terminate;
Ich bin für jede hilfe dankbar.