文件读写样例

最新推荐文章于 2021-07-07 23:27:14 发布

yewenlin

最新推荐文章于 2021-07-07 23:27:14 发布

阅读量489

点赞数

分类专栏： delphi程序开发文章标签： file

本文链接：https://blog.csdn.net/yewenlin/article/details/4468389

版权

delphi程序开发专栏收录该内容

12 篇文章 0 订阅

订阅专栏

hFile : THandle;

hFile := CreateFile(                                                        //创建文件（串口），取得操作句柄
                        //PChar(self.Edit2.Text),                                       //文件名称
                        PChar('d:/adpcm.wav'),
                        GENERIC_READ or GENERIC_WRITE,                          //操作方式(读或写)
                         FILE_SHARE_READ or FILE_SHARE_WRITE,                                            //共享方式
                        nil,                                                    //SD
                        OPEN_ALWAYS ,                                          //文件创建方法
                        FILE_ATTRIBUTE_NORMAL,                                  //文件属性
                        0);
if hFile = INVALID_HANDLE_VALUE then exit;

//保成为wave文件
len := recodeFrameCount * 960;
writeWaveFileHeader(hFile,CHANNELS,SAMPLES_PER_SEC,BITS_PER_SAMPLE,len);
WriteFile(hFile,PCMBuffer,len,size,0);

closeHandle(hFile);