Вернуться   CoderX :: Forums > Основные форумы > Курилка > Пепельница
Войти через OpenID

Пепельница Для тем - мусора...

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 01.07.2012, 11:16   #1
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 88
Сказал Спасибо: 59
Имеет 2 спасибок в 2 сообщенях
Roman32 пока неопределено
По умолчанию Хелп плз))

Приходит 10 пакетов одинаковых одновременно,надо чтоб 1 принимал остальное 9 блочил а то из-за них лаги,помогите замутить)
Roman32 вне форума   Ответить с цитированием
Старый 01.07.2012, 14:05   #2
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

Delphi Код:
const name='Твойник'; var Q:Boolean; Procedure Init; begin q:=false; end; Procedure Free; begin end; begin if (fromServer) and (Connectname=name) and (pck[1]=#$Первый байт твоего пакета) and (q=false) then begin q:=true; SendMSG('Пакет принят'); end; end.
Попробуй я хз накидал приблизительно,не тестил.
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
goodvin1709 вне форума   Ответить с цитированием
За это сообщение goodvin1709 нажился 2 спасибками от:
Старый 01.07.2012, 15:13   #3
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 88
Сказал Спасибо: 59
Имеет 2 спасибок в 2 сообщенях
Roman32 пока неопределено
По умолчанию

Не,не помогло не блочит)
Roman32 вне форума   Ответить с цитированием
Старый 01.07.2012, 17:07   #4
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

так код только на отлов первого и выставление флага. теперь добавляй условие - если флаг есть и пакет равен тому твоему, то блочить.

PHP код:
const
name='Твойник';
var
Q:Boolean;
Procedure Init;
begin
q
:=false;
end;
Procedure Free;
begin
end
;
begin
if (FromServer) and (Connectname=name) and (pck[1]=#$01) then
begin
   
if (q=false)
   
then
   begin
      q
:=true;
      
SendMSG('Пакет принят');
   
end
   
else begin
      pck
:='';
   
end;
end;
end
с ендами и синтаксисом елсе мог напутать
__________________
хочу картинку в подпись!

Последний раз редактировалось SeregaZ, 01.07.2012 в 20:56.
SeregaZ вне форума   Ответить с цитированием
За это сообщение SeregaZ нажился 2 спасибками от:
Старый 01.07.2012, 17:40   #5
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 88
Сказал Спасибо: 59
Имеет 2 спасибок в 2 сообщенях
Roman32 пока неопределено
По умолчанию

Не разобрался я где ты там напутал)не пашет Else
Roman32 вне форума   Ответить с цитированием
Старый 01.07.2012, 20:56   #6
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

поправил... но вобще надо было объяснить суть, а не писать все за тебя...
__________________
хочу картинку в подпись!
SeregaZ вне форума   Ответить с цитированием
За это сообщение SeregaZ нажился 2 спасибками от:
Старый 01.07.2012, 23:51   #7
Пользователь
 
Регистрация: 18.09.2011
Сообщений: 88
Сказал Спасибо: 59
Имеет 2 спасибок в 2 сообщенях
Roman32 пока неопределено
По умолчанию

Я бы с радостью,но не разбираюсь в паскале,большое спс
Roman32 вне форума   Ответить с цитированием
Старый 02.07.2012, 00:57   #8
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

Сори,забыл заблочить еще пакет)
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
goodvin1709 вне форума   Ответить с цитированием
За это сообщение goodvin1709 нажился спасибкой от:
Старый 07.07.2012, 00:58   #9
Местный
 
Аватар для Pinko
 
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
Pinko пока неопределено
По умолчанию

ПИСАТЬ так писать

if (FromServer) and (Connectname=name) and (pck[1]=#$01) then

begin
if (q=false)
then
begin
q:=true;
SendMSG('Пакет принят');
end
else begin
SendMSG('Пакет В ПОМОЙКУ !!!!!!!!!!!!');
pck:='';
end;
__________________
Никого нельзя ничему научить,
но всему можно научиться

народная мудрость

"Если любишь в жизни риск - форматируй жесткий диск!"
Pinko вне форума   Ответить с цитированием
Старый 07.07.2012, 01:06   #10
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

Pinko, Дорогой пользователь, не хочу вас оскорблять но для начала выучите синтаксис паскаля,проверьте свой код и потом постите его,берите код в [highlight="Delphi"],Спасибо.
__________________
---------------------------__--------__-----
---____- ___--____--- ___/'- /__ ___-(__)-____
--/-___-/-__-\/-__--\ /-__--'/--|-/--//---//--__--\
-/-/_/ -/-/_/--/-/_/--/-/_/--/|--|/--'//---//--/-/--/
-\___-/\____/\____/\____/-|____//__'//_'/-/__/
/_-__/
goodvin1709 вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Курилка > Пепельница



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:30.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!