Arsip: split sample data & header file

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

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;

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
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- Membuat Save File Data Base
by xenvook in Bedah Kasus more 14 years ago - QReport...
by bayu in MySQL more 16 years ago - Bagaimana caranya bisa Otomatis turun kebawah
by javaman in Hal umum tentang Pascal Indonesia more 17 years ago - Info Firebird
by kaka-delphi in FireBird more 18 years ago - Error Mysql " request returned with SQL_ERROR"
by hak3nd3n in MySQL more 14 years ago - Bukan Freeware
by fafenail in Kritik & Saran more 17 years ago - tanya checkbox di delphi
by Rogeb_Shewrite in Hal umum tentang Pascal Indonesia more 17 years ago - Step by step migrasi Clipper ke Delphi
by delphi_warrior in Lain-lain more 16 years ago - XAMPP VS WAMP5
by babypigs in Hal umum tentang Pascal Indonesia more 16 years ago - Sistem Informasi Geografis
by peucang in Hal umum tentang Pascal Indonesia more 16 years ago