ServerSocket1ClientRead

[flossinger]

@ 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