BMP到AVI遇到的问题

cwb757136008

  

子程序名	返回值类型	公开	备 注
BMP到AVI
参数名	类 型	参考	可空	数组	备 注
AVI保存文件名	文本型
BMP文件名数组	文本型				所有位图必须尺寸相等
WAV文件名	文本型
帧速率	整数型				帧/秒
进度显示子程序	子程序指针

变量名	类 型	静态	数组	备 注
strhdrVideo	AVISTREAMINFO
strhdrAudio	AVISTREAMINFO
nFrames	整数型
hr
a	整数型
bmpFileHdr	字节集
bmpInfoHdr	字节集
waveFormat	字节集
BMP文件号
WAV文件号
tmp_buf	字节集
pfile
psV
psA
streamtypeVIDEO	整数型
streamtypeAUDIO	整数型
tmp	字节集
w
h
s

tmp ＝ 取空白字节集 (4)
tmp [1] ＝ 取代码 (“v”, )
tmp [2] ＝ 取代码 (“i”, )
tmp [3] ＝ 取代码 (“d”, )
tmp [4] ＝ 取代码 (“s”, )
streamtypeVIDEO ＝ 取字节集数据 (tmp, #整数型, )
AVIFileInit ()
计次循环首 (取数组成员数 (BMP文件名数组), a)
BMP文件号 ＝ 打开文件 (BMP文件名数组 [a], , )
移到文件首 (BMP文件号)
bmpFileHdr ＝ 读入字节集 (BMP文件号, 14)
bmpInfoHdr ＝ 读入字节集 (BMP文件号, 40)
调试输出 (bmpInfoHdr)
w ＝ 取字节集数据 (bmpInfoHdr, #整数型, 5)
h ＝ 取字节集数据 (bmpInfoHdr, #整数型, 9)
s ＝ 取字节集数据 (bmpFileHdr, #整数型, 3) － 54
调试输出 (s)
如果真 (nFrames ＝ 0)
AVIFileOpen (pfile, AVI保存文件名, 4097, 0)
strhdrVideo.fccType ＝ streamtypeVIDEO
strhdrVideo.fccHandler ＝ 0
strhdrVideo.dwScale ＝ 1
strhdrVideo.dwRate ＝ 帧速率
strhdrVideo.dwSuggestedBufferSize ＝ s
strhdrVideo.rcFrame.left ＝ 0
strhdrVideo.rcFrame.top ＝ 0
strhdrVideo.rcFrame.right ＝ w
strhdrVideo.rcFrame.bottom ＝ h
hr ＝ AVIFileCreateStream (pfile, psV, strhdrVideo)

tmp_buf ＝ 读入字节集 (BMP文件号, s)
hr ＝ AVIStreamSetFormat (psV, nFrames, bmpInfoHdr, 40)
hr ＝ AVIStreamWrite (psV, nFrames, 1, tmp_buf, s, 16, 0, 0)
nFrames ＝ nFrames ＋ 1
关闭文件 (BMP文件号)
如果真 (是否为空 (进度显示子程序) ＝ 假)
CallWindowProcA (进度显示子程序, 取数组成员数 (BMP文件名数组), a, 0, 0)

计次循环尾 ()
如果真 (是否为空 (WAV文件名) ＝ 假)
tmp ＝ 取空白字节集 (4)
tmp [1] ＝ 取代码 (“a”, )
tmp [2] ＝ 取代码 (“u”, )
tmp [3] ＝ 取代码 (“d”, )
tmp [4] ＝ 取代码 (“s”, )
streamtypeAUDIO ＝ 取字节集数据 (tmp, #整数型, )
WAV文件号 ＝ 打开文件 (WAV文件名, , )
移到文件首 (WAV文件号)
tmp ＝ 读入字节集 (WAV文件号, 20)
s ＝ 取字节集数据 (tmp, #整数型, 17)
waveFormat ＝ 读入字节集 (WAV文件号, s)
w ＝ 取字节集数据 (waveFormat, #短整数型, 3)  ' ; //声道数
h ＝ 取字节集数据 (waveFormat, #整数型, 5)  ' ; //Hz 采样频率
s ＝ 取字节集数据 (tmp, #整数型, 5) ＋ 8 － 取字节集长度 (tmp) － 取字节集长度 (waveFormat)  ' m_dwBufferSize
' //设置音频流格式
strhdrAudio.fccType ＝ streamtypeAUDIO
strhdrAudio.fccHandler ＝ 0
strhdrAudio.dwFlags ＝ 0
strhdrAudio.dwCaps ＝ 0
strhdrAudio.wPriority ＝ 0
strhdrAudio.wLanguage ＝ 0
strhdrAudio.dwScale ＝ w
strhdrAudio.dwRate ＝ h
strhdrAudio.dwStart ＝ 0
strhdrAudio.dwInitialFrames ＝ 0
strhdrAudio.dwSuggestedBufferSize ＝ s
strhdrAudio.dwQuality ＝ 0
strhdrAudio.dwSampleSize ＝ 1
strhdrAudio.rcFrame.bottom ＝ 0
strhdrAudio.rcFrame.left ＝ 0
strhdrAudio.rcFrame.right ＝ 0
strhdrAudio.rcFrame.top ＝ 0
strhdrAudio.dwEditCount ＝ 0
strhdrAudio.dwFormatChangeCount ＝ 0
strhdrAudio.dwLength ＝ 0
' //创建数据流
hr ＝ AVIFileCreateStream (pfile, psA, strhdrAudio)
' //设置音频格式
hr ＝ AVIStreamSetFormat (psA, 0, waveFormat, 取字节集长度 (waveFormat))
' //写数据
tmp_buf ＝ 读入字节集 (WAV文件号, s)
hr ＝ AVIStreamWrite (psA, 0, 1, tmp_buf, s, 16, 0, 0)
关闭文件 (WAV文件号)
AVIStreamRelease (psA)

AVIStreamRelease (psV)
如果真 (pfile ≠ 0)
AVIFileRelease (pfile)
AVIFileExit ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 BMP到AVI<br /> .参数 AVI保存文件名, 文本型<br /> .参数 BMP文件名数组, 文本型, 数组, 所有位图必须尺寸相等<br /> .参数 WAV文件名, 文本型, 可空<br /> .参数 帧速率, 整数型, , 帧/秒<br /> .参数 进度显示子程序, 子程序指针, 可空<br /> .局部变量 strhdrVideo, AVISTREAMINFO<br /> .局部变量 strhdrAudio, AVISTREAMINFO<br /> .局部变量 nFrames, 整数型<br /> .局部变量 hr<br /> .局部变量 a, 整数型<br /> .局部变量 bmpFileHdr, 字节集<br /> .局部变量 bmpInfoHdr, 字节集<br /> .局部变量 waveFormat, 字节集<br /> .局部变量 BMP文件号<br /> .局部变量 WAV文件号<br /> .局部变量 tmp_buf, 字节集<br /> .局部变量 pfile<br /> .局部变量 psV<br /> .局部变量 psA<br /> .局部变量 streamtypeVIDEO, 整数型<br /> .局部变量 streamtypeAUDIO, 整数型<br /> .局部变量 tmp, 字节集<br /> .局部变量 w<br /> .局部变量 h<br /> .局部变量 s<br /> <br /> tmp ＝ 取空白字节集 (4)<br /> tmp [1] ＝ 取代码 (“v”, )<br /> tmp [2] ＝ 取代码 (“i”, )<br /> tmp [3] ＝ 取代码 (“d”, )<br /> tmp [4] ＝ 取代码 (“s”, )<br /> streamtypeVIDEO ＝ 取字节集数据 (tmp, #整数型, )<br /> <br /> AVIFileInit ()<br /> <br /> .计次循环首 (取数组成员数 (BMP文件名数组), a)<br />     BMP文件号 ＝ 打开文件 (BMP文件名数组 [a], , )<br />     移到文件首 (BMP文件号)<br />     bmpFileHdr ＝ 读入字节集 (BMP文件号, 14)<br />     bmpInfoHdr ＝ 读入字节集 (BMP文件号, 40)<br />     调试输出 (bmpInfoHdr)<br />     w ＝ 取字节集数据 (bmpInfoHdr, #整数型, 5)<br />     h ＝ 取字节集数据 (bmpInfoHdr, #整数型, 9)<br />     s ＝ 取字节集数据 (bmpFileHdr, #整数型, 3) － 54<br />     调试输出 (s)<br />     .如果真 (nFrames ＝ 0)<br />         AVIFileOpen (pfile, AVI保存文件名, 4097, 0)<br />         strhdrVideo.fccType ＝ streamtypeVIDEO<br />         strhdrVideo.fccHandler ＝ 0<br />         strhdrVideo.dwScale ＝ 1<br />         strhdrVideo.dwRate ＝ 帧速率<br />         strhdrVideo.dwSuggestedBufferSize ＝ s<br />         strhdrVideo.rcFrame.left ＝ 0<br />         strhdrVideo.rcFrame.top ＝ 0<br />         strhdrVideo.rcFrame.right ＝ w<br />         strhdrVideo.rcFrame.bottom ＝ h<br /> <br />         hr ＝ AVIFileCreateStream (pfile, psV, strhdrVideo)<br /> <br />     .如果真结束<br /> <br />     tmp_buf ＝ 读入字节集 (BMP文件号, s)<br />     hr ＝ AVIStreamSetFormat (psV, nFrames, bmpInfoHdr, 40)<br />     hr ＝ AVIStreamWrite (psV, nFrames, 1, tmp_buf, s, 16, 0, 0)<br /> <br />     nFrames ＝ nFrames ＋ 1<br />     关闭文件 (BMP文件号)<br />     .如果真 (是否为空 (进度显示子程序) ＝ 假)<br />         CallWindowProcA (进度显示子程序, 取数组成员数 (BMP文件名数组), a, 0, 0)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (是否为空 (WAV文件名) ＝ 假)<br />     tmp ＝ 取空白字节集 (4)<br />     tmp [1] ＝ 取代码 (“a”, )<br />     tmp [2] ＝ 取代码 (“u”, )<br />     tmp [3] ＝ 取代码 (“d”, )<br />     tmp [4] ＝ 取代码 (“s”, )<br />     streamtypeAUDIO ＝ 取字节集数据 (tmp, #整数型, )<br /> <br />     WAV文件号 ＝ 打开文件 (WAV文件名, , )<br />     移到文件首 (WAV文件号)<br />     tmp ＝ 读入字节集 (WAV文件号, 20)<br />     s ＝ 取字节集数据 (tmp, #整数型, 17)<br />     waveFormat ＝ 读入字节集 (WAV文件号, s)<br /> <br />     w ＝ 取字节集数据 (waveFormat, #短整数型, 3)  ' ; //声道数<br />     h ＝ 取字节集数据 (waveFormat, #整数型, 5)  ' ; //Hz 采样频率<br />     s ＝ 取字节集数据 (tmp, #整数型, 5) ＋ 8 － 取字节集长度 (tmp) － 取字节集长度 (waveFormat)  ' m_dwBufferSize<br /> <br />     ' //设置音频流格式<br />     strhdrAudio.fccType ＝ streamtypeAUDIO<br />     strhdrAudio.fccHandler ＝ 0<br />     strhdrAudio.dwFlags ＝ 0<br />     strhdrAudio.dwCaps ＝ 0<br />     strhdrAudio.wPriority ＝ 0<br />     strhdrAudio.wLanguage ＝ 0<br />     strhdrAudio.dwScale ＝ w<br />     strhdrAudio.dwRate ＝ h<br />     strhdrAudio.dwStart ＝ 0<br />     strhdrAudio.dwInitialFrames ＝ 0<br />     strhdrAudio.dwSuggestedBufferSize ＝ s<br />     strhdrAudio.dwQuality ＝ 0<br />     strhdrAudio.dwSampleSize ＝ 1<br />     strhdrAudio.rcFrame.bottom ＝ 0<br />     strhdrAudio.rcFrame.left ＝ 0<br />     strhdrAudio.rcFrame.right ＝ 0<br />     strhdrAudio.rcFrame.top ＝ 0<br />     strhdrAudio.dwEditCount ＝ 0<br />     strhdrAudio.dwFormatChangeCount ＝ 0<br />     strhdrAudio.dwLength ＝ 0<br /> <br />     ' //创建数据流<br />     hr ＝ AVIFileCreateStream (pfile, psA, strhdrAudio)<br /> <br />     ' //设置音频格式<br />     hr ＝ AVIStreamSetFormat (psA, 0, waveFormat, 取字节集长度 (waveFormat))<br /> <br />     ' //写数据<br />     tmp_buf ＝ 读入字节集 (WAV文件号, s)<br />     hr ＝ AVIStreamWrite (psA, 0, 1, tmp_buf, s, 16, 0, 0)<br /> <br />     关闭文件 (WAV文件号)<br />     AVIStreamRelease (psA)<br /> <br /> .如果真结束<br /> <br /> AVIStreamRelease (psV)<br /> .如果真 (pfile ≠ 0)<br />     AVIFileRelease (pfile)<br /> .如果真结束<br /> AVIFileExit ()

此方法是论坛里找的，其中的参数 ”BMP文件名数组“，是文本型数组，如果将这个参数直接换成图片字节集数组，应该怎么改这个方法

b0y

感觉还是文件名数组合适一些 如果很多的话 字节集数组太大
你可以存到临时目录

cwb757136008

因为是直接取到字节集，不想保存jpg后又读入jpg