Вверх ↑
Ответов: 39
Рейтинг: 0
#1: 2011-10-24 15:54:38 ЛС | профиль | цитата
мини доработка этой схемы, штоп имя файла и тип файла указывался при открытии окна сохранения файла


Add(MainForm,68161,469,245)
{
Left=21
Top=106
Width=500
Height=230
Position=1
link(onCreate,9973059:doEvent1,[])
}
Add(Edit,7298692,245,329)
{
Left=5
Top=135
Width=110
Text="отправить текст"
link(onEnter,12524206:doWork2,[])
}
Add(StreamPack,14434465,448,329)
{
DataCount=#10:тип данных|6:данные|0:|
link(onPack,7240964:doSend,[])
link(данные,12524206:Data,[(461,317)(437,317)(437,372)(398,372)])
}
Add(StreamUnPack,13235102,679,308)
{
DataCount=#10:тип данных|6:данные|0:|
link(onUnPack,4233687:doEvent,[])
}
Add(TCP_Server,6739532,630,308)
{
Port=111
DataType=3
link(onRead,13235102:doUnPack,[])
}
Add(TCP_Client,7240964,539,315)
{
Port=111
IP="127.0.0.1"
DataType=3
}
Add(Hub,9973059,511,259)
{
link(onEvent1,6739532:doOpen,[(602,265)(602,314)])
link(onEvent2,7240964:doOpen,[(532,272)(532,321)])
}
Add(IndexToChanel,4233687,735,308)
{
Count=4
Point(Index)
Point(Data)
link(onEvent1,9252309:doFileName,[(811,314)(811,167)])
link(onEvent2,4456694:doAdd,[])
link(onEvent3,958573:doCopy,[(786,328)(786,160)])
link(Index,13235102:тип данных,[(741,296)(726,296)(726,356)(685,356)])
link(Data,13235102:данные,[(748,291)(720,291)(720,352)(692,352)])
}
Add(ChanelToIndex,12524206,392,329)
{
Count=4
Point(Data)
link(onIndex,14434465:doPack,[])
}
Add(FileStream,2227522,273,203)
{
link(onLoad,15407374:doData,[])
}
Add(Button,7328284,133,196)
{
Left=5
Top=5
Width=75
Height=60
Caption="отправить данные из файла"
link(onClick,774689:doExecute,[])
}
Add(ODialog,774689,182,196)
{
Title="файл для отправки данных"
link(onExecute,10529649:doEvent1,[])
}
Add(DoData,15407374,329,203)
{
link(onEventData,12524206:doWork3,[(377,209)(377,349)])
link(Data,2227522:Stream,[(335,191)(316,191)(316,246)(279,246)])
}
Add(SDialog,9252309,854,154)
{
Title="сохранить принятые данные в файл"
Point(doFileName)
link(onExecute,15993375:doValue,[])
}
Add(MemoryStream,958573,805,154)
{
link(onCopy,9252309:doExecute,[])
}
Add(FileStream,968047,917,217)
{
Mode=2
Point(doCopyFromStream)
link(FileName,15993375:Value,[])
}
Add(Memory,15993375,917,154)
{
link(onData,329189:doData,[(975,160)(975,261)(796,261)(796,223)])
}
Add(DoData,329189,805,217)
{
link(onEventData,5559598:doEvent1,[])
link(Data,958573:Stream,[])
}
Add(Hub,5559598,868,217)
{
OutCount=3
link(onEvent1,968047:doOpen,[])
link(onEvent2,968047:doCopyFromStream,[(900,230)(900,237)])
link(onEvent3,968047:doClose,[(900,237)(900,230)])
}
Add(Label,13327372,917,315)
{
Left=320
Top=10
Width=90
Color=12639424
Caption="принятый текст:"
AutoSize=1
}
Add(RichEdit,4456694,868,315)
{
Left=300
Top=30
Width=150
Height=125
Color=12639424
ScrollBars=2
}
Add(Label,7520253,392,119)
{
Left=5
Top=65
Width=13
Height=17
Caption="---"
}
Add(Hub,10529649,224,196)
{
link(onEvent1,1742432:doSplit,[(252,202)(252,27)])
link(onEvent2,2227522:doOpen,[])
}
Add(MultiStrPart,1742432,273,21)
{
Char="."
link(onSplit,5348164:doSplit,[(317,27)(317,48)(261,48)(261,69)])
}
Add(MultiStrPart,5348164,273,63)
{
Char=""
link(onSplit,850361:doStrCat,[(317,69)(317,97)(268,97)(268,125)])
link(Str,1742432:Part1,[])
}
Add(StrCat,850361,280,119)
{
Str2="."
link(onStrCat,3751957:doStrCat,[])
link(Str1,5348164:Part2,[])
}
Add(StrCat,3751957,322,119)
{
link(onStrCat,661063:doEvent1,[])
link(Str2,1742432:Part2,[(335,86)(286,86)])
}
Add(Hub,661063,364,119)
{
link(onEvent1,7520253:doText,[])
link(onEvent2,12524206:doWork1,[(385,132)(385,335)])
}

карма: 0

1
Голосовали:a1m4ig