Вверх ↑
Ответов: 1343
Рейтинг: 31
#1: 2014-02-22 15:29:29 ЛС | профиль | цитата
вот это работает 100% и выходной файл можно использовать...

вот переделал немного покрасивше

Add(MainForm,12292430,21,14)
{
}
Add(TCP_Server,5164519,182,154)
{
Port=25500
DataType=3
link(onConnect,5164519:doSend,[(229,167)(229,201)(173,201)(173,174)])
link(Data,13694100:Var1,[(188,75)])
}
Add(TCP_Client,9869978,182,210)
{
Port=25500
IP="127.0.0.1"
DataType=3
link(onRead,4272301:doRead,[])
}
Add(Hub,10355875,140,203)
{
link(onEvent1,5164519:doOpen,[(168,209)(168,160)])
link(onEvent2,9869978:doOpen,[])
}
Add(Image,15500712,294,210)
{
Left=25
Top=35
Align=5
}
Add(BitmapStream,14596104,329,98)
{
link(Stream,13694100:Var2,[])
link(Bitmap,8995776:Bitmap,[(342,86)(276,86)(276,142)(209,142)])
}
Add(Button,325837,42,98)
{
Left=230
Top=225
Width=75
TabOrder=-1
link(onClick,312596:doCapture,[])
}
Add(MemoryStream,14061641,329,35)
{
Point(doPosition)
}
Add(Hub,2906662,252,98)
{
OutCount=4
link(onEvent1,14061641:doClear,[(290,104)(290,48)])
link(onEvent2,14596104:doWrite,[])
link(onEvent3,14061641:doPosition,[(298,118)(298,55)])
link(onEvent4,10355875:doEvent1,[(278,125)(278,167)(128,167)(128,209)])
}
Add(GetDataEx,13694100,329,70)
{
link(Data,14061641:Stream,[])
}
Add(BitmapStream,4272301,231,210)
{
link(onRead,15500712:doLoad,[])
}
Add(ScreenShort,312596,91,98)
{
link(onCapture,9625340:doEvent1,[])
link(Handle,10231968:Value,[])
}
Add(Bitmap,8995776,203,84)
{
}
Add(Hub,9625340,147,98)
{
link(onEvent1,8995776:doLoad,[(182,104)(182,90)])
link(onEvent2,2906662:doEvent1,[(207,111)(207,104)])
}
Add(Memory,10231968,91,42)
{
Default=Integer(0)
}

и вот через STR

Add(MainForm,12292430,21,14)
{
}
Add(TCP_Server,5164519,182,154)
{
Port=25500
link(onConnect,5164519:doSend,[(229,167)(229,201)(173,201)(173,174)])
link(Data,3372792:FString,[(188,133)(454,133)])
}
Add(TCP_Client,9869978,182,210)
{
Port=25500
IP="127.0.0.1"
link(onRead,15617355:doSearch,[])
}
Add(Hub,10355875,140,203)
{
link(onEvent1,5164519:doOpen,[(168,209)(168,160)])
link(onEvent2,9869978:doOpen,[])
}
Add(Image,15500712,385,210)
{
Left=25
Top=35
Align=5
}
Add(BitmapStream,14596104,329,98)
{
link(Stream,4264750:Var2,[])
link(Bitmap,8995776:Bitmap,[(342,86)(276,86)(276,142)(209,142)])
}
Add(Button,325837,42,98)
{
Left=230
Top=225
Width=75
TabOrder=-1
link(onClick,312596:doCapture,[])
}
Add(MemoryStream,14061641,329,35)
{
Point(doPosition)
}
Add(Hub,2906662,252,98)
{
OutCount=5
link(onEvent1,14061641:doClear,[(290,104)(290,48)])
link(onEvent2,14596104:doWrite,[])
link(onEvent3,14061641:doPosition,[(298,118)(298,55)])
link(onEvent4,10506516:doConvert,[(332,125)(332,41)])
link(onEvent5,10355875:doEvent1,[(278,132)(278,170)(128,170)(128,209)])
}
Add(BitmapStream,4272301,329,210)
{
link(onRead,15500712:doLoad,[])
}
Add(ScreenShort,312596,91,98)
{
link(onCapture,9625340:doEvent1,[])
link(Handle,10231968:Value,[])
}
Add(Bitmap,8995776,203,84)
{
}
Add(Hub,9625340,147,98)
{
link(onEvent1,8995776:doLoad,[(182,104)(182,90)])
link(onEvent2,2906662:doEvent1,[(207,111)(207,104)])
}
Add(Memory,10231968,91,42)
{
Default=Integer(0)
}
Add(BlockFind,15617355,231,210)
{
IncludeBlock=1
StartBlock="{"
EndBlock="}"
link(onSearch,13296561:doConvert,[])
}
Add(StreamConvertor,13296561,280,210)
{
Mode=1
link(onResult,4272301:doRead,[])
}
Add(StreamConvertor,10506516,399,35)
{
link(onResult,3372792:doString,[])
link(Data,4264750:Var3,[(405,23)(365,23)(365,75)])
}
Add(FormatStr,3372792,448,35)
{
DataCount=1
Mask="{%1}"
Point(FString)
}
Add(GetDataEx,4264750,329,70)
{
link(Data,14061641:Stream,[])
}

ну и теперь посмотрим кто из нас прав
карма: 2

0
файлы: 1code_33143.txt [462B] [248]