Цитата:
Сообщение от Lilium
а как сделать что бы несколько пакетов посылал?
|
вот так например:
delphi Код:
begin
if FromClient
and (pck=HStr('xx yy zz')) then begin
buf:=HStr('zz xx yy 00 00');
SendToServer;
buf:=HStr('zz xx yy сс 00');
SendToServer;
pck:='';
end;
end.