Вверх ↑
Этот топик читают: Гость
Ответов: 113
Рейтинг: 1
#1: 2020-05-16 20:36:32 ЛС | профиль | цитата
Добрый вечер!
пытаюсь сделать передачу данных по сети, не пойму почему клиент принимает ip , сами данные не приходят.

принцип работы:
запускаем сервер, кнопкой Select выбираем нужные папки, им присваивается произвольное имя.
запускаем клиент, при нажатии кнопки folder, он должен получить имена этих папок

Клиент


Add(MainForm,2953706,21,35)
{
Width=600
Height=400
Caption="Client"
BorderStyle=3
Point(Handle)
link(onCreate,11041692:doEvent1,[])
}
Add(TCP_Client,1209096,420,189)
{
link(onRead,1278379:doEvent1,[(485,195)(485,258)])
link(onConnect,6758429:doOn,[(478,202)(478,216)])
link(onDisconnect,6758429:doOff,[])
link(IP,745804:Var3,[(426,145)])
link(Port,14130257:Var2,[])
}
Add(Button,11867604,294,49)
{
Left=10
Top=35
Caption="Start"
link(onClick,9524605:doWork1,[(342,55)])
}
Add(Button,7572458,294,98)
{
Left=105
Top=35
Width=50
Caption="Stop"
link(onClick,9773900:doEvent2,[(342,104)(342,223)])
}
Add(LED,6758429,504,196)
{
Left=75
Top=35
Width=10
Height=20
Shape=1
Blick=1
ColorOff=8421504
}
Add(Edit,10786280,231,98)
{
Left=10
Top=10
Width=145
}
Add(PosWindow,6794716,126,49)
{
Left=800
Top=10
link(Handle,2953706:Handle,[(132,37)(69,37)(69,79)(27,79)])
}
Add(Hub,11041692,77,49)
{
OutCount=5
link(onEvent1,6794716:doLeft,[])
link(onEvent2,6794716:doTop,[])
link(onEvent3,16475755:doPing,[(109,69)(109,104)])
}
Add(Ping,16475755,126,98)
{
link(onFind,11849400:doEvent1,[])
}
Add(TCPStat,1451980,231,168)
{
Point(doPortIsOpen)
Point(onPortIsOpen)
Point(IP)
Point(Port)
link(onPortIsOpen,4215139:doWork2,[])
link(IP,745804:Var2,[])
link(Port,14130257:Var1,[(244,155)])
}
Add(If_else,15496589,294,182)
{
Op2=Integer(1)
link(onTrue,1309321:doEvent1,[])
link(onFalse,9773900:doEvent1,[(335,195)(335,216)])
}
Add(LED,5357324,504,154)
{
Left=85
Top=35
Width=10
Height=20
Shape=1
Blick=1
ColorOn=8388863
ColorOff=8421504
}
Add(Hub,11849400,168,98)
{
OutCount=4
link(onEvent1,10786280:doText,[])
link(onEvent2,4215139:doWork3,[(211,111)(211,230)(277,230)])
link(onEvent3,9229903:doWork,[(194,118)(194,153)(58,153)(58,188)])
link(onEvent4,9524605:doWork2,[])
}
Add(GetDataEx,745804,231,140)
{
link(Data,10786280:Text,[])
}
Add(Hub,1309321,357,182)
{
InCount=2
link(onEvent1,5357324:doOn,[(392,188)(392,174)])
link(onEvent2,1209096:doOpen,[])
}
Add(Hub,9773900,357,210)
{
InCount=2
link(onEvent1,5357324:doOff,[(392,216)(392,167)])
link(onEvent2,1209096:doClose,[(395,223)(395,202)])
}
Add(GetDataEx,14130257,434,150)
{
link(Data,2882415:Text,[])
}
Add(HubEx,4215139,273,182)
{
link(onEvent,15496589:doCompare,[])
}
Add(Check,9229903,84,182)
{
Check=1
Caption="stat"
link(onEvent,1451980:doPortIsOpen,[])
}
Add(Edit,2882415,434,98)
{
Left=165
Top=10
Text="15505"
}
Add(HubEx,9524605,338,119)
{
Angle=1
link(onEvent,1309321:doEvent2,[(342,195)])
}
Add(StatusBar,13677617,21,105)
{
}
Add(Button,11642096,504,77)
{
Left=225
Top=10
Caption="Settings"
link(onClick,14786908:doWork1,[])
}
Add(ChildForm,14786908,602,77)
{
link(onEvent1,4182886:In,[])
}
BEGIN_SDK
Add(EditMulti,10840387,21,21)
{
EventCount=1
WorkCount=2
Width=454
Height=270
link(doWork1,9520409:doEvent1,[(42,27)(42,90)])
link(doWork2,12269949:doText,[(213,34)(213,244)])
}
Add(MainForm,12540324,133,56)
{
Left=35
Top=105
Visible=1
BorderStyle=3
Position=1
Point(doVisible)
Point(doShowModal)
}
Add(Hub,9520409,63,84)
{
link(onEvent1,12540324:doVisible,[])
link(onEvent2,12540324:doShowModal,[])
}
Add(StatusBar,12269949,406,238)
{
}
Add(FormatStr,12097525,140,168)
{
Mask="#1_#folder"
link(onFString,10840387:onEvent1,[(324,174)(324,27)])
}
Add(Button,4815585,70,168)
{
Left=20
Top=20
link(onClick,12097525:doString,[])
}
Add(Memo,13484897,91,63)
{
Left=95
Top=60
Width=225
Height=180
}
END_SDK
Add(Hub,14976108,357,259)
{
InCount=3
link(onEvent1,1209096:doSend,[(405,265)(405,209)])
}
Add(LineBreak,11514592,245,259)
{
link(Out,14976108:doEvent1,[])
Primary=[4182886,427,-182]
}
Add(LineBreak,3314516,560,84)
{
link(Out,14786908:doWork2,[])
Primary=[15790149,0,42]
}
Add(FormatStr,10449590,210,322)
{
Mask="#1_#folder_"
link(onFString,14976108:doEvent2,[(300,328)(300,272)])
}
Add(Button,13875648,140,322)
{
Left=10
Top=90
Caption="folder"
link(onClick,10449590:doString,[])
}
Add(Memo,15410251,637,252)
{
Left=10
Top=145
Width=230
Height=190
}
Add(FormatStr,3146712,210,385)
{
Mask="#1_#ip_"
link(onFString,14976108:doEvent3,[(300,391)(300,279)])
}
Add(Button,11426428,140,385)
{
Left=10
Top=115
Caption="ip"
link(onClick,3146712:doString,[])
}
Add(Hub,1278379,497,252)
{
link(onEvent1,15410251:doAdd,[])
}



сервер


Add(TCP_Server,3293325,70,119)
{
Point(onServerConnect)
Point(onServerDisconnect)
link(onRead,16389118:doEvent1,[(114,125)(114,230)])
link(onConnect,6642633:doString,[])
link(onDisconnect,8343298:doString,[])
link(Data,12449257:Text,[])
link(Port,4935958:Text,[])
link(onServerConnect,2935614:doOn,[(135,146)(135,41)])
link(onServerDisconnect,2935614:doChangeValue,[(135,153)(135,27)])
}
Add(MainForm,2953706,280,21)
{
Width=700
Height=400
Caption="Server"
BorderStyle=3
Point(Handle)
link(onCreate,11041692:doEvent1,[])
}
Add(Button,1634873,14,119)
{
Left=10
Top=35
Caption="Start"
link(onClick,3293325:doOpen,[])
}
Add(Button,6496507,14,126)
{
Left=105
Top=35
Width=50
Caption="Stop"
link(onClick,3293325:doClose,[])
}
Add(LED,2935614,168,21)
{
Left=75
Top=35
Width=20
Height=20
Shape=1
Blick=1
}
Add(Edit,12449257,70,21)
{
Left=10
Top=10
Width=145
}
Add(ChanelToIndex,9642162,273,126)
{
Point(Data)
link(onIndex,9750258:doAdd,[(317,132)(317,164)(261,164)(261,195)])
}
Add(FormatStr,6642633,182,126)
{
Mask="Connect;%1"
link(onFString,9642162:doWork1,[])
}
Add(FormatStr,8343298,189,133)
{
Mask="Disconnect;%1"
link(onFString,9642162:doWork2,[])
}
Add(StringTable,9750258,273,189)
{
Left=10
Top=70
Width=145
Height=230
Columns=#10:Статус =60|2:ip|
link(Str,9642162:Data,[])
}
Add(PosWindow,6794716,371,35)
{
Left=10
Top=10
link(Handle,2953706:Handle,[(377,23)(324,23)(324,65)(286,65)])
}
Add(Hub,11041692,336,35)
{
OutCount=4
link(onEvent1,6794716:doLeft,[])
link(onEvent2,6794716:doTop,[])
link(onEvent3,16475755:doPing,[(360,55)(360,90)])
}
Add(Ping,16475755,371,84)
{
link(onFind,4478707:In,[])
}
Add(LineBreak,12443007,14,28)
{
Caption="ip"
link(Out,12449257:doText2,[])
Primary=[4478707,399,56]
}
Add(MT_String,2902104,168,266)
{
link(onResult,13517571:doSplit,[])
}
Add(Edit,4935958,77,63)
{
Left=160
Top=10
Text="15505"
}
Add(Button,8784378,357,133)
{
Left=285
Top=165
Caption="Select"
link(onClick,5389445:doEvent1,[])
}
Add(Browse,7724821,427,140)
{
Title=""
Edit=1
NewStyle=0
NewDirButton=1
link(onBrowse,12929017:doEvent1,[])
}
Add(Edit,6854113,665,105)
{
Left=350
Top=165
Width=270
Text=""
}
Add(FormatStr,7273009,665,203)
{
Mask="%1;%2"
link(onFString,3292683:doMTString,[])
link(Str1,6854113:Text,[])
link(Str2,687741:Var2,[])
}
Add(Edit,940900,672,49)
{
Left=350
Top=190
Width=135
Text="MyFolder"
link(onEnter,4423850:doWork3,[(709,62)(709,153)])
}
Add(StatusBar,15884978,301,315)
{
}
Add(Hub,12929017,476,140)
{
OutCount=4
link(onEvent1,6854113:doText,[(544,146)(544,111)])
link(onEvent2,4423850:doWork2,[])
link(onEvent4,11188726:doNext,[(525,167)(525,62)])
}
Add(If_else,11566046,595,196)
{
Op1=Integer(0)
Op2=String()
link(onFalse,7273009:doString,[])
link(Op1,687741:Var1,[(601,173)])
}
Add(GetDataEx,687741,672,168)
{
link(Data,940900:Text,[])
}
Add(HubEx,4423850,574,147)
{
Angle=1
link(onEvent,11566046:doCompare,[(578,202)])
}
Add(FormatStr,12097525,602,322)
{
Mask="#1_#folder_%1"
link(onFString,16531873:doEvent1,[])
}
Add(MultiStrData,13517571,217,266)
{
@Hint=#10:#1_#folder|
link(onPart1,15216442:doEvent1,[])
link(onPart2,15884978:doText,[(268,279)(268,321)])
AddHint(-34,50,67,13,@Hint)
}
Add(MultiElementEx,15216442,301,266)
{
link(onTrue,4563698:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,4142094,21,21)
{
WorkCount=#8:doEvent1|
EventCount=#6:onTrue|7:onTrue1|
Width=475
Height=319
link(doEvent1,7035332:doEvent1,[(35,27)(35,55)])
}
Add(Case,7761661,196,112)
{
Value=String(#1)
Point(doDataOnTrue)
link(onTrue,11497845:doSplit,[])
AddHint(-3,41,38,13,Value)
}
Add(StrPart,16178536,98,49)
{
Char="_"
Point(Left)
Point(Right)
}
Add(Case,7716965,322,126)
{
Value=String(#folder)
link(onTrue,4142094:onTrue,[(425,139)(425,27)])
AddHint(-16,45,58,13,Value)
}
Add(Hub,7035332,49,49)
{
OutCount=3
link(onEvent1,16178536:doSplit,[])
link(onEvent3,11361018:doData,[(81,69)(81,118)])
}
Add(DoData,11361018,98,112)
{
link(onEventData,16053967:doEvent1,[])
link(Data,16178536:Left,[])
}
Add(Case,13326740,196,189)
{
Value=String(#1)
Point(doDataOnTrue)
link(onTrue,12776925:doSplit,[])
AddHint(-3,41,38,13,Value)
}
Add(Case,5013352,322,203)
{
Value=String(#ip)
link(onNextCase,4142094:onTrue1,[(425,209)(425,34)])
AddHint(-16,45,40,13,Value)
}
Add(StrPart,12776925,259,196)
{
Char="_"
link(onPart,5013352:doCase,[])
link(Str,16007472:Var2,[])
}
Add(Hub,16053967,147,112)
{
OutCount=3
link(onEvent1,7761661:doCase,[])
link(onEvent2,13326740:doCase,[(179,125)(179,195)])
}
Add(StrPart,11497845,273,119)
{
Char="_"
link(onPart,7716965:doCase,[])
link(Str,16007472:Var3,[(279,89)])
}
Add(GetDataEx,16007472,259,84)
{
Angle=3
link(Data,16178536:Right,[(111,89)])
}
END_SDK
Add(MTStrTbl,12823404,833,28)
{
Left=285
Top=20
Width=195
Height=135
Name="folder"
Columns=#6:Folder|10:UserFolder|
Point(onKeyDown)
link(onKeyDown,1762039:doCase,[(877,62)(877,80)(765,80)(765,97)])
}
Add(MST_RowAction,15814156,770,189)
{
MSTControl="folder"
}
Add(MST_RowAction,1251165,840,98)
{
Action=3
MSTControl="folder"
Point(Index)
link(Index,12823404:Index,[])
}
Add(Case,1762039,777,91)
{
Value=Integer(46)
Point(doDataOnTrue)
link(onTrue,1251165:doRowAction,[])
}
Add(MT_String,3292683,721,189)
{
link(onResult,15814156:doRowAction,[])
}
Add(MST_ArrayRows,473812,406,203)
{
MSTControl="folder"
}
Add(MT_MTArrayEnum,12109237,406,273)
{
link(onItem,1042851:doSeparateMT,[])
link(onEndEnum,9479972:doSum,[(453,286)(453,328)])
link(Array,473812:Strings,[])
}
Add(MT_MultiData,1042851,469,273)
{
link(onData2,6192297:doAdd,[(520,286)(520,265)])
}
Add(StrList,6192297,539,259)
{
}
Add(Hub,4563698,357,266)
{
link(onEvent1,6192297:doClear,[])
link(onEvent2,12109237:doEnum,[])
}
Add(FormatStr,11643714,616,56)
{
Mask="MyFolder%1"
link(onFString,940900:doText2,[])
}
Add(CounterEx,11188726,560,56)
{
link(onNext,11643714:doString,[])
}
Add(DoData,2009679,616,112)
{
link(onEventData,6854113:doText2,[])
}
Add(Hub,5389445,399,133)
{
link(onEvent1,2009679:doData,[(515,139)(515,118)])
link(onEvent2,7724821:doBrowse,[])
}
Add(ArraySum,9479972,553,322)
{
link(onSum,12097525:doString,[])
link(Array,6192297:Array,[])
}
Add(Memo,1435615,826,329)
{
Left=295
Top=265
Width=220
ScrollBars=2
}
Add(Hub,16531873,651,322)
{
link(onEvent1,3293325:doSend,[(708,328)(708,458)(58,458)(58,139)])
link(onEvent2,1431474:doWork2,[])
}
Add(Hub,16389118,126,224)
{
link(onEvent1,2902104:doStr,[(154,230)(154,272)])
link(onEvent2,1431474:doWork1,[(753,237)])
}
Add(HubEx,1431474,749,329)
{
link(onEvent,1435615:doAdd,[])
}


--- Добавлено в 2020-05-16 21:30:28

разобрался,
2020-05-16_21-33-02.png
точка не ip а данные )
Редактировалось 3 раз(а), последний 2020-05-16 21:30:28
карма: 0
well done turner
0
vip
#1.1контекстная реклама от партнеров
1
Сообщение
...
Прикрепленные файлы
(файлы не залиты)