procedure SendPacket(Size: Word;pck: string; tid: Byte; ToServer: Boolean);
где
Size - размер пакета (размер pck +2)
pck - сам пакет
tid - номер соединения
ToServer - направление отсылки, True на сервер, False - на клиент
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Переходим на протокол нового поколения jabber
|