Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2015-01-09 00:17:25 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:02
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2015-01-09 11:19:28 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:03
карма: 0

0
Ответов: 1343
Рейтинг: 31
#3: 2015-01-09 12:06:45 ЛС | профиль | цитата
code_34872.txt
карма: 2

0
файлы: 1code_34872.txt [1.3KB] [606]
Гость
Ответов: 17029
Рейтинг: 0
#4: 2015-01-09 12:35:53 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:03
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2015-01-09 12:40:02 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:03
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2015-01-09 13:23:47 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:03
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2015-01-09 13:29:09 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:04
карма: 0

0
Ответов: 1343
Рейтинг: 31
#8: 2015-01-09 14:59:55 ЛС | профиль | цитата
broadband-178-140-72-247. писал(а):
А при подаче с web камеры - черное окно


если я так понимаю, то при подаче изображения с веб камеры, компонент РИСУЕТ изображение на HANDLE
карма: 2

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2015-01-09 17:14:19 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:04
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2015-01-09 18:24:07 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:04
карма: 0

0
Ответов: 8923
Рейтинг: 823
#11: 2015-01-09 18:24:31 ЛС | профиль | цитата
178.140.72.247, через буфер можно, сжать тоже, в поток направить, все элементы есть
code_34880.txt
карма: 19

0
файлы: 1code_34880.txt [1.2KB] [514]
Гость
Ответов: 17029
Рейтинг: 0
#12: 2015-01-09 21:19:46 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:04
карма: 0

0
Ответов: 8923
Рейтинг: 823
#13: 2015-01-09 21:59:08 ЛС | профиль | цитата
178.140.72.247, говорящий IP, а компилятор Delphi не установлен? или на продажу программку готовите?
Проверил на FPC, аналогично, не компилируется
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2015-01-09 22:09:59 правка | ЛС | профиль | цитата


Редактировалось 6 раз(а), последний 2021-05-21 05:27:04
карма: 0

0
Ответов: 1343
Рейтинг: 31
#15: 2015-01-10 11:11:43 ЛС | профиль | цитата
да чё вы все паритесь..., там же точка есть для сохранения изображения в файл, сохранил и прочитал
если руки есть, сделать можно
------------ Дoбавленo в 11.07:
Add(MainForm,6043140,287,280)
{
Width=746
Height=506
Color=8421504
Caption="123"
BorderStyle=1
Position=1
link(onCreate,37674:doOpen,[])
}
Add(WebCam,10171744,490,140)
{
RefreshRate=100
FileDIB="cam1.bmp"
Point(doEditCopy)
Point(doSaveDIB)
Point(doVideoFormat)
Point(doVideoSource)
link(WinHandle,10718376:Handle,[])
}
Add(Image,10718376,497,14)
{
Left=645
Top=5
Width=90
Height=65
Color=0
Ctl3D=0
WinStyle=1
Point(Handle)
Point(doRefresh)
}
Add(Edit,12948717,567,392)
{
Left=645
Top=145
Width=90
Color=-16777201
Font=[Arial,8,0,0,204]
Ctl3D=1
WinStyle=2
Text="127.0.0.1"
Alignment=2
}
Add(ButtonRush,6487693,35,203)
{
Left=645
Top=170
Width=90
Height=50
Color=8421504
Font=[Arial,8,0,0,204]
Ctl3D=0
Caption="отправить"
Glyphs=[]
link(onClick,11370034:doEvent1,[])
}
Add(ButtonRush,5779171,273,175)
{
Left=645
Top=225
Width=90
Color=8421504
Font=[Arial,8,0,0,204]
Ctl3D=0
Caption="Отмена"
Glyphs=[]
link(onClick,16366262:doEvent1,[])
}
Add(Hub,11370034,112,203)
{
OutCount=4
link(onEvent1,4478063:doEvent1,[(135,209)(135,111)])
link(onEvent2,2401444:doWork2,[(186,216)(186,167)])
link(onEvent4,14408162:doEvent1,[(133,230)(133,573)])
}
Add(Hub,16366262,329,175)
{
OutCount=4
link(onEvent1,10171744:doDisConnect,[(392,181)(392,153)])
link(onEvent2,37674:doClose,[(378,188)(378,307)])
link(onEvent3,52372:doClose,[(371,195)(371,482)])
link(onEvent4,11780859:doStop,[(355,202)(355,412)(163,412)(163,587)])
}
Add(TCP_Server,37674,462,294)
{
Port=120
DataType=3
Point(onProgress)
link(onRead,8562265:doUnPack,[])
}
Add(TCP_Client,52372,567,469)
{
Port=120
IP="127.0.0.1"
DataType=3
link(IP,12948717:Text,[])
}
Add(Hub,14408162,140,567)
{
link(onEvent1,52372:doOpen,[(255,524)(255,523)(376,523)])
link(onEvent2,11780859:doTimer,[])
}
Add(Timer,11780859,175,574)
{
Enable=1
link(onTimer,4215496:doEvent1,[])
}
Add(Hub,4215496,224,574)
{
link(onEvent1,2401444:doWork3,[(249,580)])
link(onEvent2,2227522:doOpen,[])
}
Add(HubEx,2401444,245,161)
{
link(onEvent,10171744:doSaveDIB,[])
}
Add(MemoryStream,958573,700,231)
{
link(onCopy,329189:doData,[(744,237)(744,269)(688,269)(688,300)])
}
Add(FileStream,968047,812,294)
{
FileName="cam2.bmp"
Mode=2
Point(doCopyFromStream)
}
Add(DoData,329189,700,294)
{
link(onEventData,5559598:doEvent1,[])
link(Data,958573:Stream,[])
}
Add(Hub,5559598,763,294)
{
OutCount=4
link(onEvent1,968047:doOpen,[])
link(onEvent2,968047:doCopyFromStream,[(786,307)(786,314)])
link(onEvent3,968047:doClose,[(792,307)])
}
Add(StreamUnPack,8562265,518,294)
{
DataCount=#10:тип данных|6:данные|0:|
link(onUnPack,4233687:doEvent,[])
}
Add(IndexToChanel,4233687,581,294)
{
Count=4
Point(Index)
Point(Data)
link(onEvent3,958573:doCopy,[(672,314)(672,237)])
link(Index,8562265:тип данных,[(587,282)(565,282)(565,342)(524,342)])
link(Data,8562265:данные,[(594,277)(559,277)(559,338)(531,338)])
}
Add(StreamPack,9517114,483,567)
{
DataCount=#10:тип данных|6:данные|0:|
link(onPack,15985991:doEvent1,[])
link(данные,12524206:Data,[(496,555)(472,555)(472,610)(433,610)])
}
Add(ChanelToIndex,12524206,427,567)
{
Count=4
Point(Data)
link(onIndex,9517114:doPack,[])
}
Add(FileStream,2227522,273,581)
{
FileName="cam1.bmp"
link(onLoad,15407374:doData,[])
}
Add(DoData,15407374,329,581)
{
link(onEventData,12498032:doEvent1,[])
link(Data,2227522:Stream,[(335,569)(316,569)(316,624)(279,624)])
}
Add(Hub,15985991,532,567)
{
link(onEvent1,52372:doSend,[(556,573)(556,489)])
link(onEvent2,2227522:doClose,[(555,580)(555,662)(261,662)(261,594)])
}
Add(Hub,4478063,455,105)
{
OutCount=3
link(onEvent1,10171744:doVideoSource,[(479,111)(479,181)])
link(onEvent2,10171744:doConnect,[(479,118)(479,146)])
link(onEvent3,10171744:doVideoFormat,[(479,125)(479,174)])
}
Add(Image,6573010,665,588)
{
Width=640
Height=480
Color=0
Ctl3D=0
WinStyle=1
Point(Handle)
}
Add(Hub,12498032,371,581)
{
link(onEvent1,12524206:doWork3,[])
link(onEvent2,3131597:doLoad,[])
}
Add(PictureStream,3131597,602,588)
{
FileName="cam1.bmp"
Quality=100
link(onLoad,6573010:doLoad,[])
}

работает и на FPC и на Delphi
------------ Дoбавленo в 11.11:
178.140.72.247 писал(а):
как думаешь каким образом возможно снять с handle на bitmapstream ?


исходную картинку получить с Handle невозможно, так как Handle это просто рисунок как ты его видишь так он и отправится, а получить ту картинку которая с веб камеры идёт можно только расширением области для вывода изображения под размер изображения и далее уже делать просто скрин этого Handle
карма: 2

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