VPF::Почему не обрабатывается событие

pomogite

Дата 9.12.2013, 22:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Здравствуйте! Такая проблема, сервер не обрабатывает второе событие ClientRead. Вот код:

Код


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  Socket: TCustomWinSocket);
    var window:HWND;
begin
if Socket.ReceiveText  = 'Start' then
    begin
        window:=findwindow(nil,PChar(pansichar(Edit1.Text)));
        if window=0 then
        ShellExecute(Form1.Handle,nil,pansichar(Edit1.Text),nil,nil,SW_SHOWNORMAL);
    end;


if Socket.ReceiveText  = 'Stop' then
  begin
    KillTask('starbound_server.exe');
  end;
end;

Старт обрабатывается правильно, а вот завершать процесс не хочет, если поменять условия местами, то работает стоп, а старт перестаёт, подскажите в чём проблема?

snowonthetree

Дата 9.12.2013, 22:30 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 0
Регистрация: 25.11.2012

Репутация: нет
Всего: нет

Попробуйте ввести дополнительную переменную, присвойте ей Socket.ReceiveText, а затем сравнивайте ее значение.

Этот ответ добавлен с нового Винграда - http://vingrad.com

pomogite

Дата 11.12.2013, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

snowonthetree,
Спасибо!

Решение:

Код


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
    var window:HWND;
    command:string;
   // i:integer;
Socket1 : TCustomWinSocket;
begin
command:= Socket.ReceiveText;
if command  = 'Start' then
    begin
        window:=findwindow(nil,PChar(pansichar(Edit1.Text)));
        if window=0 then
        ShellExecute(Form1.Handle,nil,pansichar(Edit1.Text),nil,nil,SW_SHOWNORMAL);
    end;
if command  = 'Stop' then
  begin
    KillTask(Edit4.Text);
  end;
if command  = 'Test' then
  begin
   window:=findwindow(nil,PChar(pansichar(Edit1.Text)));
      if window=0 then
      Serversocket1.Socket.Connections[0].SendText('Ñåðâåð íå ðàáîòàåò.')
      else
      Serversocket1.Socket.Connections[0].SendText('Ñåðâåð ðàáîòàåò.')
  end;
memo1.Lines.Add(DateToStr(Time)+' *** '+r_ip+' *** '+command);
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »