VPF::Как сделать снимок с веб-камеры с помощью дельфи?

ZLOvar

Дата 10.1.2010, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: нет
Всего: 1

Всем привет. У меня очень необычный вопрос. Как сделать снимок с веб-камеры, когда она включена?
Допустим я включил камеру, запустил делфи-проект, и теперь, при движении курсора (MouseMove), у меня камера делает снимок. У кого какие идеи? smile

Всем заранее огромное "Мучас Грасиас!". smile

--------------------

Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)

Rrader

Дата 10.1.2010, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 4
Всего: 191

Идешь сюда, где приведен список интерфейсов WIA с небольшим примерчиком.

Там увидишь метод TakePicture. Попробуй разобраться с ним самостоятельно.

--------------------

Let's do this quickly!
Rest in peace, Vit!

ZLOvar

Дата 10.1.2010, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: нет
Всего: 1

Rrader,
Нет, немного непонял. Как мне определить устройство?(в данном случае веб-камера)

--------------------

Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)

ZLOvar

Дата 10.1.2010, 20:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 4.6.2009
Где: Москва

Репутация: нет
Всего: 1

Так ,вроде разобрался. Только мне непонятно, в какой переменной "хранится" веб-камера?
Вот:

Код


 procedure TForm1.Button1Click(Sender: TObject);
const
  CLASS_Wia: TGUID = '{4EC4272E-2E6F-4EEB-91D0-EBC4D58E8DEE}';
  IID_IWia: TGUID = '{B10BA1BC-3713-4EC0-8EEA-690EBD2CED8A}';
  FmtStr = 'Тип устройства: %s' + sLineBreak +
    'Название устройства: %s' + sLineBreak +
    'Производитель: %s' + sLineBreak +
    'Порт: %s';
var
  Wia: IWia;
  Devs: ICollection;
  I: Integer;
  Device: OleVariant;
  S: String;
begin
  if Succeeded(CoInitialize(nil)) then
  try
    Wia := CreateComObject(CLASS_Wia) as IWia;
    Devs := Wia.Devices;
    for I := 0 to Devs.Length - 1 do
      with (Devs.Item[I] as IWiaDeviceInfo) do
      begin
        ShowMessage(Format(FmtStr, [type_, Name, Manufacturer, Port]));
        Device := Devs.Item[I];
        S := Wia.Create(Device).ItemType;
        ShowMessage('Флаги: ' + S);
        Device := Unassigned;
      end;
  finally
    CoUninitialize;
  end;
end;

--------------------

Если хочешь чтобы работало - используй написанное.Если хочешь что-то понять - пиши сам. (с)

Bitter

Дата 15.1.2010, 09:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

Репутация: 6
Всего: 27

Для работы с видеокамерами есть компоненты DSPack и TVideoGrabber

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »