Показать сообщение отдельно
Старый 21.05.2009, 01:56   #75
Новичок
 
Регистрация: 20.05.2009
Сообщений: 2
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
telefunken82 пока неопределено
По умолчанию

разобрался
вот что получил
begin
if FromClient and (ConnectName='terr1') and (pck=HStr('56 00 00 00 00 00 00 00 00 00'))
then
begin
buf:=HStr('56 0D 00 00 00 00 00 00 00 00');
SendToServerEx('terr2');
pck:='';
end;
end.
так все работает
telefunken82 вне форума   Ответить с цитированием