Вверх ↑
Этот топик читают: Гость
Ответов: 704
Рейтинг: 44
#1: 2012-11-29 17:51:25 ЛС | профиль | цитата
Вечер добрый всем. Скажите пожалуйста, требуется помощь для реализации одного проекта, я собираю схему для работы через клиент сервер, есть у меня одна загвоздка, немогу допетрить каким образом можно прикрутить компонент Browse для копирование данных, т.е если клиент подключился к серверу и дал добро для копирование данных с его компьютера. Может кто дать немного доп мозгов . Если этого не возможно может у кого есть какие идеи. Буду очень благодарен.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2012-11-29 17:59:36 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-11 06:31:02
карма: 0

0
Ответов: 704
Рейтинг: 44
#3: 2012-11-29 18:08:08 ЛС | профиль | цитата
Да, но я должен сам выбрать эти файлы.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2012-11-29 18:09:48 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-11 06:31:02
карма: 0

0
Ответов: 704
Рейтинг: 44
#5: 2012-11-29 18:54:43 ЛС | профиль | цитата
Ок спасибо, попробую. Плюс поставил бы но вы не известный.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2012-11-29 19:22:21 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-11 06:31:03
карма: 0

0
Ответов: 704
Рейтинг: 44
#7: 2012-11-29 22:42:46 ЛС | профиль | цитата
[flood]Я не отличаю по Ip кто с Италии, кто с Франции мне до лампочки , вижу ник ставлю бал.
net-93-148-210-28.cust.ds писал(а):
А за сообщениями и рейтингами я не гоняюсь, мне от них не жарко не холодно
Согласен. Но благодарность должна быть, какая-то. [/flood]
карма: 0

1
Голосовали:Gunnman
Ответов: 655
Рейтинг: 18
#8: 2012-11-29 22:57:03 ЛС | профиль | цитата
Присоединяюсь к вопросу!

Предложенная выше схема однозначно рабочая, но интересует немного другой результат:
Как сделать выбор файлов через Browse или другой компонент на удаленной машине, на которой как раз TCP Client установлен? Т.е. мне нужно с сервера видеть дискифайлы на удаленной машине.

карма: 0

0
Ответов: 1058
Рейтинг: 76
#9: 2012-11-30 00:53:03 ЛС | профиль | цитата
Kazbek17 писал(а):
Я не отличаю по Ip

Ладно, так уж и быть...
net-93-148-210-28.cust.ds >>> это Я

Gunnman писал(а):
мне нужно с сервера видеть дискифайлы на удаленной машине

Вы уж извините, но у меня Ваш вопрос ассоциируется с:
Как мне незаметно залезть на чужой комп, посмотреть имеющиеся файлы и стырить меня интересующие.
К сожалению, а может и к счастью, я не изменяю своим принципам. Не помогаю делать всякого рода "бяку"

Могу только подсказать воспользоваться поиском и найти tcp чат с отправкой сообщений и файлов и по аналогии переделать под свои нужды.
карма: 0

0
Ответов: 655
Рейтинг: 18
#10: 2012-11-30 00:58:56 ЛС | профиль | цитата
Нет тырить ни чего не надо. Передать файл незаметно с клиента на сервер можно кучей способов) но мне это не нужно, вопрос именно в удаленном просмотре дисков и папок. Ни какого вредительства, я взрослый человек.
карма: 0

0
Ответов: 1058
Рейтинг: 76
#11: 2012-11-30 01:33:46 ЛС | профиль | цитата
Gunnman писал(а):
вопрос именно в удаленном просмотре дисков и папок

Делать чтото готовое нету времени, вот для примера чуть измененная схема, исключительно показать как можно просматривать папки и файлы.
Add(MainForm,10023180,175,154)
{
Width=647
Height=158
link(onCreate,1277618:doEvent1,[])
}
Add(TCP_Server,13179667,364,168)
{
Port=25
DataType=3
link(onRead,238220:doUnPack,[(440,174)(440,153)])
}
Add(StreamUnPack,4656024,420,329)
{
DataCount=#6:browse|6:search|
link(onUnPack,16696934:doSearch,[])
}
Add(TCP_Client,14765468,364,329)
{
Port=25
IP="127.0.0.1"
DataType=3
link(onRead,4656024:doUnPack,[])
}
Add(Hub,1277618,224,168)
{
link(onEvent1,13179667:doOpen,[])
link(onEvent2,14765468:doOpen,[(301,181)(301,335)])
}
Add(StreamPack,3606325,532,259)
{
DataCount=#6:browse|6:search|
link(onPack,13179667:doSend,[(578,265)(578,203)(352,203)(352,188)])
link(browse,1934192:Text,[])
}
Add(Edit,1934192,532,210)
{
Left=70
Top=5
Width=560
Text="C:"
}
Add(StreamUnPack,238220,483,147)
{
DataCount=#6:browse|6:search|
link(onUnPack,16697049:doAdd,[])
}
Add(StreamPack,12435028,518,406)
{
DataCount=#6:browse|6:search|
link(onPack,14765468:doSend,[(562,412)(562,380)(352,380)(352,349)])
link(search,5778609:Text,[])
}
Add(FileSearch,16696934,462,329)
{
Dir="."
SubDir=1
Include=2
link(onSearch,5778609:doAdd,[])
link(onEndSearch,12435028:doPack,[(506,342)(506,412)])
link(Dir,4656024:browse,[(475,317)(451,317)(451,373)(426,373)])
}
Add(StrList,5778609,525,329)
{
}
Add(Memo,16697049,623,147)
{
Left=5
Top=30
Width=630
ScrollBars=3
link(Str,238220:search,[(629,135)(563,135)(563,191)(496,191)])
}
Add(Hub,14749002,497,252)
{
link(onEvent1,16697049:doClear,[(567,258)(567,160)])
link(onEvent2,3606325:doPack,[])
}
Add(Button,10717408,455,252)
{
Left=5
Top=5
Caption="Обзор"
link(onClick,14749002:doEvent1,[])
}



карма: 0

0
Ответов: 655
Рейтинг: 18
#12: 2012-11-30 09:18:13 ЛС | профиль | цитата
Пример хороший но не то, показывает файлы,а не каталоги, а если сделать отображение каталогов? Можно будет в них заходить удаленно?
карма: 0

0
Ответов: 1058
Рейтинг: 76
#13: 2012-12-01 03:57:55 ЛС | профиль | цитата
Gunnman писал(а):
а если сделать отображение каталогов?

А самому попробовать? А поиском воспользоваться?
tom-it писал(а):
и найти tcp чат с отправкой сообщений и файлов и по аналогии переделать под свои нужды.


TCP_Client
code_29643.txt

TCP_Server
code_29644.txt

Учтите, пример работает только в связке один сервер-один клиент.
Схему не причесывал и не оптимизировал, исключительно для примера.
карма: 0

0
файлы: 2code_29643.txt [5.3KB] [109], code_29644.txt [8.7KB] [190]
Ответов: 704
Рейтинг: 44
#14: 2012-12-20 12:26:30 ЛС | профиль | цитата
Друзья товарищи, подскажите пожалуйста, как упаковать папку в которой находятся файлы. Можете наколочку дать, сижу в редакторе Hiasm и не чего в голову не лезет.
карма: 0

0
Ответов: 5227
Рейтинг: 587
#15: 2012-12-20 12:33:53 ЛС | профиль | цитата
http://forum.hiasm.com//getfile/27871
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)