Хелп плз))

[Roman32]

Приходит 10 пакетов одинаковых одновременно,надо чтоб 1 принимал остальное 9 блочил а то из-за них лаги,помогите замутить)

[goodvin1709]

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.

Попробуй я хз накидал приблизительно,не тестил.

[Roman32]

Не,не помогло не блочит)

[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. 


с ендами и синтаксисом елсе мог напутать

[Roman32]

Не разобрался я где ты там напутал)не пашет Else

[SeregaZ]

поправил... но вобще надо было объяснить суть, а не писать все за тебя...

[Roman32]

Я бы с радостью,но не разбираюсь в паскале,большое спс

[goodvin1709]

Сори,забыл заблочить еще пакет)

[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;

[goodvin1709]

Pinko, Дорогой пользователь, не хочу вас оскорблять но для начала выучите синтаксис паскаля,проверьте свой код и потом постите его,берите код в [highlight="Delphi"],Спасибо.