Arsip: split sample data & header file

 
user image
more 11 years ago

andtho89

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)!
user image
more 11 years ago

halimanh

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;
user image
more 11 years ago

andtho89

kok jadi g bisa diakses.. another progress..
user image
more 11 years ago

andtho89

ok mas thanks.. dah dapat...
user image
more 11 years ago

andtho89

thanks mas.. kalo sebelum menyimpan kedalam sampe.temp dilakukan perubahan ke dalam biner gmna ya? trus rubah biner ke Tfilestream?
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com