я именно немогу зделать переадресацыю когда пакет приходит(
Добавлено через 27 минут
я понел моно вроде так
const = 'Name' ;
var
a : integer
begin
a:=1
if FromServer and (ConnectName='Name') and (pck = HStr('64 3F 00 00 00 02 00 00 00 01 00 00 00 01 00 00 00 03 00 00 00 87 16 00 00') then
begin
b:=A+1 ;
sendmsg('Заточкено в суме з +7 на +8');
sendmsg(vartostr(b));
end;
end;
end.
Добавлено через 19 часов 2 минуты
begin
if FromClient and (ConnectName='ник')
and (pck=HStr('пакет который пришел з инфой заточки')) then
begin
Вот тут я незнаю как зделать))
end;
end.
вот моно както так
Добавлено через 5 минут
dyh9l, а ты был прав если по паскалю то можно
Inc(x)
зделать
x:=x+1;
Последний раз редактировалось goodvin1709, 21.02.2011 в 19:41.
Причина: Добавлено сообщение
|