Вверх ↑
Ответов: 839
Рейтинг: 17
#1: 2022-12-19 11:40:30 ЛС | профиль | цитата
пока ждал вот так решил. но задержка меж кадров ещё слишком большая
Add(MainForm,68161,511,70)
{
Left=21
Top=106
Width=1373
Height=516
link(onCreate,46308:doEvent1,[])
}
Add(TCP_Client,52372,623,112)
{
Port=121
IP="127.0.0.1"
DataType=3
link(onRead,15437956:doRead,[])
}
Add(Hub,46308,560,84)
{
link(onEvent1,37674:doOpen,[])
link(onEvent2,52372:doOpen,[(595,97)(595,118)])
}
Add(TCP_Server,37674,1722,84)
{
Port=121
DataType=3
}
Add(Button,3623346,832,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,951,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,882,266)
{
link(onEvent1,10066069:doConnect,[])
link(onEvent2,4858777:doTimer,[(914,279)(914,104)])
}
Add(Timer,4858777,952,98)
{
Interval=0
Enable=1
link(onTimer,937320:doEvent1,[])
}
Add(BitmapStream,10552268,1547,182)
{
link(Stream,220734:Var2,[])
}
Add(MemoryStream,15524284,1547,91)
{
}
Add(Hub,9695341,1463,189)
{
link(onEvent1,10552268:doWrite,[])
link(onEvent2,14550993:doData,[(1529,202)(1529,237)])
}
Add(ZLIB,43492,1512,252)
{
link(Stream,220734:Var1,[(1518,159)])
}
Add(GetDataEx,220734,1547,154)
{
link(Data,7469085:Var2,[])
}
Add(Hub,6203314,1001,273)
{
link(onEvent1,10066069:doDisConnect,[])
link(onEvent2,4858777:doStop,[(1027,286)(1027,198)(940,198)(940,111)])
}
Add(ChildPanel,6995777,511,119)
{
}
BEGIN_SDK
Add(EditMulti,5556220,21,21)
{
}
Add(Panel,12746300,35,105)
{
Left=305
Width=25
Height=375
}
END_SDK
Add(Label,1019185,511,161)
{
Left=10
Top=310
Width=47
Height=17
Caption="Сенрвер"
}
Add(WebCam,10066069,1162,266)
{
RefreshRate=1
FileDIB="WebCam.bmp"
FileVideo="WebCam.avi"
Point(doEditCopy)
link(WinHandle,16220859:Handle,[])
}
Add(Hub,937320,1036,98)
{
OutCount=3
link(onEvent1,15524284:doClear,[])
link(onEvent2,9950240:doData,[(1138,111)(1138,195)])
link(onEvent3,10066069:doEditCopy,[(1106,118)(1106,286)])
}
Add(Image,16220859,1169,21)
{
Left=10
Top=5
Width=282
Height=263
TabOrder=-1
Ctl3D=0
Point(Handle)
Point(doRefresh)
}
Add(DoData,9950240,1372,189)
{
link(onEventData,9695341:doEvent1,[])
link(Data,13095079:Bitmap,[])
}
Add(Clipboard,13095079,1365,140)
{
}
Add(BitmapStream,15437956,686,112)
{
link(onRead,19361:doLoad,[])
}
Add(Image,19361,756,112)
{
Left=350
Top=6
Width=515
Height=355
ViewStyle=0
}
Add(DoData,14550993,1582,231)
{
link(onEventData,37674:doSend,[(1615,237)(1615,104)])
link(Data,7469085:Var3,[(1588,145)])
}
Add(GetDataEx,7469085,1547,140)
{
link(Data,15524284:Stream,[])
}

Gunta да конечно ваш вариант на много лучше. но как снять с этой камеры звук и отправить его, и максимально уменьшить задержку меж кадрами
Add(WebCam,1518003,553,154)
{
RefreshRate=1
}
стоит 1 RefreshRate , но плавности не хватает причину нашёл камера работала в 20 кадров
карма: 0

0
Редактировалось 6 раз(а), последний 2022-12-19 11:52:31