GAv писал(а):
передать бы но пока не могу понять, что к чему
Add(MainForm,68161,308,105)
{
Left=21
Top=106
Width=1037
Height=536
link(onCreate,46308:doEvent1,[])
}
Add(TCP_Client,52372,420,147)
{
Port=120
IP="127.0.0.1"
DataType=3
link(onRead,14937197:doDeCompress,[])
}
Add(Hub,46308,357,119)
{
link(onEvent1,37674:doOpen,[])
link(onEvent2,52372:doOpen,[(392,132)(392,153)])
}
Add(TCP_Server,37674,1015,119)
{
Port=120
DataType=3
}
Add(Button,3623346,657,224)
{
Left=5
Top=275
Width=135
Height=25
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Connect WebCam"
link(onClick,1518003:doConnect,[])
}
Add(Button,10919198,706,231)
{
Left=155
Top=275
Width=135
Height=25
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="DisConnect WebCam"
link(onClick,1518003:doDisConnect,[])
}
Add(ZLIB,43492,889,280)
{
link(onStream,37674:doSend,[(950,286)(950,139)])
}
Add(ZLIB,14937197,462,140)
{
link(onStream,351980:doUnPack,[])
}
Add(ChildPanel,6995777,308,154)
{
}
BEGIN_SDK
Add(EditMulti,5556220,21,21)
{
}
Add(Panel,12746300,35,105)
{
Left=305
Width=25
Height=375
}
END_SDK
Add(Label,1019185,350,154)
{
Left=10
Top=310
Width=47
Height=17
Caption="Сенрвер"
}
Add(Image,3418065,567,140)
{
Left=335
Top=5
Width=395
Height=320
link(Bitmap,351980:bmp,[(573,131)(559,131)(559,180)(517,180)])
}
Add(WebCam,1518003,770,224)
{
link(WinHandle,1829649:Handle,[])
}
Add(Timer,8930844,728,280)
{
Interval=100
link(onTimer,10034988:doCopy,[])
}
Add(Img_Copy,10034988,770,280)
{
DrawSource=1
Point(Width)
Point(Height)
link(onCopy,15537523:doPack,[])
link(Source,1518003:Handle,[])
link(Width,1829649:Width,[])
link(Height,1829649:Height,[])
}
Add(Image,1829649,777,161)
{
Left=5
Top=10
Width=285
Height=250
Point(Handle)
Point(Width)
Point(Height)
}
Add(StreamPack,15537523,833,280)
{
DataCount=#3:bmp|
link(onPack,43492:doCompress,[])
}
Add(StreamUnPack,351980,511,140)
{
DataCount=#3:bmp|
link(onUnPack,3418065:doLoad,[])
}