Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по захвату потокового видео.   Найти похожие ветки 

 
Fredericco   (2002-07-05 16:31) [0]

Эта тема уже поднималась, но у меня конкретный вопрос. Есть видео карта, туда идет видео, просматриваю это изображение с помощью компоненты TVideoCap (скачал на торри). Эта компонента выводит изоб-ние на себя. А мне в будущем надо будет это видео передавать через инет. Через инет я умею передавать пока только бмп и жпг. Поставил себе задачу засунуть кадр из получаемого видео в TBitmap. В исходниках компоненты нашел процедуру:
procedure FrameToBitmap(Bitmap:TBitmap;FrameBuffer:pointer; BitmapInfo:TBitmapInfo);
var hdd:Thandle;

begin

with Bitmap do
begin
Width:= BitmapInfo.bmiHeader.biWidth; // New size of Bitmap
Height:=Bitmapinfo.bmiHeader.biHeight;
hdd:= DrawDibOpen;
DrawDibDraw(hdd,canvas.handle,0,0,
BitmapInfo.BmiHeader.biwidth,
BitmapInfo.bmiheader.biheight,
@BitmapInfo.bmiHeader,
frameBuffer,0,0,
bitmapInfo.bmiHeader.biWidth,
bitmapInfo.bmiHeader.biheight,0);
DrawDibClose(hdd);
end;
end;


Вроде то, что мне надо. Однако никак не могу понять где взять переменную FrameBuffer. Код процедуры DrawDibDraw находиться в vfw.pas и выглядит так :
function DrawDibDraw(
hdd : HDRAWDIB;
hdc : HDC;
xDst : integer;
yDst : integer;
dxDst : integer;
dyDst : integer;
lpbi : PBITMAPINFOHEADER;
lpBits : Pointer;
xSrc : integer;
ySrc : integer;
dxSrc : integer;
dySrc : integer;
wFlags : UINT
): BOOL; stdcall; external VFWDLL;

Вообщем у меня все есть, кроме FrameBuffer. Не могли бы вы подсказать на что этот указатель и где приблизительно мне искать переменную на которую должен указывать FrameBuffer?
Заранее благодарен.
Fredericco.


 
Chezarre   (2002-08-26 15:10) [1]

Посмотри в хелпе к видеокапе (или в демках, не помню)- там на OnFrameCallback по-моему в параметрах передается этот самый поинтер (хотя... щас припоминаю, там он назывался lpVideoHdr или что-то в этом роде - можа, версии не совпадають?)



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
14-28259
Gritzan
2002-11-17 21:28
2002.12.09
Мастера не такие вы уж и мастера!


7-28307
Senka
2002-10-04 15:58
2002.12.09
Как выполнить учет печати на принтере в Delphi6


14-28252
Dbrf
2002-11-18 13:46
2002.12.09
Документация по RXLibrary


1-28014
smok_er
2002-11-29 21:07
2002.12.09
СтрингЛист - аргумент функции


1-28015
First_May
2002-11-29 09:26
2002.12.09
Exports...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский