Проблема с передачей данных

[Guest]

Проблема в следущем:
При отпраки сообщения по сетки я немогу обработать пришедший текст с сервера на клиент
Код отправки с сервера на клиента..
procedure TForm1.Button4Click(Sender: TObject);
var i:Integer;
begin
if Checkbox1.Checked then begin
for i:=0 to ListBox1.Items.Capacity do
try ServerSocket1.Socket.Connections.SendText('LOGOFF');
except end;
if Checkbox2.Checked then begin
for i:=0 to ListBox1.Items.Capacity do
try ServerSocket1.Socket.Connections.SendText('SHUTDOWN');
except end;
if Checkbox3.Checked then begin
for i:=0 to ListBox1.Items.Capacity do
try ServerSocket1.Socket.Connections.SendText('REBOOT');
except end;
if Checkbox4.Checked then begin
for i:=0 to ListBox1.Items.Capacity do
try ServerSocket1.Socket.Connections.SendText('DisableTaskMgr');
except end;
end; end;end; end; end;
-----------------
Код клиента:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
reg:TRegistry;
s:string;
ip:string;
begin
ip:=Socket.RemoteAddress;
reg:=TRegistry.Create;
s:=Socket.ReceiveText;
if s = 'LOGOFF' then
ExitWindowsEx(EWX_LOGOFF or ewx_force,0);
Socket.SendText(ip+': Óäà÷íî âûëåø èç ñèñòåìû');
if s = 'DisableTaskMgr' then
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('Software\Microsoft\Windows\CurrentVersion\Policies\System',false);
reg.WriteBool('DisableTaskMgr',true);
reg.CloseKey;
Socket.SendText(ip+': Äèñïå÷åð çàäà÷ âûêëþ÷åí');
if s = 'SHUTDOWN' then
ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0);
Socket.SendText(ip+': Âûêëþ÷åí');
if s = 'REBOOT' then
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
Socket.SendText(ip+': Ïåðåçàãðóæåí');
end;
-------------
Тойсть срабатывает толшько ЛОГ ОФФ а остальные функция не работают помогите как написать надо ?

 

[62316e]

Если не ощыбаюсь в каталоге \Demos лежыт пример(ы) как юзать твои сокеты.

 

[Barmutik]

У меня какое-то странное ощущение что в коде после if не хватает begin end ..