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:

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;

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

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;

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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s