[elektro] kamera Delphiben

[Gergely "FcR" Dallos]

Szia Tibor!

Pár projektnél ezt használtam, talán neked is segít: 
http://tscap32.sourceforge.net

Gergely



Nemeth Tibor írta:
> Hali!
>
> Soha sem foglalkoztam még videoval kapcsolatos programozással.
> Most egy laborberendezés felújítása során felmerült az igény,
> hogy egy kamera képét megjelenítsem alkalmazásom ablakában.
> Delphiben nyomulok. Megismerkedtem a MediaPlayer komponenssel,
> videofájlt már meg tudok vele jeleníteni és azt remélem, hogy
> jól felparaméterezve egy kamera által éppen szolgáltatott műsort
> is képes mutatni.
> 1. kérdésem: jogos-e ez a reményem?
> Ha a válasz igen,
> 2. kérdésem: miképpen kell beállítani a
> DeviceType és a FileName (esetleg egyéb) property-ket
>
> Most ugyan csak próbálom és nem ez a kamera lesz de pillanatnyilag:
>
> Eszközkezelőben:
> 	Imaging-eszközök
> 		VideoCAM GE111
>
>
> Regisztriben:
> [HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO]
> "\\Device\\Video0"="\\Registry\\Machine\\System\\CurrentControlSet\\Control\\Video\\{37F60D8D-BD93-42CB-AB1A-E18BD3BE10DF}\\0000"
> "MaxObjectNumber"=dword:00000004
> "\\Device\\Video1"="\\Registry\\Machine\\System\\CurrentControlSet\\Control\\Video\\{9A1B3F94-72E3-47C3-BC37-663B2B362967}\\0000"
> "\\Device\\Video2"="\\Registry\\Machine\\System\\CurrentControlSet\\Control\\Video\\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\\0000"
> "\\Device\\Video3"="\\Registry\\Machine\\System\\CurrentControlSet\\Control\\Video\\{8B6D7859-A639-4A15-8790-7161976D057A}\\0000"
> "\\Device\\Video4"="\\Registry\\Machine\\System\\CurrentControlSet\\Control\\Video\\{DEB039CC-B704-4F53-B43E-9DD4432FA2E9}\\0000"
> "VgaCompatible"="\\Device\\Video2"
> "\\Device\\Disc"="\\REGISTRY\\Machine\\System\\CurrentControlSet\\Services\\TSDDD\\Device0"
>
>
> Ha magyar nyelvű VLC médialejátszóval:
> Média / Felvevőeszköz megnyitása / felvételi mód = DirectShow /Lejátszás
>
> akkor mutatja a kamera képét és alul ahova fájlnevet írná:
> dshow://
> látszik.
>
> Természetesen a fenti három megközelítésből szemezgetve már
> sok mindennel próbálkoztam de nem jött össze.
>
> Ha az 1. kérdésre a válasz : NEM, akkor
> Kérdés mivel bővítsem Delphit?
> Már erre is próbálkoztam de minden letöltött Unit-hoz kellet
> még kettő másik, ami nem volt és végül már csak egy Types nevű
> hiányzott de ebből meg annyiféle van, hogy feladtam ezt a vonalat,
> de ha valaki megírja a tutit, hát újra kezdeném.
>
> Üdv
>                    Németh Tibor
>
> -----------------------------------------
>           elektro[-flame|-etc]
>
>
>