Client/Server - Befehle an den Server senden

[Ultimator]

Delphi-Quellcode:

//Beim Client
procedure TForm1.Machwas;
begin
ClientSocket1.Socket.SendText('Zeige Nachricht');
end;

//Dann beim Server im OnClientRead
begin
if Socket.ReceiveText = 'Zeige Nachricht' then
 ShowMessage('Hier wie verlangt die Nachricht');
end;