پخش فایل صوتی از داخل بانک

سلام
چگونه میتونم یک فایل صوتی(wave) رو که توی یک بانک و فیلد از نوع blob است رو پخش کنم البته با تابع playsound خودم بلدم ولی در تابع playspund نمیتونم position فایل رو که در حال اجرا است تغییر بدم یعنی در حقیقت سوالم هم همین است . اگه برای فایلهای rm بگین خیلی بهتره .
با تشکر از همه
...............................

[hotice]

سلام
یک مثال اینجا هست http://delphi.about.com/cs/blob/
موفق باشی :)

[hotice]

سلام
یک مثال دیگه

// To save a file to BLOB: 

procedure TForm1.Button1Click(Sender: TObject); 

var 

  blob: TBlobStream; 

begin 

  blob := yourDataset.CreateBlobStream(yourDataset.Field  ByName('YOUR_BLOB'), bmWrite); 

  try 

    blob.Seek(0, soFromBeginning); 

    fs := TFileStream.Create('c:\your_name.wav', fmOpenRead or 

      fmShareDenyWrite); 

    try 

      blob.CopyFrom(fs, fs.Size) 

    finally 

      fs.Free 

    end; 

  finally 

    blob.Free 

  end; 

end; 

  // To load from BLOB: 



procedure TForm1.Button1Click(Sender: TObject); 

var 

  blob: TBlobStream; 

begin 

  blob := yourDataset.CreateBlobStream(yourDataset.Field  ByName('YOUR_BLOB'), bmRead); 

  try 

    blob.Seek(0, soFromBeginning); 



    with TFileStream.Create('c:\your_name.wav', fmCreate) do 

      try 

        CopyFrom(blob, blob.Size) 

      finally 

        Free 

      end; 

  finally 

    blob.Free 

  end; 

end; 

موفق باشی :)