Мне нужна процедура, которая будет выполнять следующие шаги:
1.настроит соединение
2.отправит 2 сообщение
3.разорвет соединение
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | procedure OnOff (ip,pass,onORoff: String;CS: TClientSocket);
begin
CS.Port:= 2424;
CS.Host:= ip;
CS.Active:=True;
CS.Socket.SendText('$KE,PSW,SET,'+ pass +#13+#10);
if(onORoff = 'on')
then begin
CS.Socket.SendText('$KE,WR,1,0'+#13+#10);
end
else begin
CS.Socket.SendText('$KE,WR,1,1'+#13+#10);
end;
CS.Active:=False;
end;
|
как решить проблему?
думал решить проблему добавив: sleep(500); но программа перестает вообще что-то делать.