Вебкамера в делфи

[Legeardo]

Мне нужно по нажатию кнопки сохранять картинки с вебки в Tmemorystream. Щас немного по подробней обьясню:
1 нужно проверить на наличие вебки
2 если вебок 2 то выбрать первую. Выбрать именно надо программно что бы не тревожить лишний раз пользователя
3 делаем фото сохраняем в Tmemorystream а далее сохраняем в файл. Мне нужно именно эта конструкция. Сохранять сразу в файл не надо.
4 отключаемся
С какими компонентами можно сделать то что я сказал выше?

[NetSpace]

ты случайно не в корпорации Майкрософт работаешь на Виндюхой 11-й версии???

[Legeardo]

Не работаю

[Legeardo]

Скачите хотя бы как из 2 вебкамер выбрать 1 программно

[Legeardo]

Или обьясните почему такой код не работает:

var b:bitmap;
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(b));

Почему в переменную b не сохраняется картинка? Как сделать что бы сохранялась

[NetSpace]

savedib - сохранение картинки или кадра? если да, то куда сохраняет???
если в памяти где-то, то надо извлечь. лучше, если будет в виде потока. потом очень удобно из потока сохранять в файл куда надо.

[Pavia]

http://basicsprog.ucoz.ru/publ/6-1-0-27

[Pavia]

Сообщение от Legeardo

Или обьясните почему такой код не работает:

var b:bitmap;
SendMessage(hWndC,WM_CAP_SAVEDIB,0,longint(b));

Почему в переменную b не сохраняется картинка? Как сделать что бы сохранялась

Не сохраняется по тому что и не должна. Читай MSDN там написано, что делает эта функция. Она сохраняет текущий какдр в файл. И в качестве параметра принимает строку типа PAnsiChar с именем файла.

[Legeardo]

А как сделать что бы сохраняло в переменную?

[Pavia]

Я вам ссылку приводил Повторю ещё раз http://basicsprog.ucoz.ru/publ/6-1-0-28
Собственно функция сохранения.

//с помощью этой функции будем грабить изображение
function TForm1.CaptureBitmap: HResult;
var
  bSize: integer;
  pVideoHeader: TVideoInfoHeader;
  MediaType: TAMMediaType;
  BitmapInfo: TBitmapInfo;
  Buffer: Pointer;
  tmp: array of byte;
  Bitmap: TBitmap;
  JpegIm: TJpegImage;
begin
  // Результат по умолчанию
  Result := E_FAIL;

  // Если  отсутствует интерфейс фильтра перехвата изображения,
  // то завершаем работу
  if FSampleGrabber = NIL then EXIT;

  // Получаем размер кадра
    Result := FSampleGrabber.GetCurrentBuffer(bSize, NIL);
    if (bSize <= 0) or FAILED(Result) then EXIT;
  // Создаем изображение
  Bitmap := TBitmap.Create;
  try
  //обнуляем память
  ZeroMemory(@MediaType, sizeof(TAMMediaType));
  // Получаем тип медиа потока на входе у фильтра перехвата
  Result := FSampleGrabber.GetConnectedMediaType(MediaType);
  if FAILED(Result) then EXIT;

    // Копируем заголовок изображения
    pVideoHeader := TVideoInfoHeader(MediaType.pbFormat^);
    ZeroMemory(@BitmapInfo, sizeof(TBitmapInfo));
    CopyMemory(@BitmapInfo.bmiHeader, @pVideoHeader.bmiHeader, sizeof(TBITMAPINFOHEADER));

    Buffer := NIL;

    // Создаем побитовое изображение
    Bitmap.Handle := CreateDIBSection(0, BitmapInfo, DIB_RGB_COLORS, Buffer, 0, 0);

    // Выделяем память во временном массиве
    SetLength(tmp, bSize);

    try
      // Читаем изображение из медиа потока во временный буфер
      FSampleGrabber.GetCurrentBuffer(bSize, @tmp[0]);

      // Копируем данные из временного буфера в наше изображение
      CopyMemory(Buffer, @tmp[0], MediaType.lSampleSize);

      //если необходимо сохранить изображение в bmp файле
      //Bitmap.SaveToFile('Имя файла.bmp');

      // Конвертируем изображение в Jpeg
      //создаем объект JpegImage
      JpegIm := TJpegImage.Create;
      //устанавливаем связь с объектом Bitmap
      JpegIm.Assign(Bitmap);
      //задаем степень сжатия
      JpegIm.CompressionQuality := 30;
      //сжимаем
      JpegIm.Compress;
      //сохраняем в файл
      FileName:=Edit7.Text;
      JpegIm.SaveToFile(FileName);

    except

      // В случае сбоя возвращаем ошибочный результат
      Result := E_FAIL;
    end;
  finally
    // Освобождаем память
    SetLength(tmp, 0);
    Bitmap.Free;
    JpegIm.Free;
  end;
end;