Pokerprojekt realisierung

[.chicken]

Edit: Natürlich doof wenn man die uses Klausel vergisst -.-

Trotzdem funzt es noch nicht wie ich will, habs nun nochmal n bissl geändert:

Delphi-Quellcode:

unit Server;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Spin, Controller, ScktComp;

type
  TMyServer = class(TServerSocket)
  Private
  Public
    constructor Create;
    procedure MyReadEvent(Sender: TObject; Socket: TCustomWinSocket);
  end;

var
  Controller: TController;
  Server1: TMyServer;  //is das nicht n bisl komisch oder falsch? wenn man dann noch aufs oncreate ereignis guckt, wo dann der Server1.onClientRead zugewiesen wird...das is doch sicher nich ganz sauber oder? müsste ich nicht eigentlich im oncreate einfach TMyServer.onClientRead angeben? (das funzte aber nicht)

implementation

constructor TMyServer.Create;
begin
  inherited Create;  //Hier sagt er "Not enoough actual Parameters"
  Controller := TController.Create;
  Server1.onClientRead := MyReadEvent;
end;

procedure TMyServer.MyReadEvent(Sender: TObject; Socket: TCustomWinSocket);
begin
  Showmessage('Klappt');
end;

end.

So ich glaube dass es jetzt eigentlich klappt, aber beim constructor gibt er immer n Fehler aus! (siehe Kommentar)

Außerdem gibt er ne komische Warnung aus:
"Method Create hides virtual method of base type TServerSocket"

Daraus werd ich noch nicht schlau!