Вверх ↑
Этот топик читают: Гость
Ответов: 825
Рейтинг: 13
#1: 2022-12-19 10:00:53 ЛС | профиль | цитата
Нужно отправить видео с веб камеры ТЦП клиенту и показать картинку от веб камеры, но у меня уходить уходит но ,что то не могу понять почему не разворачивает изображения, ну по хорошему ещё и звук от клиента к серверу передать бы но пока не могу понять, что к чему . у кого есть время помогите

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,[])
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 481
Рейтинг: 86
#2: 2022-12-19 11:32:02 ЛС | профиль | цитата
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,[])
}

карма: 10

0
Ответов: 825
Рейтинг: 13
#3: 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 кадров

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

0
Ответов: 481
Рейтинг: 86
#4: 2022-12-19 12:02:50 ЛС | профиль | цитата
GAv писал(а):
но как снять с этой камеры звук и отправить его, и максимально уменьшить задержку меж кадрами

Посмотри в сторону FFMPEG
Ссылка на похожую тему - https://forum.hiasm.com/topic/67988/0
карма: 10

0
Ответов: 825
Рейтинг: 13
#5: 2022-12-19 12:09:16 ЛС | профиль | цитата
я про то без сторонних программ, а именно то что хиасм предлагает.
В целом остался только звук снять

Редактировалось 1 раз(а), последний 2022-12-19 12:09:34
карма: 0

0
Ответов: 481
Рейтинг: 86
#6: 2022-12-19 18:07:37 ЛС | профиль | цитата
GAv писал(а):
В целом остался только звук снять

В папке, где установлен HiAsm есть пример:
HiAsm\Elements\Delphi\Example\Media\BASS\BASS_Sockets.sha
Думаю, это то, что тебе нужно.
карма: 10

0
Ответов: 825
Рейтинг: 13
#7: 2022-12-20 08:53:59 ЛС | профиль | цитата
в целом разобрался.
Посмотри в сторону FFMPEG
Ссылка на похожую тему - https://forum.hiasm.com/topic/67988/0


теперь думаю изучить этот вопрос.
Сервер

1. - Сервер вещает Аудио и Видео поток .
1.1 - Получает код клавиш отправленные клиентом
1.2 - Получает Аудио поток от клиента при необходимости
Клиент

1. Клиент по средством веб JS получает возможность видеть и слышать сервер
2. Отправлять Аудио и код клавиш нажатых
По изучению этого вопроса буду держать в курсе
карма: 0

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)