PDA

Просмотр полной версии : Отключение клиента


goodvin1709
20.02.2011, 13:51
Парни я скачал себе пакет хак вроде 3.4 ето версия меня радовала до того времени но после того как я узнал что моно отключить клиент без отключение от сервера то произошла проблема как версия пакетхака неподдержывала команды
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
Но я скачал новую версию хака и вставил процедуру и ефекта 0
вот процедура
if pck='' then exit;
if FromClient and (pck[1]=#$09) and (ConnectName=name1) then begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$7E;
SendToClientex(name1);
end;
в чем тут проблема???

J-Fobos
20.02.2011, 14:58
Вот набор команд для старых версий. Но, лучше пользоваться последней ;) У меня, в версии 3.5.33.166, конструкция что вы написали работает.
NoFreeOnClientDisconnect - запрещает закрытие соединения при дисконекте клиента (v. 3.1.9+)
NoFreeOnServerDisconnect - запрещает закрытие соединения при дисконекте сервера (v. 3.1.9+)
YesFreeOnClientDisconnect - разрешает закрытие соединения при дисконекте клиента (v. 3.1.9+)
YesFreeOnServerDisconnect - разрешает закрытие соединения при дисконекте сервера (v. 3.1.9+)
(по умолчанию закрытия разрешены)
DisconnectServer - закрывает соединение с сервером (v. 3.2.0+)
DisconnectClient - закрывает соединение с клиентом (v. 3.2.0+)

goodvin1709
20.02.2011, 15:26
Спасибо скачал 3.5.33.166
и дописал в скрипт
procedure Disconect;
begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$7E;
SendToClientex(charname);
end;

и в главный бегин вставил

if FromClient and (connectname=charname) then
case pck[1] of
#$09: Disconect;
end;
Вроде нормально почало пахать )

Добавлено через 1 минуту
Тема закрыта)