Поворот изображения с веб-камеры

Форумы Помощь по пакетуПоворот изображения с веб-камеры ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 106

Рейтинг: 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

Ответов: 8921

Рейтинг: 823

#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

Ответов: 106

Рейтинг: 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

Форумы Помощь по пакетуПоворот изображения с веб-камеры ← Ctrl1Ctrl →


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