Вверх ↑
Ответов: 253
Рейтинг: 0
#1: 2018-10-06 12:28:06 ЛС | профиль | цитата
Друзья, в своих старых архивах нашел то, что искал! Всем спасибо. Вот если кому-то вдруг будет нужно. Передача данных через один порт.
Add(MainForm,68161,371,301)
{
Left=21
Top=106
Width=500
Height=230
Position=1
link(onCreate,9973059:doEvent1,[])
}
Add(Edit,7298692,147,385)
{
Left=5
Top=135
Width=110
Text="отправить текст"
link(onEnter,12524206:doWork2,[])
}
Add(StreamPack,14434465,350,385)
{
DataCount=#10:тип данных|6:данные|0:|
link(onPack,7240964:doSend,[])
link(данные,12524206:Data,[(363,373)(339,373)(339,428)(300,428)])
}
Add(StreamUnPack,13235102,581,364)
{
DataCount=#10:тип данных|6:данные|0:|
link(onUnPack,4233687:doEvent,[])
}
Add(TCP_Server,6739532,532,364)
{
Port=111
DataType=3
link(onRead,13235102:doUnPack,[])
}
Add(TCP_Client,7240964,441,371)
{
Port=111
IP="127.0.0.1"
DataType=3
}
Add(Hub,9973059,413,315)
{
link(onEvent1,6739532:doOpen,[(504,321)(504,370)])
link(onEvent2,7240964:doOpen,[(434,328)(434,377)])
}
Add(IndexToChanel,4233687,637,364)
{
Count=4
Point(Index)
Point(Data)
link(onEvent1,9252309:doFileName,[(713,370)(713,223)])
link(onEvent2,4456694:doAdd,[])
link(onEvent3,958573:doCopy,[(688,384)(688,216)])
link(Index,13235102:тип данных,[(643,352)(628,352)(628,412)(587,412)])
link(Data,13235102:данные,[(650,347)(622,347)(622,408)(594,408)])
}
Add(ChanelToIndex,12524206,294,385)
{
Count=4
Point(Data)
link(onIndex,14434465:doPack,[])
}
Add(FileStream,2227522,175,259)
{
link(onLoad,15407374:doData,[])
}
Add(Button,7328284,35,252)
{
Left=5
Top=5
Width=75
Height=60
Caption="отправить данные из файла"
link(onClick,774689:doExecute,[])
}
Add(ODialog,774689,84,252)
{
Title="файл для отправки данных"
link(onExecute,10529649:doEvent1,[])
}
Add(DoData,15407374,231,259)
{
link(onEventData,12524206:doWork3,[(279,265)(279,405)])
link(Data,2227522:Stream,[(237,247)(218,247)(218,302)(181,302)])
}
Add(SDialog,9252309,756,210)
{
Title="сохранить принятые данные в файл"
Point(doFileName)
link(onExecute,15993375:doValue,[])
}
Add(MemoryStream,958573,707,210)
{
link(onCopy,9252309:doExecute,[])
}
Add(FileStream,968047,819,273)
{
Mode=2
Point(doCopyFromStream)
link(FileName,15993375:Value,[])
}
Add(Memory,15993375,819,210)
{
link(onData,329189:doData,[(877,216)(877,317)(698,317)(698,279)])
}
Add(DoData,329189,707,273)
{
link(onEventData,5559598:doEvent1,[])
link(Data,958573:Stream,[])
}
Add(Hub,5559598,770,273)
{
OutCount=3
link(onEvent1,968047:doOpen,[])
link(onEvent2,968047:doCopyFromStream,[(802,286)(802,293)])
link(onEvent3,968047:doClose,[(802,293)(802,286)])
}
Add(Label,13327372,819,371)
{
Left=320
Top=10
Width=90
Color=12639424
Caption="принятый текст:"
AutoSize=1
}
Add(RichEdit,4456694,770,371)
{
Left=300
Top=30
Width=150
Height=125
Color=12639424
ScrollBars=2
}
Add(Label,7520253,294,175)
{
Left=5
Top=65
Width=13
Height=17
Caption="---"
}
Add(Hub,10529649,126,252)
{
link(onEvent1,1742432:doSplit,[(154,258)(154,83)])
link(onEvent2,2227522:doOpen,[])
}
Add(MultiStrPart,1742432,175,77)
{
Char="."
link(onSplit,5348164:doSplit,[(219,83)(219,104)(163,104)(163,125)])
}
Add(MultiStrPart,5348164,175,119)
{
Char="\"
link(onSplit,850361:doStrCat,[(219,125)(219,153)(170,153)(170,181)])
link(Str,1742432:Part1,[])
}
Add(StrCat,850361,182,175)
{
Str2="."
link(onStrCat,3751957:doStrCat,[])
link(Str1,5348164:Part2,[])
}
Add(StrCat,3751957,224,175)
{
link(onStrCat,661063:doEvent1,[])
link(Str2,1742432:Part2,[(237,142)(188,142)])
}
Add(Hub,661063,266,175)
{
link(onEvent1,7520253:doText,[])
link(onEvent2,12524206:doWork1,[(287,188)(287,391)])
}

--- Добавлено в 2018-10-06 12:33:35

Но вот не задача) Как такой метод переменить к пакету Android. не известно

--- Добавлено в 2018-10-06 12:39:52

Конечно можно забить и наделать кучу TCP с разными портами. но ведь так не правильно. Программа может работать не стабильно при большом количестве портов.
карма: 0

0
Редактировалось 3 раз(а), последний 2018-10-06 12:39:52