forum.opennet.ru - "Как работать с сетью в TCL?" (12)

форумы

помощь

поиск

регистрация

майллист

вход/выход

слежка

"Как работать с сетью в TCL?"

Форум Программирование под UNIX (Tcl/Tk)
Вариант для распечатки		Пред. тема \| След. тема
Изначальное сообщение		[ Отслеживать ]

"Как работать с сетью в TCL?"	+/–
Сообщение от Taras (??) on 21-Янв-09, 22:40
Как использовать сокеты или другие методы связи в локальной сети в TCL?
Ответить \| Правка \| Cообщить модератору

Оглавление

Как работать с сетью в TCL?, mikra, 11:56 , 23-Янв-09, (1)

Как работать с сетью в TCL?, Taras, 20:35 , 24-Янв-09, (2)

Как работать с сетью в TCL?, Andrey Mitrofanov, 12:11 , 25-Янв-09, (3)

Как работать с сетью в TCL?, Taras, 14:15 , 07-Фев-09, (5)

Как работать с сетью в TCL?, Andrey Mitrofanov, 14:51 , 07-Фев-09, (6)

Как работать с сетью в TCL?, mikra, 11:42 , 26-Янв-09, (4)

Как работать с сетью в TCL?, Taras, 20:23 , 08-Фев-09, (7)

Как работать с сетью в TCL?, gaa, 12:28 , 09-Фев-09, (8)

Как работать с сетью в TCL?, Taras, 12:47 , 09-Фев-09, (9)

Как работать с сетью в TCL?, gaa, 17:26 , 09-Фев-09, (10)

Как работать с сетью в TCL?, unit, 19:58 , 11-Июл-13, (11)

Как работать с сетью в TCL?, unit, 12:43 , 26-Авг-13, (12)

Сообщения по теме [Сортировка по времени | RSS]

1. "Как работать с сетью в TCL?" +/–

Сообщение от mikra on 23-Янв-09, 11:56

>Как использовать сокеты или другие методы связи в локальной сети в TCL?
Удивительно. А как ты так составил запрос в гугле, что не нашел в первой пятерке результатов документации и примеров?

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "Как работать с сетью в TCL?" +/–

Сообщение от Taras (??) on 24-Янв-09, 20:35

>Удивительно. А как ты так составил запрос в гугле, что не нашел
>в первой пятерке результатов документации и примеров?
Я ни одной документации вообще не могу найти на русском. Я язык вообще не знаю, но получил задание - нужно осваивать...

Ответить | Правка | ^ к родителю #1 | Наверх | Cообщить модератору

3. "Как работать с сетью в TCL?" +/–

Сообщение от Andrey Mitrofanov on 25-Янв-09, 12:11

google + tcl по-русски
~~~
http:/docs/RUS/tcltk/tcl.html#socket%20%F3%E9...

Ответить | Правка | ^ к родителю #2 | Наверх | Cообщить модератору

5. "Как работать с сетью в TCL?" +/–

Сообщение от Taras (??) on 07-Фев-09, 14:15

>http:/docs/RUS/tcltk/tcl.html#socket СИНТАКСИС
Спасибо за ссылку!

Ответить | Правка | ^ к родителю #3 | Наверх | Cообщить модератору

6. "Как работать с сетью в TCL?" +/–

Сообщение от Andrey Mitrofanov on 07-Фев-09, 14:51

>Спасибо за ссылку!
Пожалуйста.
Это была "рыба", http://google.ru/search?q=%D0%B4%D0%B0&#... "удочка" была в первой строке. [Само]обучение не передаётся вербально или ссылками..

Ответить | Правка | ^ к родителю #5 | Наверх | Cообщить модератору

4. "Как работать с сетью в TCL?" +/–

Сообщение от mikra on 26-Янв-09, 11:42

>>Удивительно. А как ты так составил запрос в гугле, что не нашел
>>в первой пятерке результатов документации и примеров?
>
>Я ни одной документации вообще не могу найти на русском. Я язык
>вообще не знаю, но получил задание - нужно осваивать...
Плохо дело. Русские версии все старые и местами неполные. Английские надо читать

Ответить | Правка | ^ к родителю #2 | Наверх | Cообщить модератору

7. "Как работать с сетью в TCL?" +/–

Сообщение от Taras (??) on 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

Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

8. "Как работать с сетью в TCL?" +/–

Сообщение от gaa (ok) on 09-Фев-09, 12:28

>А вот если бы кто сказал теперь как по сети копировать файл,
>был бы оооочень благодарен.
>С сокетами разобрался, сервер-клиент работает. Нашел пример как отправить файл, но как
>принять - не знаю...
Мил человек, ну почитай наконец маны, а!
У команды socket есть аргумент -server:
       socket -server command ?options? port
...
SERVER SOCKETS
       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
       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
       with  three  additional arguments: the name of the new channel, the address, in network address notation, of the client’s host, and the client’s
       port number.

Ответить | Правка | ^ к родителю #7 | Наверх | Cообщить модератору

9. "Как работать с сетью в TCL?" +/–

Сообщение от Taras (??) on 09-Фев-09, 12:47

>Мил человек, ну почитай наконец маны, а!
>У команды socket есть аргумент -server:
>       socket -server command ?options? port
Да, сообщения я понял как принять. А файл?

Ответить | Правка | ^ к родителю #8 | Наверх | Cообщить модератору

10. "Как работать с сетью в TCL?" +/–

Сообщение от gaa (ok) on 09-Фев-09, 17:26

> Да, сообщения я понял как принять. А файл?
Принимай пока сокет не закроется. man 3tcl fileevent, http://wiki.tcl.tk/880.

Ответить | Правка | ^ к родителю #9 | Наверх | Cообщить модератору

11. "Как работать с сетью в TCL?" +/–

Сообщение от unit (ok) on 11-Июл-13, 19:58

Всем здравствуйте!=) Вот такой вопрос по теме, как при сокетном соединении проследить(на стороне сервера) наличие подсоединения со стороны клиента.
Уже третий день ломаю голову, не могу найти.
.
.
.
set account [socket -server myproc $port]   // так создаю серверный сокет
proc myproc  {sock addr port} {
fconfigure $sock -buffering line
.
.
.
ну т.д.
Как сделать так что бы когда клиента долго нет сервер закрывал сокет???

Буду очень благодарен за любую помощь, хотя бы подсказку, куда копать?:)

Ответить | Правка | ^ к родителю #10 | Наверх | Cообщить модератору

12. "Как работать с сетью в TCL?" +/–

Сообщение от unit (ok) on 26-Авг-13, 12:43

>[оверквотинг удален]
> set account [socket -server myproc $port]   // так создаю серверный
> сокет
> proc myproc  {sock addr port} {
> fconfigure $sock -buffering line
> .
> .
> .
> ну т.д.
> Как сделать так что бы когда клиента долго нет сервер закрывал сокет???
> Буду очень благодарен за любую помощь, хотя бы подсказку, куда копать?:)
Проблему решил, помогли глобальные переменные=)

Ответить | Правка | ^ к родителю #11 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема

Партнёры:

Хостинг:

Закладки на сайте
Проследить за страницей

Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру

1. "Как работать с сетью в TCL?"	+/–
Сообщение от mikra on 23-Янв-09, 11:56
>Как использовать сокеты или другие методы связи в локальной сети в TCL? Удивительно. А как ты так составил запрос в гугле, что не нашел в первой пятерке результатов документации и примеров?
Ответить \| Правка \| ^ к родителю #0 \| Наверх \| Cообщить модератору


	2. "Как работать с сетью в TCL?"	+/–
	Сообщение от Taras (??) on 24-Янв-09, 20:35
	>Удивительно. А как ты так составил запрос в гугле, что не нашел >в первой пятерке результатов документации и примеров? Я ни одной документации вообще не могу найти на русском. Я язык вообще не знаю, но получил задание - нужно осваивать...
	Ответить \| Правка \| ^ к родителю #1 \| Наверх \| Cообщить модератору


	3. "Как работать с сетью в TCL?"	+/–
	Сообщение от Andrey Mitrofanov on 25-Янв-09, 12:11
	google + tcl по-русски ~~~ http:/docs/RUS/tcltk/tcl.html#socket%20%F3%E9...
	Ответить \| Правка \| ^ к родителю #2 \| Наверх \| Cообщить модератору


	5. "Как работать с сетью в TCL?"	+/–
	Сообщение от Taras (??) on 07-Фев-09, 14:15
	>http:/docs/RUS/tcltk/tcl.html#socket СИНТАКСИС Спасибо за ссылку!
	Ответить \| Правка \| ^ к родителю #3 \| Наверх \| Cообщить модератору


	6. "Как работать с сетью в TCL?"	+/–
	Сообщение от Andrey Mitrofanov on 07-Фев-09, 14:51
	>Спасибо за ссылку! Пожалуйста. Это была "рыба", http://google.ru/search?q=%D0%B4%D0%B0&#... "удочка" была в первой строке. [Само]обучение не передаётся вербально или ссылками..
	Ответить \| Правка \| ^ к родителю #5 \| Наверх \| Cообщить модератору


	4. "Как работать с сетью в TCL?"	+/–
	Сообщение от mikra on 26-Янв-09, 11:42
	>>Удивительно. А как ты так составил запрос в гугле, что не нашел >>в первой пятерке результатов документации и примеров? > >Я ни одной документации вообще не могу найти на русском. Я язык >вообще не знаю, но получил задание - нужно осваивать... Плохо дело. Русские версии все старые и местами неполные. Английские надо читать
	Ответить \| Правка \| ^ к родителю #2 \| Наверх \| Cообщить модератору

7. "Как работать с сетью в TCL?"	+/–
Сообщение от Taras (??) on 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
Ответить \| Правка \| ^ к родителю #0 \| Наверх \| Cообщить модератору


	8. "Как работать с сетью в TCL?"	+/–
	Сообщение от gaa (ok) on 09-Фев-09, 12:28
	>А вот если бы кто сказал теперь как по сети копировать файл, >был бы оооочень благодарен. >С сокетами разобрался, сервер-клиент работает. Нашел пример как отправить файл, но как >принять - не знаю... Мил человек, ну почитай наконец маны, а! У команды socket есть аргумент -server: socket -server command ?options? port ... SERVER SOCKETS 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 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 with three additional arguments: the name of the new channel, the address, in network address notation, of the client’s host, and the client’s port number.
	Ответить \| Правка \| ^ к родителю #7 \| Наверх \| Cообщить модератору


	9. "Как работать с сетью в TCL?"	+/–
	Сообщение от Taras (??) on 09-Фев-09, 12:47
	>Мил человек, ну почитай наконец маны, а! >У команды socket есть аргумент -server: > socket -server command ?options? port Да, сообщения я понял как принять. А файл?
	Ответить \| Правка \| ^ к родителю #8 \| Наверх \| Cообщить модератору


	10. "Как работать с сетью в TCL?"	+/–
	Сообщение от gaa (ok) on 09-Фев-09, 17:26
	> Да, сообщения я понял как принять. А файл? Принимай пока сокет не закроется. man 3tcl fileevent, http://wiki.tcl.tk/880.
	Ответить \| Правка \| ^ к родителю #9 \| Наверх \| Cообщить модератору


	11. "Как работать с сетью в TCL?"	+/–
	Сообщение от unit (ok) on 11-Июл-13, 19:58
	Всем здравствуйте!=) Вот такой вопрос по теме, как при сокетном соединении проследить(на стороне сервера) наличие подсоединения со стороны клиента. Уже третий день ломаю голову, не могу найти. . . . set account [socket -server myproc $port] // так создаю серверный сокет proc myproc {sock addr port} { fconfigure $sock -buffering line . . . ну т.д. Как сделать так что бы когда клиента долго нет сервер закрывал сокет??? Буду очень благодарен за любую помощь, хотя бы подсказку, куда копать?:)
	Ответить \| Правка \| ^ к родителю #10 \| Наверх \| Cообщить модератору


	12. "Как работать с сетью в TCL?"	+/–
	Сообщение от unit (ok) on 26-Авг-13, 12:43
	>[оверквотинг удален] > set account [socket -server myproc $port] // так создаю серверный > сокет > proc myproc {sock addr port} { > fconfigure $sock -buffering line > . > . > . > ну т.д. > Как сделать так что бы когда клиента долго нет сервер закрывал сокет??? > Буду очень благодарен за любую помощь, хотя бы подсказку, куда копать?:) Проблему решил, помогли глобальные переменные=)
	Ответить \| Правка \| ^ к родителю #11 \| Наверх \| Cообщить модератору