gimana cara memisahkan antara header file wav dengan simple datanya.. dimana herdernya sudah diketahui antara offset 0-44 dan sample data nya berada di offset 45-panjang audionya.. jadi dia dibuat jadi dua file satu birisi headernya (offset 0-44) dan satu lagi berisi sample datanya (offset 45-lenght)!

Split file, yg mudahnya pake filestream aja, kayak gini

procedure TForm1.btn1Click(Sender: TObject);
var
  fs, fs1, fs2 : TFileStream;
  fname : string;
  fout1 : string;
  fout2 : string;
begin
  if OpenDialog1.Execute then //open wav file
  begin
    fname := OpenDialog1.FileName;
    fout1 := ExtractFilePath(fname) +
      StringReplace(ExtractFileName(fname), '.wav','.header', [rfIgnoreCase]);
    fout2 := ExtractFilePath(fname) +
      StringReplace(ExtractFileName(fname), '.wav','.data', [rfIgnoreCase]);
    fs := TFileStream.Create(fname, fmOpenRead);
    fs1 := TFileStream.Create(fout1, fmCreate);
    fs2 := TFileStream.Create(fout2, fmCreate);
    fs.Seek(0, soFromBeginning);
    fs.Position := 0;
    fs1.CopyFrom(fs, 44);
    fs.Position := 44;
    fs2.CopyFrom(fs, fs.Size-44);
    fs.Free;
    fs1.Free;
    fs2.Free;
  end;
end;

kok jadi g bisa diakses.. another progress..

ok mas thanks.. dah dapat...

thanks mas.. kalo sebelum menyimpan kedalam sampe.temp dilakukan perubahan ke dalam biner gmna ya? trus rubah biner ke Tfilestream?