Исходное сообщение
"Как работать с сетью в TCL?" Отправлено Taras, 08-Фев-09 20:23
>Как использовать сокеты или другие методы связи в локальной сети в TCL? > А вот если бы кто сказал теперь как по сети копировать файл, был бы оооочень благодарен. С сокетами разобрался, сервер-клиент работает. Нашел пример как отправить файл, но как принять - не знаю... proc Cleanup {in out bytes {error {}}} { global total set total $bytes close $in сlose $out if {[string length $error]!= 0} { # error occurred during the copy } } #### Открыть файл на чтение set in [open f:/diplom/test.txt] #### Открыть сетевое соединение set out [socket 127.0.0.1 9920] #### Скопировать, по окончании копирования вызвать Cleanup fcopy $in $out -command [list Cleanup $in $out] #### Ожидать завершения копирования vwait total