https://www.opennet.ru/openforum/vsluhforumID9/7846.html Как использовать сокеты или другие методы связи в локальной сети в TCL?<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#12 Mon, 26 Aug 2013 08:43:10 GMT &gt;[оверквотинг удален]<br>&gt; set account [socket -server myproc $port] // так создаю серверный <br>&gt; сокет <br>&gt; proc myproc {sock addr port} { <br>&gt; fconfigure $sock -buffering line <br>&gt; .<br>&gt; .<br>&gt; .<br>&gt; ну т.д.<br>&gt; Как сделать так что бы когда клиента долго нет сервер закрывал сокет??? <br>&gt; Буду очень благодарен за любую помощь, хотя бы подсказку, куда копать?:) <br><br>Проблему решил, помогли глобальные переменные=)<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#11 Thu, 11 Jul 2013 15:58:37 GMT Всем здравствуйте!=) Вот такой вопрос по теме, как при сокетном соединении проследить(на стороне сервера) наличие подсоединения со стороны клиента. <br>Уже третий день ломаю голову, не могу найти.<br>.<br>.<br>. <br>set account [socket -server myproc $port] // так создаю серверный сокет<br><br>proc myproc {sock addr port} {<br>fconfigure $sock -buffering line<br>.<br>.<br>.<br>ну т.д.<br><br>Как сделать так что бы когда клиента долго нет сервер закрывал сокет???<br> <br>Буду очень благодарен за любую помощь, хотя бы подсказку, куда копать?:)<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#10 Mon, 09 Feb 2009 14:26:39 GMT &gt; Да, сообщения я понял как принять. А файл? <br><br>Принимай пока сокет не закроется. man 3tcl fileevent, http://wiki.tcl.tk/880.<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#9 Mon, 09 Feb 2009 09:47:19 GMT &gt;Мил человек, ну почитай наконец маны, а! <br>&gt;У команды socket есть аргумент -server: <br>&gt; socket -server command ?options? port <br><br>Да, сообщения я понял как принять. А файл?<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#8 Mon, 09 Feb 2009 09:28:42 GMT &gt;А вот если бы кто сказал теперь как по сети копировать файл, <br>&gt;был бы оооочень благодарен. <br>&gt;С сокетами разобрался, сервер-клиент работает. Нашел пример как отправить файл, но как <br>&gt;принять - не знаю... <br><br>Мил человек, ну почитай наконец маны, а!<br>У команды socket есть аргумент -server:<br> socket -server command ?options? port<br>...<br>SERVER SOCKETS<br> If the -server option is specified then the new socket will be a server for the port given by port. Tcl will automatically accept connections<br> to the given port. For each connection Tcl will create a new channel that may be used to communicate with the client. Tcl then invokes command<br> with three additional arguments: the name of the new channel, the address, in network address notation, of the client&#8217;s host, and the client&#8217;s<br> port number.<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#7 Sun, 08 Feb 2009 17:23:19 GMT &gt;Как использовать сокеты или другие методы связи в локальной сети в TCL? <br>&gt;<br><br>А вот если бы кто сказал теперь как по сети копировать файл, был бы оооочень благодарен.<br>С сокетами разобрался, сервер-клиент работает. Нашел пример как отправить файл, но как принять - не знаю...<br><br>proc Cleanup {in out bytes {error {}}} { <br>global total <br>set total $bytes <br>close $in <br>сlose $out <br>if {[string length $error]!= 0} { <br># error occurred during the copy <br>}<br>} <br><br>#### Открыть файл на чтение <br>set in [open f:/diplom/test.txt] <br>#### Открыть сетевое соединение <br>set out [socket 127.0.0.1 9920] <br>#### Скопировать, по окончании копирования вызвать Cleanup <br>fcopy $in $out -command [list Cleanup $in $out] <br>#### Ожидать завершения копирования <br>vwait total<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#6 Sat, 07 Feb 2009 11:51:19 GMT &gt;Спасибо за ссылку! <br><br>Пожалуйста.<br><br>Это была "рыба", http://google.ru/search?q=%D0%B4%D0%B0%D1%82%D1%8C+%D1%80%D1%8B%D0%B1%D0%B0+%D1%83%D0%B4%D0%BE%D1%87%D0%BA%D0%B0 "удочка" была в первой строке. [Само]обучение не передаётся вербально или ссылками..<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#5 Sat, 07 Feb 2009 11:15:01 GMT &gt;http:/docs/RUS/tcltk/tcl.html#socket СИНТАКСИС <br><br>Спасибо за ссылку!<br> https://www.opennet.ru/openforum/vsluhforumID9/7846.html#4 Mon, 26 Jan 2009 08:42:32 GMT &gt;&gt;Удивительно. А как ты так составил запрос в гугле, что не нашел <br>&gt;&gt;в первой пятерке результатов документации и примеров? <br>&gt;<br>&gt;Я ни одной документации вообще не могу найти на русском. Я язык <br>&gt;вообще не знаю, но получил задание - нужно осваивать... <br><br>Плохо дело. Русские версии все старые и местами неполные. Английские надо читать<br>