@ delphisourcer
Du kannst eine Ereignisprozedur nicht selbst aufrufen, sondern must sie als solche definieren.
Dein Beispiel funktioniert, wenn du folgendes änderst (habe ich getestet):
Delphi-Quellcode:
procedure TForm1.btnSendClick(Sender: TObject);
begin
if Client.Active = true then
begin
Client.Socket.SendText(Edit1.Text);
Edit1.Text:='';
// ServerClientRead(Sender,Client); Das ist sinnlos und zu entfernen
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Client := TClientSocket.Create(self);
Server := TServerSocket.Create(self);
server.OnClientRead:=serverclientread; // so wird servercientread als die onread ereignisprozedur definiert
end;
grüsse,
der flossinger