Друзья, в своих старых архивах нашел то, что искал! Всем спасибо. Вот если кому-то вдруг будет нужно. Передача данных через один порт. 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 с разными портами. но ведь так не правильно. Программа может работать не стабильно при большом количестве портов. Редактировалось 3 раз(а), последний 2018-10-06 12:39:52
|