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,[])
}