Konsole und TServerSocket.Create -> Fehler

[SebE]

Hallo,

ich wollte über eine Konsolenanwendung eine Socketverbindung herstellen (für ein Chatähnliches Programm).
hier ist erstmal der Code:

Delphi-Quellcode:

program MyChatServer;

{$APPTYPE CONSOLE}

uses
  SysUtils, ScktComp, Classes;

type
  TMainThread = class(TThread)
  public
    procedure Run;
  end;

  TServerThread = class(TThread)
    ServerSocket: TServerSocket;
    Port: Word;
    constructor Create;
    destructor Destroy;
    procedure OnServerAccept(Sender: TObject; Socket: TCustomWinSocket);
    procedure OnClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure OnClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure OnServerShutDown(SendText: String);
  end;

var
  MainThread: TMainThread;
  ServerThread: TServerThread;

const
  PVersion='1.01.05';
  PName='MyChatServer';

{Mainthread}

procedure TMainThread.Run;
begin
Write(#7);
ReadLn;
end;

{ServerThread}

constructor TServerThread.Create;
begin
ServerSocket.Create(nil); //Hier tritt der Fehler auf!
inherited Create(False);
end;

destructor TServerThread.Destroy;
begin
ServerSocket.Destroy;
inherited Destroy;
end;

...

{Program}

begin
ServerThread:=TServerThread.Create;

with ServerThread do
begin
ServerSocket.OnAccept:=ServerThread.OnServerAccept;
ServerSocket.OnClientConnect:=ServerThread.OnClientConnect;
ServerSocket.OnClientDisconnect:=ServerThread.OnClientDisconnect;
ServerSocket.OnClientRead:=ServerThread.OnClientRead;
end;

WriteLn('MyChatServer');
WriteLn;
Write('Port: ');
ReadLn(ServerThread.Port);

ServerThread.ServerSocket.Active:=False;
ServerThread.ServerSocket.Port:=ServerThread.Port;

try
ServerThread.ServerSocket.Active:=True;
except
ServerThread.ServerSocket.Active:=False;
WriteLn('ERROR!');
end;

WriteLn('Server is running.');
ReadLn;

ServerThread.Destroy;
end.

Das Programm will einfach nicht laufen, es kommt immer eine Zugriffsverletzung. :pale:

Kennt jmd das Problem oder habt ihr schon mal mit so etwas gearbeitet?

Danke.

[x000x]

Moin moin,

versuchs mal mit:

Delphi-Quellcode:

...

//ServerSocket.Create(nil); //Hier tritt der Fehler auf!
ServerSocket := TServerSocket.Create(nil);
...

[SebE]

oh mein Gott.
Das ich da nicht von selbst drauf gekommen bin :roll:

Danke, hast natürlich recht.

Damit es funktioniert sieht mein Construktor so aus (für die, sie das gleiche Problem haben sollten):

Delphi-Quellcode:

constructor TServerThread.Create;
begin
inherited Create(True);
ServerSocket:=TServerSocket.Create(nil);
end;

[Real_Thunder]

Habe hierzu mal eine Frage, ich versuche gerade ne serveranwendung über die console zu realisieren,
dazu habe ich mir den Source von oben mal kopiert, und die entsprechenen events eingesetzt wie z.b.

Delphi-Quellcode:

procedure TServerThread.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
writeln('Client hat verbunden');
Socket.SendText('Moin Moin');
end;

Wenn ich die Anwendung Starte, meckert meine Firewall auch brav rum, und ich erlaube dem Programm anschließend die Ports abzuhören.

Bei der Clientanwendung, meckert er gleich rum mit socketfehler, also das er keine Verbindung herstellen kann....

Ist der Serverthrad denn schon soweit das er die Verbindungen Annhemen kann ?...
Ich stehe echt auch dem Schlauch..

Für einen Schups in die richtige Richtung währe ich dankbar.

MfG Real Thunder

[mkinzler]

Laß mal ein Portmonitor laufen, dann siehst du, ob der Port geöffnet wurde.

[Real_Thunder]

Ok, habe das Problem gelößt, da war noch ein portblocker (router firewall) zwichen...

Ich kann nun wunderbar verbinden.. Allerdings dann war es das auch schon....

auf die events reagiert der server überhaupt nicht..
weder auf onconnect noch auf onread etc etc.....