文件读写样例

来源：互联网发布：跳跃表添加java实现编辑：程序博客网时间：2024/06/02 17:09

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);