Var
Vheader:TBitmapInfoHeader;
begin
VHeader:=Videocap.BitMapInfoHeader;
VHeader.bicompression:=bi_RGB;
// Always RGB-Data
VHeader.biBitCount:= 24;
With VHeaderdo
begin
biSize:=40;
biWidth:=200;//***
biHeight:=150;//***
biPlanes:=1;
biBitCount:=24;
biCompression:=0;
biSizeImage:=57600;
biXPelsPerMeter:=0;
biYPelsPerMeter:=0;
biClrUsed:=0;
biClrImportant:=0;
end;
VideoCap.BitMapInfoHeader:= VHeader;
videocap是jhvideo里的控件