ServerSocket Prozeduren zuweisen

[Rastaman]

Hallo. Ich habe ein Programm ohne Form und möchte einem ServerSocket ein OnClientconnect-Ereigniss zuweisen.
Allerdings hab ich nich so richtig Ahnung wie das ohne Form geht.

Delphi-Quellcode:

var
  Self: TComponent;

begin
  //Server starten
  Server := TServerSocket.Create(Self);
  with Server do
  begin
    Port := StrToInt(ServerPort);
    ServerType := stNonBlocking;
    ThreadCacheSize := 10;
    OnClientConnect := ???????????????????;
    Active := True;
  end;

Wie muss ich das jetzt machen

[marabu]

Hallo Gerrit,

versuche es mal so:

Delphi-Quellcode:

type
  TMyServerSocket = class(TServerSocket)
  private
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
  end;

procedure TMyServerSocket.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // ...
end;


begin
  //Server starten
  Server := TMyServerSocket.Create(Self);
  with Server do
  begin
    Port := StrToInt(ServerPort);
    ServerType := stNonBlocking;
    ThreadCacheSize := 10;
    OnClientConnect := ClientConnect;
    Active := True;
  end;

Grüße vom marabu

[Rastaman]

Code:

[Fehler] Server.dpr(58): E2003 Undefinierter Bezeichner: 'ClientConnect'

[marabu]

Nicht traurig sein, Gerrit. Die Fehlermeldung stammt von D05? Zeige mal den Code, der nicht compiliert - vielleicht fällt ja jemandem etwas auf...

marabu

[Rastaman]

Da issa:

Delphi-Quellcode:

type
  TMyServerSocket = class(TServerSocket)
  private
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
end;

var
  Self: TComponent;
  Server: TServerSocket;

procedure TMyServerSocket.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  //blabla
end;

begin

  //Server starten
  Server := TMyServerSocket.Create(Self);
  with Server do
  begin
    Port := StrToInt(ServerPort);
    ServerType := stNonBlocking;
    ThreadCacheSize := 10;
    OnClientConnect := ClientConnect;
    Active := True;
  end;
end.

[LoRd-MuldeR]

Wir wär's denn damit?

Delphi-Quellcode:

type
  TMyServerSocket = class(TServerSocket)
  private
    procedure OnClientConnect(Sender: TObject; Socket: TCustomWinSocket); override;
end;

var
  Server: TMyServerSocket;

procedure TMyServerSocket.OnClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  // Dein Code hier!
end;

begin
  //Server starten
  Server := TMyServerSocket.Create(Self);
  with Server do
  begin
    Port := StrToInt(ServerPort);
    ServerType := stNonBlocking;
    ThreadCacheSize := 10;
    Active := True;
  end;
end.

[Rastaman]

Cool das funktioniert schonmal mit dem compilieren jetz
Ob die Prozedur auch aufgerufen wird kann ich erst sehen wenn ich den Client feddich hab

[Rastaman]

Ok ich hab schnell ne Form genommen und n client hingepflanzt der verbindet.
Passiert aber nichts ...
ich halte den Server so am Leben, vllt liegts daran ja:

Delphi-Quellcode:

  while True do
  begin                     //Endlosschleife die den Server am Leben hällt
    if Proceed = False then
      Exit;
  end;

[JasonDX]

Zitat von Gerrit89:

Ok ich hab schnell ne Form genommen und n client hingepflanzt der verbindet.
Passiert aber nichts ...
ich halte den Server so am Leben, vllt liegts daran ja:

Delphi-Quellcode:

  while True do
  begin                     //Endlosschleife die den Server am Leben hällt
    if Proceed = False then
      Exit;
  end;

Es liegt (u.a.) sicher daran. Denn soweit ich das sehe hat das Programm nirgends die Möglichkeit, die Variable 'Proceed' upzudaten, womit das eine ewige Endlosschleife wird
Wozu du diese Schleife brauchst verstehe ich nicht, denn afaik bleibt dir der Server auch so am Leben, bis du ihm sagst, dass er sich und seine Verbindungen umbringen soll

[LoRd-MuldeR]

Zitat von Chimaira:

Zitat von Gerrit89:

Ok ich hab schnell ne Form genommen und n client hingepflanzt der verbindet.
Passiert aber nichts ...
ich halte den Server so am Leben, vllt liegts daran ja:

Delphi-Quellcode:

  while True do
  begin                     //Endlosschleife die den Server am Leben hällt
    if Proceed = False then
      Exit;
  end;

Es liegt (u.a.) sicher daran. Denn soweit ich das sehe hat das Programm nirgends die Möglichkeit, die Variable 'Proceed' upzudaten, womit das eine ewige Endlosschleife wird
Wozu du diese Schleife brauchst verstehe ich nicht, denn afaik bleibt dir der Server auch so am Leben, bis du ihm sagst, dass er sich und seine Verbindungen umbringen soll

Ich glaub das Programm hat keine Form. Ohne die Schleife würde es dann zum Ende laufen und Beenden.

Wenn ich richtig liege, bau dein Server-Programm doch auf ner Form auf. Kannst sie ja mit TForm.Hide unsichbar machen. Dann brauchst du nich diese merkwürdige Schleife...