Получить хендл битмапа

[tuip]

Есть код, правда на Freebasic. Он захватывает кадр видео и сохраняет в файл. Как можно без сохранения ( и последующей загрузки) получить дескриптор битмапа, чтобы испольовать изображение скажем на Static контрол. На соответствующем форуме по языку FreeBasic задал вопрос, но англичане игнорируют(скорее всего не понимают перевод от Google), а на русском активности пользователей совсем нет. Помогите пожалуйста. Буду рад любому примеру.

Dim As LongInt frame
	IMediaSeeking_GetPositions(ctx->medseek,@frame,NULL)

	'//получаем кадр
	Dim As Long lBufSize
	IBasicVideo_GetCurrentImage(ctx->basvideo,@lBufSize,NULL)
	Dim As Long pDIB=Allocate(lBufSize)
	IBasicVideo_GetCurrentImage(ctx->basvideo,@lBufSize,pDIB)
	Dim As HANDLE fh
	Dim As BITMAPFILEHEADER bmphdr
	Dim As BITMAPINFOHEADER bmpinfo
	Dim As DWORD nWritten
	Dim As Integer  height_
	IBasicVideo_get_SourceHeight(ctx->basvideo,@height_)
	Dim As Integer  Width_
	IBasicVideo_get_SourceWidth(ctx->basvideo,@Width_)
	bmphdr.bfType = 19778
	bmphdr.bfSize = sizeof(bmphdr) + sizeof(bmpinfo) + lbufSize
	bmphdr.bfOffBits = sizeof(bmphdr) + sizeof(bmpinfo)
	bmpinfo.biSize = sizeof(bmpinfo)
	bmpinfo.biWidth = Width_
	bmpinfo.biHeight = height_
	bmpinfo.biPlanes = 1
	bmpinfo.biBitCount = 32

	fh = CreateFile("result.bmp",GENERIC_WRITE, 0, NULL,CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL)
	WriteFile(fh, @bmphdr, sizeof(bmphdr), @nWritten, NULL)
	WriteFile(fh,@bmpinfo, sizeof(bmpinfo), @nWritten, NULL)
	WriteFile(fh, pDIB, lbufSize, @nWritten, NULL)
	CloseHandle(fh)

[tuip]

Вопрос снят. Решил таким образом(принцип):

1) копирую в общий массив данных при помощи RtlMoveMemory
2) получаю хендл при помощи CreateDIBitmap