Also ich hab vom Server noch nicht viel!
Delphi-Quellcode:
unit Server;
interface
uses Controller;
type
TServer =
class(TServerSocket)
Private
Public
constructor Create;
end;
var
Controller: TController;
Server: TServer;
implementation
constructor TServer.Create;
begin
inherited Create;
Controller := TController.Create;
end;
end.
Ich dachte jetzt eigentlich, dass ich vielleicht irgendwie sowas schreiben kann:
Delphi-Quellcode:
MyEvent: Procedure (Sender: TObject) of Object; //richtig so? :D
Server.onClientRead := MyEvent;
procedure TForm1.MyEvent(Sender:TObject);
begin
blablabla;
end;
Sodass wenn eine Nachricht eingeht "blablabla" ausgeführt wird.
Wie realisier ich das nun? Weil eigentlich müsste TServerSocket doch onClientRead kennen oder nicht? Aber die Auto-Vervollständigung gibt da garnix aus....
Verstehste jetzt wo mein Problem is? Wie der Server arbeitet hab ich im groben schon verstanden!
Danke für deine Hilfe!