Подскажите с помощью какого инструмента можна работать с WebCamer'ой и где его взять?

Из фака:

Цитата

Как работать с Web камерой? Previous  Top  Next  First of all, get the SDK at http://developer.logitech.comhttp://develo...er.logitech.com After installation, open delphi and Import ActiveX Control VPortal2 from the list. Now, create a new form, and put a VideoPortal from the ActiveX panel and a button. In the uses, add VideoPortal On the OnShow add: VideoPortal1.PrepareControl('QCSDK',   'HKEY_LOCAL_MACHINE\Software\JCS Programmation\QCSDK', 0); VideoPortal1.EnableUIElements(UIELEMENT_STATUSBAR, 0, 0); VideoPortal1.ConnectCamera2; VideoPortal1.EnablePreview := 1; On the ButtonClick add: var   BMP: TBitmap;   JPG: TJpegImage;   L: string; begin   F := 'Photos\test.jpg';   VideoPortal1.StampBackgroundColor := clYellow;   VideoPortal1.StampTextColor := clBlack;   VideoPortal1.StampFontName := 'Arial';   VideoPortal1.StampPointSize := 10;   VideoPortal1.StampTransparentBackGround := 0;   L := Format(' %s - %s ', [DateTimeToStr(Now), Num]);   VideoPortal1.PictureToFile(0, 24, 'Temp.bmp', L);   BMP := TBitmap.Create;   JPG := TJpegImage.Create;   BMP.LoadFromFile('Temp.bmp');   JPG.CompressionQuality := 85;   JPG.Assign(BMP);   JPG.SaveToFile(F);   BMP.Free;   JPG.Free; end; It's all, run the application, you will see the image from the camera, click on the button to get a picture. Here is a copy a VideoPortal.Pas (constants). unit VideoPortal; interface // Copyright © 1996-2000 Logitech, Inc.  All Rights Reserved // User Interface Element, codes used with EnableUIElement method const   UIELEMENT_640x480 = 0; const   UIELEMENT_320x240 = 1; const   UIELEMENT_PCSMART = 2; const   UIELEMENT_STATUSBAR = 3; const   UIELEMENT_UI = 4; const   UIELEMENT_CAMERA = 5; const   UIELEMENT_160x120 = 6;   // Camera status codes, returned by CameraState property const   CAMERA_OK = 0; const   CAMERA_UNPLUGGED = 1; const   CAMERA_INUSE = 2; const   CAMERA_ERROR = 3; const   CAMERA_SUSPENDED = 4; const   CAMERA_DUAL_DETACHED = 5; const   CAMERA_UNKNOWNSTATUS = 10;   // Movie Recording Modes, used with MovieRecordMode property const   SEQUENCECAPTURE_FPS_USERSPECIFIED = 1; const   SEQUENCECAPTURE_FPS_FASTASPOSSIBLE = 2; const   STEPCAPTURE_MANUALTRIGGERED = 3;   // Movie Creation Flags, used with MovieCreateFlags property const   MOVIECREATEFLAGS_CREATENEW = 1; const   MOVIECREATEFLAGS_APPEND = 2;   // Notification Codes const   NOTIFICATIONMSG_MOTION = 1; const   NOTIFICATIONMSG_MOVIERECORDERROR = 2; const   NOTIFICATIONMSG_CAMERADETACHED = 3; const   NOTIFICATIONMSG_CAMERAREATTACHED = 4; const   NOTIFICATIONMSG_IMAGESIZECHANGE = 5; const   NOTIFICATIONMSG_CAMERAPRECHANGE = 6; const   NOTIFICATIONMSG_CAMERACHANGEFAILED = 7; const   NOTIFICATIONMSG_POSTCAMERACHANGED = 8; const   NOTIFICATIONMSG_CAMERBUTTONCLICKED = 9; const   NOTIFICATIONMSG_VIDEOHOOK = 10; const   NOTIFICATIONMSG_SETTINGDLGCLOSED = 11; const   NOTIFICATIONMSG_QUERYPRECAMERAMODIFICATION = 12; const   NOTIFICATIONMSG_MOVIESIZE = 13;   // Error codes used by NOTIFICATIONMSG_MOVIERECORDERROR notification: const   WRITEFAILURE_RECORDINGSTOPPED = 0; const   WRITEFAILURE_RECORDINGSTOPPED_FILECORRUPTANDDELETED = 1; const   WRITEFAILURE_CAMERA_UNPLUGGED = 2; const   WRITEFAILURE_CAMERA_SUSPENDED = 3;   // Camera type codes, returned by GetCameraType method const   CAMERA_UNKNOWN = 0; const   CAMERA_QUICKCAM_VC = 1; const   CAMERA_QUICKCAM_QUICKCLIP = 2; const   CAMERA_QUICKCAM_PRO = 3; const   CAMERA_QUICKCAM_HOME = 4; const   CAMERA_QUICKCAM_PRO_B = 5; const   CAMERA_QUICKCAM_TEKCOM = 6; const   CAMERA_QUICKCAM_EXPRESS = 7; const   CAMERA_QUICKCAM_FROG = 8; // MIGHT CHANGE NAME BUT ENUM STAYS THE SAME const   CAMERA_QUICKCAM_EMERALD = 9; // MIGHT CHANGE NAME BUT ENUM STAYS THE SAME   // Camera-specific property codes used by Set/GetCameraPropertyLong const   PROPERTY_ORIENTATION = 0; const   PROPERTY_BRIGHTNESSMODE = 1; const   PROPERTY_BRIGHTNESS = 2; const   PROPERTY_CONTRAST = 3; const   PROPERTY_COLORMODE = 4; const   PROPERTY_REDGAIN = 5; const   PROPERTY_BLUEGAIN = 6; const   PROPERTY_SATURATION = 7; const   PROPERTY_EXPOSURE = 8; const   PROPERTY_RESET = 9; const   PROPERTY_COMPRESSION = 10; const   PROPERTY_ANTIBLOOM = 11; const   PROPERTY_LOWLIGHTFILTER = 12; const   PROPERTY_IMAGEFIELD = 13; const   PROPERTY_HUE = 14; const   PROPERTY_PORT_TYPE = 15; const   PROPERTY_PICTSMART_MODE = 16; const   PROPERTY_PICTSMART_LIGHT = 17; const   PROPERTY_PICTSMART_LENS = 18; const   PROPERTY_MOTION_DETECTION_MODE = 19; const   PROPERTY_MOTION_SENSITIVITY = 20; const   PROPERTY_WHITELEVEL = 21; const   PROPERTY_AUTO_WHITELEVEL = 22; const   PROPERTY_ANALOGGAIN = 23; const   PROPERTY_AUTO_ANALOGGAIN = 24; const   PROPERTY_LOWLIGHTBOOST = 25; const   PROPERTY_COLORBOOST = 26; const   PROPERTY_ANTIFLICKER = 27; const   PROPERTY_OPTIMIZATION_SPEED_QUALITY = 28; const   PROPERTY_STREAM_HOOK = 29; const   PROPERTY_LED = 30; const   ADJUSTMENT_MANUAL = 0; const   ADJUSTMENT_AUTOMATIC = 1; const   ORIENTATIONMODE_NORMAL = 0; const   ORIENTATIONMODE_MIRRORED = 1; const   ORIENTATIONMODE_FLIPPED = 2; const   ORIENTATIONMODE_FLIPPED_AND_MIRRORED = 3; const   COMPRESSION_Q0 = 0; const   COMPRESSION_Q1 = 1; const   COMPRESSION_Q2 = 2; const   ANTIFLICKER_OFF = 0; const   ANTIFLICKER_50Hz = 1; const   ANTIFLICKER_60Hz = 2; const   OPTIMIZE_QUALITY = 0; const   OPTIMIZE_SPEED = 1; const   LED_OFF = 0; const   LED_ON = 1; const   LED_AUTO = 2; const   LED_MAX = 3; const   PICTSMART_LIGHTCORRECTION_NONE = 0; const   PICTSMART_LIGHTCORRECTION_COOLFLORESCENT = 1; const   PICTSMART_LIGHTCORRECTION_WARMFLORESCENT = 2; const   PICTSMART_LIGHTCORRECTION_OUTSIDE = 3; const   PICTSMART_LIGHTCORRECTION_TUNGSTEN = 4; const   PICTSMART_LENSCORRECTION_NORMAL = 0; const   PICTSMART_LENSCORRECTION_WIDEANGLE = 1; const   PICTSMART_LENSCORRECTION_TELEPHOTO = 2; const   CAMERADLG_GENERAL = 0; const   CAMERADLG_ADVANCED = 1; implementation end. Example shows how to use the PictureToMemory method in the QuickCam SDK.  type   TMemoryStream = class(Classes.TMemoryStream); var   MS: TMemoryStream;   lSize: LongInt;   pBuffer: ^Byte; begin   MS := TMemoryStream.Create;   bitmap1 := TBitmap.Create;   try     if VideoPortal1.PictureToMemory(0, 24, 0, lSize, '') = 1 then     begin       pBuffer := AllocMem(lSize);       if VideoPortal1.PictureToMemory(0, 24, integer(pBuffer), lSize, '') = 1 then       begin         MS.SetPointer(pBuffer, lSize);         bitmap1.loadfromstream(MS);       end;     end;   finally     MS.Free;     FreeMem(pBuffer);   end; end; Взято с Delphi Knowledge Base http://www.baltsoft.com/

Предложенный способ хорош тем, что
1. Годится для DELPHI, BCB, VC и даже для VB.
2. Позволяет подключяться к одной камере из разных программ одновременно, даже используя разные параметры вывода
3. Загруженность процессора минимальна (из известных мне способов)
4. Наличие хороших примеров (только для VB и VC)
5. Возможность настраивать параметры камеры (Logatech)

Недостатки:
Главный недостаток - невозможность (мне не удалось) работы с двумя (и более) камерами одновременно. Только в режиме переключения - а это 2-3 секунды, что не есть хорошо.

Альтернатива - использовать библиотеку DSPack (cвободно доступна на www.torry.ru)
Достоинства:
1. Годится для DELPHI, BCB.
2. Позволяет работать с несколькими камерами
3. В библиотеку входит целый ряд интересных компонентов для работы с
мультимедией
4. Наличие примеров готовых к работе.

Недостатки:
1.Хочет DX 8.0 и более
2.Примерно на 60% (относит) больше грузит процессор
3.Не позволяет иметь больше чем одно подключение к каждой из камер.

Это сообщение отредактировал(а) remax - 13.10.2003, 18:54

Если кто может подсказать другой (кроме описанных выше) способов работы с WEB-камерами (желательно лишенный отмеченных недостатков), то поделитесь информацией....