100分请教：C++代码转换成Delphi(视频处理)

gggxkj999 2008-03-28 02:31:55

ULONG m_ulSampleDone;
int m_ulRGBMax;
ULONG* pSamplePicture;
m_ulRGBMax = 0;
ULONG VideoLine,VideoCol;
ULONG VideoMode;

SFCG_GetVideoMode( VideoMode, m_uCardNum );
if( VideoMode )
{
VideoLine = 720;
VideoCol = 576;
}
else
{
VideoLine = 720;
VideoCol = 488;
}

m_str.Format(_T(" "));
m_StartEndTime_str.Format(_T(" "));
m_SpendTime_str.Format(_T(" "));

pSamplePicture = new ULONG[VideoLine*VideoCol]; //Sampled data
if( !SFCG_SetVideoSample(m_uCardNum) )
{
MessageBox( _T("Set video sample error!"),_T("Error") );
return;
}
while( !SFCG_GetIfVideoSampleDone( m_ulSampleDone, m_uCardNum ) );

SFCG_GetVideoSampleData( pSamplePicture, m_uCardNum );

CClientDC dc(this);

if (m_hBitmap)
::DeleteObject(m_hBitmap);

//成员变量位图句柄，用于在视图重绘时
m_hBitmap = ::CreateCompatibleBitmap(dc.GetSafeHdc(),VideoLine,VideoCol);

if(!m_hBitmap) //生成句柄不成功
return;

CBitmap bmp;
bmp.Attach(m_hBitmap);
BITMAP bm;
unsigned int PixelBytes = 0;
unsigned int i;

bmp.GetBitmap(&bm);
BYTE* lpBits = NULL;
BYTE r,g,b;

switch(bm.bmBitsPixel)
{
case 16: // R:G:B = 5:6:5
PixelBytes = 2;
lpBits = new BYTE[bm.bmWidth*bm.bmHeight*PixelBytes];
for(i = 0;i<VideoCol*VideoLine;i++)
{
r = BYTE(pSamplePicture[i]>>16); //Get Red Component
g = BYTE(pSamplePicture[i]>>8); //Get Green Component
b = BYTE(pSamplePicture[i]); //Get Blue Component
lpBits[2*i] = (0xe0&(g<<3))|(b>>3);
lpBits[2*i+1] = (r&0xf8)|(g>>5);
}

break;
case 24:
PixelBytes = 3; // R:G:B = 8:8:8
lpBits = new BYTE[bm.bmWidth*bm.bmHeight*PixelBytes];
for(i = 0;i<VideoCol*VideoLine;i++)
{
r = BYTE(pSamplePicture[i]>>16); //Get Red Component
g = BYTE(pSamplePicture[i]>>8); //Get Green Component
b = BYTE(pSamplePicture[i]); //Get Blue Component
lpBits[3*i] = b;
lpBits[3*i+1] = g;
lpBits[3*i+2] = r;
}
break;
default:
break;
}

if(lpBits) // Not 32 bits true color
bmp.SetBitmapBits(bm.bmWidth*bm.bmHeight*PixelBytes,lpBits);
else // 32 bits true color
bmp.SetBitmapBits(VideoCol*VideoLine*4,pSamplePicture);

// Display sampled picture
CDC mem;
mem.CreateCompatibleDC(&dc);
CBitmap* pOld = mem.SelectObject(&bmp);
dc.BitBlt(0,0,VideoLine,VideoCol,&mem,0,0,SRCCOPY);
mem.SelectObject(pOld);
mem.DeleteDC();
bmp.Detach();

if(lpBits)delete lpBits;
delete pSamplePicture;

...全文

113 19 打赏收藏举报

写回复

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

珍惜生命远离CPP 2008-04-10

打赏
举报

UP,
好麻烦啊

gggxkj999 2008-04-10

打赏
举报

问题搞定了，一直忘了帖上来与大家一起分享，处理得有一点笨，希望大家给点建议！

//获取视频的制式,VideoMode为1时，工作在PAL制，为0时，工作在NTSC制
SFCG_GetVideoMode(@VideoMode, m_uCardNum - 1);
if Boolean(VideoMode) then
begin
VideoLine := 720;
VideoCol := 576;
end
else
begin
VideoLine := 720;
VideoCol := 488;
end;

bmp := TBitmap.Create;
bmp.PixelFormat := pf24Bit;
bmp.width := VideoLine;
bmp.Height := VideoCol;

i := VideoLine * VideoCol;

GetMem(pSamplePicture, i * 4);

if not SFCG_SetVideoSample(m_uCardNum - 1) then //设置板卡进入采样状态
begin
Application.MessageBox('板卡图像采样错误！', '提示', MB_Ok + MB_ICONINFORMATION);
Exit;
end;

{SFCG_GetIfVideoSampleDone获取采样是否完成, true采样完成, false采样未完成
如果采样未完成，程序将始终在此循环直到采样完成}
while true do
begin
if SFCG_GetIfVideoSampleDone(@m_ulSampleDone, m_uCardNum - 1) then
Break;
end;

{SFCG_GetVideoSampleData得到采样数据，得到的是图像中每个像素点的ARGB格式的采样数据，
高位为A，依次是R,G,B
对PAL制信号，采样的有效行为576行，每行的有效点为720点}
SFCG_GetVideoSampleData(pSamplePicture, m_uCardNum - 1);

{读取每个像素点的RGB值，并按缓存中的排列依次排列在控件}
for j := 0 to i - 1 do
begin
R := Byte(((pULONG(DWORD(pSamplePicture) + j * 4)^) shr 16) and $FF);
G := Byte(((pULONG(DWORD(pSamplePicture) + j * 4)^) shr 8) and $FF);
B := Byte(pULONG(DWORD(pSamplePicture) + j * 4)^ and $FF);

if j <= 719 then
begin
Row := j;
Col := 0;
end
else
begin
Row := j mod 720;
Col := j div 720;
end;

bmp.Canvas.Pixels[Row, Col] := RGB(R, G, B);
Application.ProcessMessages;
end;

Image1.Picture.Bitmap.Assign(bmp);
Image1.Repaint;
Bmp.Free;
FreeMem(pSamplePicture, i * 4);

gggxkj999 2008-03-31