(Resolvido) Lista de Musicas... erro

[António44]

Reparei que o tópico esta resolvido,e de certa maneira esta...só uma pequena duvida aqui,eu estou gravando os link criados pelo no listbox em base de dados para aceder as musicas quando quiser e não voltar a procurar.

C:\Lionel\ACD\ACDC   If You Want Blood (You Got It)(Official Audio).mp3

O problema é que se a musica for removida da pasta gera um erro... ''is not a válid integer value ,como ultrapassar esse erro com uma mensagem.

[Jhonas]

ok... fica valendo esse agora

para contornar esse problema, basta voce testar se o arquivo existe

If not(fileexists(' C:\Lionel\ACD\ACDC   If You Want Blood (You Got It)(Official Audio).mp3 ')) then Showmessage('Arquivo inexistente');

ou seja, quando voce escolher a musica, voce deve testar, para ver se ela existe na pasta

outra solução seria voce salvar as suas musicas em uma tabela no delphi, atraves de um campo tipo BLOB

abraço

[António44]

outra solução seria voce salvar as suas musicas em uma tabela no delphi, atraves de um campo tipo BLOB

Não tenho ideia de  como guardar no BLOB e depois reproduz como? usa-se o mesmo codigo que testamos no post anterior ???

 

se puder dar uma ajuda eu agradeço.

Abraço

 

[Jhonas]

qual é o banco de dados que voce quer usar... Paradox ou outro ?

[António44]

Paradox.

 

[Jhonas]

Ok... use o Database Desktop do delphi para criar a sua tabela  ( Paradox )

vamos criar uma tabela bem simples

nome ( A ) ( 30 )  //// campo alfanumerico para o nome da musica

mp3 ( O ) ( 5 )  ////  campo OLE para a musica MP3 de tamanho max de 5 Mb

OBS: depois se voce quiser voce pode incrementar mais coisas

-------------------------------------------------------------------------

depois crie uma nova aplicação

coloque esses componentes para acesso a tabela paradox e faça os links entre os componentes e a tabela

Query1 - DataSetProvider1 - ClientDataSet1 - DataSource1

-------------------------------------------------------------------------

vou criar um código para voce ver como fazer

 

 

 

 

[António44]

DataSetProvider1 - ClientDataSet1  o d3 não tem esses componentes eu não tenho o d7 instalado.

Abraço

[Jhonas]

voce tem no delphi 3 a paleta Data Access ?  se não tiver eu mudo aqui

[António44]

Não em não, o D3 não tem.

StoredProc1,Session1,BatchMove1,UpdateSQL1,Query1,DataSource1,Table1,Database1

 

[Jhonas]

ok...  fiz um codigo bem simples para voce entender

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Provider, DB, DBClient, DBTables, StdCtrls, MPlayer, Grids,
  DBGrids, ExtCtrls, DBCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    MediaPlayer1: TMediaPlayer;
    Button2: TButton;
    Query1NOME: TStringField;
    Query1MP3: TBlobField;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nome_musica : string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 If opendialog1.Execute Then
 begin
   // musica selecionada na pasta
   nome_musica := opendialog1.filename;

   // gravar na tabela
   Query1.Active := false;
   Query1.Active := true;

   Query1.Last;
   Query1.Insert;
   Query1.Edit;

   Query1NOME.Value := nome_musica;
   Query1MP3.LoadFromFile(nome_musica);
   Query1.Post;

   showmessage('Musica Salva');
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Query1.Active := false;
   Query1.Active := true;

   MediaPlayer1.Close;

   // tirar a musica da tabela e salvar no disco
   Query1MP3.SaveToFile('c:\musica.mp3');

   // abrir a musica pelo MediaPlayer e tocar

   MediaPlayer1.FileName := 'c:\musica.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
   Query1.Active := false;
   Query1.Active := true;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
    MediaPlayer1.Close;

   // tirar a musica da tabela e salvar no disco
   Query1MP3.SaveToFile('c:\musica.mp3');

   // abrir a musica pelo MediaPlayer e tocar

   MediaPlayer1.FileName := 'c:\musica.mp3';
   MediaPlayer1.Open;
   MediaPlayer1.Play;
end;

end.

OBS: SELECT * FROM MP3

essa é a select que esta dentro da query1 ( SQL )

no lugar do MediaPlayer voce pode usar o código anterior ....  só fiz com ele para ficar mais facil

procedure TForm1.Button8Click(Sender: TObject);
begin
   OpenMP3('c:\musica.mp3');
   Gauge1.MaxValue := GetMP3Len;
   PlayMP3;
   Timer1.Enabled := true;
end;

voce só terá que modificar o código, para colocar a rotina de salvar a musica no banco de dados e depois tira-la para tocar

abraço

[António44]

Ao tirar as musicas da tabela para poder reproduzir elas certo? e depois essas faixas ficam no disco,ou é um  temporário enquanto reproduz?.

Abraço  

[Jhonas]

quando voce tira da tabela para reproduzir, ela fica no disco . mas quando voce seleciona outra, essa vai ficar no lugar da outra.

então voce terá no disco apenas uma musica, que voce pode apagar, se quiser, ao final da musica.

abraço

[António44]

Mesmo que tenha um titulo diferente fica no lugar da anterior ? pensei como tem titulo diferente criaria novo file  ?

Abraço

[Jhonas]

Mesmo que tenha um titulo diferente fica no lugar da anterior ?

sim

pensei como tem titulo diferente criaria novo file  ?

a musica que sera salva na tabela, vai ficar com o titulo original

a musica que sera tocada, terá sempre o mesmo nome ( musica.mp3) , mas voce pode mostrar o titulo original no Form

abraço

[António44]

Compreedido.sõ outra questão o tamanho do' OLE' pode ir no máximo até quantos megas?

Abraço

[Jhonas]

OLE até 240 Mb .... mas voce não vai precisar mais do 6 Mb por musica

abraço

 

[António44]

Ok ,vou montar o projecto para ver tudo funcionando.

Obrigado Jhonas.

Abraço

[Jhonas]

ok... qualquer dúvida ... poste

abraço

[António44]

Tenho aqui uma duvida no Trackbar.

Com Max= 22 ele funciona bem, mas se eu meter o Max=100 e por exemplo Position=40 inicia bem o som mas quando aumento no trackbar nos 50%  e nos 100% quase fica sem som porque será?

Eu queria usar um som acima dos Max=22 ? 

procedure TRegistoMolduras.TrackBar1Change(Sender: TObject);
var
   Count , i : longint;  // 4369
begin
   Count := waveOutGetNumDevs;
   for i := 0 to Count do
     begin
        waveOutSetVolume(i,longint(TrackBar1.position*1369)*65536+longint(TrackBar1.position*1369));
     end;

end;

Abraço

[Jhonas]

por causa desse calculo  ....  para o valor de 1369 o Trackbar tem que ser 22 para não sumir o som

        waveOutSetVolume(i,longint(TrackBar1.position*1369)*65536+longint(TrackBar1.position*1369));

se voce colocar no calculo o valor 4369 o Trackbar tem que ser 13

voce pode tentar usar a rotina de som do seu primeiro código, e ver o resultado

abraço

 

 

[António44]

Ok Obrigado

Abraço

[António44]

 dando erro aqui.

Erro .  Cannot modify a read-only dataset.

procedure TForm1.FlatSpeedButton1Click(Sender: TObject);
begin
 If opendialog1.Execute Then
 begin
   // musica selecionada na pasta
   nome_musica := opendialog1.filename;

   // gravar na tabela
   Query1.Active := false;
   Query1.Active := true;

   Query1.Last;
   Query1.Insert;
   Query1.Edit;

   Query1Nome.Value := nome_musica;
  Query1MP3.LoadFromFile(nome_musica);
   Query1.Post;

   showmessage('Musica Salva');
 end;
end;

 

[Jhonas]

na propriedade ResquestLive da Query deixe como true

ou coloque no código

 // gravar na tabela
   Query1.ResquestLive := true;
   Query1.Active := false;
   Query1.Active := true;

abraço

[António44]

ok,

Assim como esta funciona bem,  1 de cada vez agora como faço para fazer correr a lista do dbgrid ? é igual como no listbox?

[Jhonas]

é igual como no listbox

só que nesse caso, voce vai substituir o ListBox pelo DBListBox1

na propriedade DataField = MP3

na propriedade DataSource = DataSource1

o DBListBox1 vai ter a lista de suas musicas

o resto continua igual

abraço

[António44]

Porreiro.

Obrigado Jhonas

Abraço