Arsip: split sample data & header file

more 10 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 10 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 10 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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Grouping Quick Report
by Soni in Paradox more 16 years ago - SARAN: View Posts Since Last Visit
by bangfauzan in Kritik & Saran more 16 years ago - execute help index file chm
by donlego in Tip n Trik Pemrograman more 14 years ago - Mengurangi Jam
by AndyK in Tip n Trik Pemrograman more 15 years ago - contoh sederhana fungsi random
by asiyrob in Tip n Trik Pemrograman more 15 years ago - pakai ado kok lama
by mbahdien in Tip n Trik Pemrograman more 15 years ago - Tanya tentang WebServer nih
by sugismail in Tip n Trik Pemrograman more 13 years ago - Contoh Program Penjualan + Inventory
by andip70 in Hal umum tentang Pascal Indonesia more 15 years ago - Menampilkan 16000 Record lambat?
by myluqman in MsSQL more 15 years ago - Source code document generator
by cikumiyu in Hal umum tentang Pascal Indonesia more 15 years ago