Можно пара вишней?

[klemberg]

почему бы просто не юзать клиент, сидя перед монитором?

[Underwhy]

Сообщение от klemberg

почему бы просто не юзать клиент, сидя перед монитором?

+100500, Терпение и труд все перетрут!
[Волкер действительно неплохой выход >_>.. как мне кажется.]

[alexteam]

если я правильно понял задумку скрипта - то.. по идее вот так.

const
     CHAR_NAME = 'Bzdoo';
var
  logoutok : boolean;

procedure init;
begin
  logoutok := false;
end;

begin
     if pck='' then exit;
     if (ConnectName=CHAR_NAME) then begin

          if (FromClient) then begin
               if (pck[1]=#$6F) then 
               begin
                    //Не забыл ли ты обнулить пакет ? 
                    //pck := 0 или реквайст должен пройти на сервер ?
                    NoFreeOnClientDisconnect; //разрешить отключение клиента онли. при отключении сервера тунель будет разрушаться, что и должно происходить.
                    logoutok := true; //флаг
                    buf:=#$7E; //шлем логауток на клиент
                    SendToClientEx(CHAR_NAME);
               end;
          end;
     end;

if (ConnectName=CHAR_NAME) and FromServer and logoutok then pck := ''; //!!!! не пропускать пакеты на клиент через ПХ!! если он уже отключен.


end.

Добавлено через 1 минуту
в любом случае, попробуй привыкнуть к 100+. :P

[klemberg]

alexteam, большое спасибо.
Тему можно закрыть ибо не актуальна, а лучше удалить ибо автор лапух и ему стыдно.


ЗЫ: 38 билд рулит

[alexteam]

эм... а в чем причина то ?.. в обнулении pck ?

зы. 38 где ты его отрыл.. 0_о

Добавлено через 2 минуты
Тему удалять не стоит. если конечно решение в данном топике все таки есть. ибо кто знает, может ктото еще будет ловить 10038ю.

[klemberg]

эм... а в чем причина то ?

if (ConnectName=CHAR_NAME) and FromServer and logoutok then pck := ''; //!!!! не пропускать пакеты на клиент через ПХ!! если он уже отключен. 
 

зы. 38 где ты его отрыл.. 0_о

блин, 83-й
3.4.1.83

[klemberg]

Ух ты! Это ж моя тема!

Ребят, если обнуляете пакет, то после команды

pck := '';

пишите

exit;

- это вам съэкономит немного времени и нервов при отладке (постояно на этом попадаюсь)

[alexteam]

нахуйа ?...
юзать кейс не проще ? не ?

[xkor]

alexteam, тсс!, не пали секретное оружие)
ЗЫ а вообще case эт конечно хорошо и здорово, но вот только условие не всегда одно и целочисленное)