Telnetserver in Lazarus

[mjustin]

Zitat von Luckie:

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.