Imagnes Som

Delphi

20/04/2004

Como posso fazer para conforme for tocando a musica(.mp3).. aparecendo o quanto ja foi tocada? Eu tbm queria fazer com imagens (.bpm), tenho imagens de 0 a 9, como poderia fazer isso?
Na qula consistiria nas trcas de imagens durante a reprodução da música, fazendo uma espécie de filme...

Obrigado pela atenção


Salvati

Salvati

Curtidas 0

Respostas

Salvati

Salvati

20/04/2004

Ai gente aqui é está o código qeu estou usando, mas ainda preciso receber de um procedure minha a pasta, que já está pronto, mas naum sei ocmo sincronizar as imagens com o som, isto é, quando acabar as imagnes a serem exibidas o som acaba junto
o código segue abaixo:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:= 100;
Image1.Picture.LoadFromFile(´C:\Imagem\imagem´+FormatFloat(´000´,contImg)+´.jpg´);
Image1.Picture.LoadFromFile(´C:\Imagem´+FormatFloat(´000´,contImg)+´.bmp´);
Inc(contImg);
if contImg=4 then
contImg:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
contImg:=1;
SndPlaySound(´C:\pesca.wav´, SND_ASYNC or SND_LOOP);
SndPlaySound(´C:\pesca1.mp3´, SND_ASYNC);
mediaplayer1.FileName:= ´c:\pesca1.mp3´;
mediaplayer1.Open;
timer1.Enabled:= true;
mediaplayer1.Play;
end;


Obrigado pela atenção




                

                
GOSTEI 0

             

             

                 

                     

                          Salvati
                          
Salvati

                     

                     
 20/04/2004

                 

                

                    [quote=´salvati´]Ai gente aqui é está o código qeu estou usando, mas ainda preciso receber de um procedure minha a pasta, que já está pronto, mas naum sei ocmo sincronizar as imagens com o som, isto é, quando acabar as imagnes a serem exibidas o som acaba junto
o código segue abaixo:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:= 100;
Image1.Picture.LoadFromFile(´C:\Imagem´+FormatFloat(´000´,contImg)+´.bmp´);
Inc(contImg);
if contImg=4 then
contImg:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
contImg:=1;
SndPlaySound(´C:\pesca1.mp3´, SND_ASYNC);
mediaplayer1.FileName:= ´c:\pesca1.mp3´;
mediaplayer1.Open;
timer1.Enabled:= true;
mediaplayer1.Play;
end;


Obrigado pela atenção




                

                
GOSTEI 0

             
             

                 

                     

                          Salvati
                          
Salvati

                     

                     
 20/04/2004

                 

                

                    oww gente me ajuda ai por favpor!!!!



                

                
GOSTEI 0

             

             

        

            POSTAR