Вверх ↑
Этот топик читают: Гость
Ответов: 77
Рейтинг: 0
#1: 2021-05-17 14:33:22 ЛС | профиль | цитата
Здравствуйте, подскажите как сделать поворот на угол изображения с веб-камеры

Add(MainForm,2309237,105,133)
{
Left=20
Top=105
Width=551
Height=423
Ctl3D=0
Caption="WebCam"
Position=1
Point(onShow)
}
Add(Image,16220859,434,126)
{
Left=5
Top=5
Width=352
Height=288
TabOrder=-1
Ctl3D=0
Point(Handle)
}
Add(Button,3623346,230,91)
{
Left=35
Top=310
Width=135
Height=25
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Caption="Connect WebCam"
link(onClick,9402563:doEvent1,[])
}
Add(WebCam,10066069,427,182)
{
RefreshRate=67
FileDIB="WebCam.bmp"
FileVideo="WebCam.avi"
Point(doSaveDIB)
Point(doVideoSource)
Point(doEditCopy)
Point(doVideoFormat)
Point(doVideoCompression)
Point(doStartSequence)
Point(doStopSequence)
link(onProgress,9976547:doWork2,[])
link(WinHandle,16220859:Handle,[])
}
Add(Hub,9402563,280,91)
{
OutCount=4
link(onEvent2,9976547:doWork1,[(508,104)])
link(onEvent3,10066069:doConnect,[(362,111)(362,188)])
}
Add(Application,5619086,546,189)
{
}
Add(HubEx,9976547,504,189)
{
link(onEvent,5619086:doProcessMessages,[])
}
Add(Img_Rotate,15890894,329,245)
{
}
Add(ScrollBar,6750078,266,238)
{
Left=35
Top=355
Width=320
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 8695
Рейтинг: 806
#2: 2021-05-17 17:27:02 ЛС | профиль | цитата
Gitarist,
Пример


Add(MainForm,2309237,224,91)
{
Left=5
Top=5
Height=340
Ctl3D=0
Caption="WebCam"
Point(onClose)
Point(Handle)
link(onCreate,10066069:doConnect,[])
link(onClose,10066069:doDisConnect,[])
}
Add(WebCam,10066069,301,105)
{
RefreshRate=67
FileDIB="WebCam.bmp"
FileVideo="WebCam.avi"
Point(doEditCopy)
link(WinHandle,2309237:Handle,[(321,96)(286,96)(286,131)(230,131)])
}
Add(Timer,15495268,224,140)
{
Interval=100
link(onTimer,10066069:doEditCopy,[(294,146)(294,125)])
}
Add(ChildForm,12602121,364,105)
{
}
BEGIN_SDK
Add(EditMulti,8982237,21,21)
{
}
Add(MainForm,15428969,49,42)
{
Left=200
Top=150
Width=657
Height=520
}
Add(Image,1787808,231,98)
{
Width=641
Height=481
Align=5
TabOrder=-1
Ctl3D=0
ViewStyle=1
Point(Handle)
}
Add(Img_Rotate,5984468,175,98)
{
link(onResult,1787808:doLoad,[])
link(Bitmap,12018088:Bitmap,[])
link(Angle,10752557:Position,[(188,89)(230,89)])
}
Add(ScrollBar,10752557,224,49)
{
Left=5
Width=320
Max=180
Min=-180
Page=30
}
Add(ClipboardHook,13765006,98,42)
{
link(onBitmap,7764525:doEvent1,[])
}
Add(Bitmap,12018088,175,49)
{
}
Add(Hub,7764525,140,49)
{
link(onEvent1,12018088:doLoad,[])
link(onEvent2,5984468:doRotate,[(165,62)(165,104)])
}
END_SDK

карма: 19

0
Ответов: 77
Рейтинг: 0
#3: 2021-05-18 15:54:09 ЛС | профиль | цитата
Леонид писал(а):
Gitarist,
Пример

ЭЭэээмм.. Ничего теперь не скопировать не вставить, буфер не доступен... Все подтормаживает. И если окно с которого идет копирование в буфер сделать невидимым, то не работает. а зачем мне 2 ...
Нужен другой вариант ... Неужели ничего нельзя сделать, может форму вращать или что то типа того...

Ну ок, я сделал передачу картинки через файл, а не буфер, теперь буфер свободный... Но курсор мыши как ненормальный мигает... Избавиться от второго изображения смоглось при помощи его уменьшения до 1х1 пикс)))))))) Костыль на костыле а не прога)))
код

Add(MainForm,2309237,140,98)
{
Left=5
Top=5
Width=363
Height=340
Ctl3D=0
Caption="WebCam"
Point(onClose)
Point(Handle)
link(onCreate,10066069:doConnect,[])
link(onClose,10066069:doDisConnect,[])
}
Add(WebCam,10066069,217,112)
{
RefreshRate=67
ViewStyle=0
FileDIB="WebCam.bmp"
FileVideo="WebCam.avi"
Point(RefreshRate)
Point(doSaveDIB)
link(WinHandle,6330294:Handle,[])
}
Add(Timer,15495268,140,147)
{
Interval=10
link(onTimer,10066069:doSaveDIB,[(206,153)(206,132)])
}
Add(Image,6330294,224,56)
{
Left=1
Top=1
Width=1
Height=1
Point(Handle)
}
Add(ChildGroupBox,14113878,287,112)
{
}
BEGIN_SDK
Add(EditMulti,12559562,21,21)
{
Width=482
}
Add(GroupBox,12228494,35,105)
{
Left=5
Width=352
Height=312
}
Add(Timer,11216645,133,49)
{
Interval=10
link(onTimer,10147323:doLoad,[])
}
Add(Image,7268931,336,112)
{
Left=2
Top=15
Width=348
Height=295
Align=5
TabOrder=-1
Ctl3D=0
ViewStyle=0
Point(Handle)
}
Add(Img_Rotate,2559902,280,112)
{
link(onResult,7268931:doLoad,[])
link(Bitmap,11123454:Bitmap,[])
link(Angle,906831:Result,[(293,90)(384,90)])
}
Add(ScrollBar,4260888,329,49)
{
Left=25
Top=15
Width=320
Max=720
Page=30
link(onPosition,906831:doOperation,[])
}
Add(Bitmap,11123454,280,49)
{
}
Add(Hub,6033424,238,49)
{
link(onEvent1,11123454:doLoad,[])
link(onEvent2,1853085:doWork1,[(266,62)])
}
Add(Math,906831,378,49)
{
OpType=3
Op2=4
link(onResult,1853085:doWork3,[(422,55)(422,97)])
}
Add(PictureStream,10147323,182,49)
{
FileName="WebCam.bmp"
Quality=5
link(onLoad,6033424:doEvent1,[])
}
Add(HubEx,1853085,262,91)
{
Angle=1
link(onEvent,2559902:doRotate,[(266,118)])
}
END_SDK


Может есть какой то выход ?

Редактировалось 2 раз(а), последний 2021-05-18 16:21:24
карма: 0

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