Add(MainForm,68161,742,70)
{
Left=21
Top=106
Width=1037
Height=536
link(onCreate,46308:doEvent1,[])
}
Add(TCP_Client,52372,854,112)
{
Port=120
IP="127.0.0.1"
DataType=3
link(onRead,14937197:doDeCompress,[])
}
Add(BitmapStream,30541,938,105)
{
link(onRead,3418065:doLoad,[])
}
Add(Hub,46308,791,84)
{
link(onEvent1,37674:doOpen,[])
link(onEvent2,52372:doOpen,[(826,97)(826,118)])
}
Add(TCP_Server,37674,1449,84)
{
Port=120
DataType=3
}
Add(Button,3623346,944,266)
{
Left=5
Top=275
Width=135
Height=25
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Connect WebCam"
link(onClick,9402563:doEvent1,[])
}
Add(Button,10919198,1063,273)
{
Left=155
Top=275
Width=135
Height=25
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="DisConnect WebCam"
link(onClick,6203314:doEvent1,[])
}
Add(Hub,9402563,994,266)
{
link(onEvent1,10066069:doConnect,[])
link(onEvent2,4858777:doTimer,[(1026,279)(1026,104)])
}
Add(Timer,4858777,1064,98)
{
Interval=200
Enable=1
link(onTimer,937320:doEvent1,[])
}
Add(BitmapStream,10552268,1316,182)
{
link(Stream,220734:Var2,[])
}
Add(MemoryStream,15524284,1316,91)
{
}
Add(Hub,9695341,1232,189)
{
link(onEvent1,10552268:doWrite,[])
link(onEvent2,43492:doCompress,[(1267,202)(1267,237)])
}
Add(ZLIB,43492,1288,231)
{
link(onStream,37674:doSend,[(1384,237)(1384,104)])
link(Stream,220734:Var1,[(1294,159)])
}
Add(GetDataEx,220734,1316,154)
{
link(Data,15524284:Stream,[])
}
Add(ZLIB,14937197,896,105)
{
link(onStream,30541:doRead,[])
}
Add(Hub,6203314,1113,273)
{
link(onEvent1,10066069:doDisConnect,[])
link(onEvent2,4858777:doStop,[(1139,286)(1139,198)(1052,198)(1052,111)])
}
Add(ChildPanel,6995777,742,119)
{
}
BEGIN_SDK
Add(EditMulti,5556220,21,21)
{
}
Add(Panel,12746300,35,105)
{
Left=305
Width=25
Height=375
}
END_SDK
Add(Label,1019185,784,119)
{
Left=10
Top=310
Width=47
Height=17
Caption="Сенрвер"
}
Add(WebCam,10066069,1169,266)
{
RefreshRate=67
FileDIB="WebCam.bmp"
FileVideo="WebCam.avi"
link(WinHandle,1998033:Handle,[])
}
Add(PaintBox,1998033,1176,105)
{
Left=5
Top=10
Width=285
Height=250
Point(Handle)
link(onBeforeDraw,10428161:doData,[(1220,111)(1220,156)(1164,156)(1164,195)])
}
Add(DoData,10428161,1176,189)
{
link(onEventData,9695341:doEvent1,[])
link(Data,1998033:Bitmap,[])
}
Add(Image,3418065,987,105)
{
Left=335
Top=5
Width=395
Height=320
}
Add(Hub,937320,1148,98)
{
link(onEvent1,15524284:doClear,[])
link(onEvent2,1998033:doRefresh,[])
}
Ответов: 841
Рейтинг: 17
|
|||
Нужно отправить видео с веб камеры ТЦП клиенту и показать картинку от веб камеры, но у меня уходить уходит но ,что то не могу понять почему не разворачивает изображения, ну по хорошему ещё и звук от клиента к серверу передать бы но пока не могу понять, что к чему . у кого есть время помогите
|
|||
карма: 0 |
|