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 :gruebel:

[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 :thumb:
Ob die Prozedur auch aufgerufen wird kann ich erst sehen wenn ich den Client feddich hab :mrgreen:

[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:

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 :mrgreen:

[LoRd-MuldeR]

Zitat:

Zitat von Chimaira

Zitat:

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 :mrgreen:

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...