Veritabanına mp3 kaydetmek ve oynatmak...

[fatih_muti]

Merhaba Arkadaşlar.
Ben Paradox Veritabanına mp3'ü bu Kodla Kaydediyorum :

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
hafiza := TMemoryStream.Create;
hafiza.LoadFromFile(opendialog1.filename);
Table1.Append;
hafiza.Position := 0;
TBlobfield(Table1.FieldByName('Ses')).LoadFromStream(hafiza);
Table1.Post;
hafiza.Free;
end;

Ama Bu Kaydettiğim Sesi Çalamıyorum. Eğer Yardımcı Olursanız Çok Sevinirim...

[aslangeri]

s.a.
eğer normal mp3 dosyalarını çalabiliyorsanız vt ye kaydettiğiniz dosyayı
geçici olarak bir klasöre çıkartın. işiniz bittiği zaman silersiniz.
kolay gelsin.

[fatih_muti]

Çok teşekkür ederim ilgilendiğin için "aslangeri" kardeşim ama ben onu bu kodla yapabiliyorum :

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
hafiza:=TMemoryStream.Create;
TBlobField(table1.FieldByName('Ses')).SaveToStream(hafiza);
hafiza.SaveToFile('C:\muzik.mp3');
hafiza.Free;
end;

Bana Gerekli Olan İse Veritabanından Çalabilmek...
Yardımlarınızı Bekliyorum...

[bluekid]

Bana Gerekli Olan İse Veritabanından Çalabilmek...

mp3 Veritabanından kaydediyorsun oradan okuyup çalabiliyorsun
yani ne yapmak istiyorsun ? yada neyi yapamıyorsun ?

[aLonE CoDeR]

Stream veriyi bir şekilde extract etmeden bu söylediğini yapamazsın.Extract için de kullandığın veritabanını ve mp3 çaldığın toolu yazman gerekli.Kaldı ki bunu bir file olarak extract etmeden çalsan da kısa süre sora belleği çatlatırsın vs.vs.

Kolay gele.

[fatih_muti]

Herkese çok teşşekkür ediyorum. Dosya Olarak Extract edip Çalmaya Karar verdim. Yardımcı Olan Herkese Teşekkürler...