aber wie muß ich dann den Client schreiben,wenn ich nur eine
Variable nehme funktioniert es nicht.
Code:
procedure TForm1.AusführenClick(Sender: TObject);
var
orders : string;
begin
if checkbox1.Checked = True then
begin
orders := 'öffnen';
Clientsocket1.Socket.SendText(orders);
end;
if Checkbox2.Checked = True then
begin
orders := 'schließen';
Clientsocket1.Socket.SendText(Text);
end;
end;
wenn ich jetzt das Prog. ausführe dann funktoniert der erste Befehl "öffnen", wenn ich dann die 2 Checkbox aktiviere wird nichts ausgeführt.
Was ist in meinen Code falsch ???
mfg Vader