Menyimpan WAV/AVI ke Database

Tulisan ini adalah jawaban saya atas pertanyaan @Abdhee, apakah WAV dapat disimapn dalam database Paradox?
Sejauh yang saya tahu, iya. Seperti penyimpanan Bitmap dan Jpeg ke blob field, WAV/AVI pun dapat diperlakukan sama, dengan cara yang bahkan sama.

Singkat saja, berikut potongan kodenya:
[sourcecode language='delphi']
procedure StoreWAV(table:TTable; filename:String);
var
FileStream: TFileStream; {to load the avi file}
BlobStream: TBlobStream; {to save to the blob}
begin
BlobStream := TBlobStream.Create(Table.FieldByName('AVI'), bmReadWrite);
BlobStream.LoadFromFile(filename);
BlobStream.Free;
Table .Post;
end;

[/sourcecode]

Sedangkan untuk membaca kembali WAV/AVI yang tersimpan dalam database:

[sourcecode language='delphi']
procedure StoreWAV(table:TTable; filename:String);
var
FileStream: TFileStream; {to load the avi file}
BlobStream: TBlobStream; {to save to the blob}
begin
Table .Edit;
BlobStream := TBlobStream.Create(Table.FieldByName('AVI'), bmRead);
BlobStream.SaveToFile(filename);
BlobStream.Free;
end;

[/sourcecode]

Kode ini belum dites, soalnya OL dari warnet. Koreksi, pertanyaan dan referensi ditunggu.Referensi:
http://www.delphi32.com/info_facts/faq/faq_246.asp
http://www.delphifr.com/infomsg_WAVE-PARADOX_315356.aspx

google_tags: delphi, database, blob, WAV, AVI, table, jokorb