пока ждал вот так решил. но задержка меж кадров ещё слишком большая 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 да конечно ваш вариант на много лучше. но как снять с этой камеры звук и отправить его, и максимально уменьшить задержку меж кадрами стоит 1 RefreshRate , но плавности не хватает причину нашёл камера работала в 20 кадров
|