Telnetserver in Lazarus

[DelTurbo]

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.

[Luckie]

Hast du denn eine Items-Array überhaupt erzeugt? Wenn nicht, gibt es kein nulltes Element.

[mjustin]

Zitat:

Zitat von Luckie (Beitrag 1182923)

Hast du denn eine Items-Array überhaupt erzeugt? Wenn nicht, gibt es kein nulltes Element.

In der Tat :)

Ganz ohne SocketHandle geht es (Indy 10.5.9, Lazarus 1.0):

Delphi-Quellcode:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this },
  IdTelnetServer, IdSocketHandle, IdGlobal;

var
IDTelnetServer1: TIDTelnetServer;
SocketHandle: TIdSocketHandles;

begin
    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;

    ReadLn;

    IDTelnetServer1.Active:=False;
    IDTelnetServer1.Free;

end.

[DelTurbo]

Vielen dank. Klappt wunderbar.... :-D