TOCAR MP3!

http://www.carlosb.com/
vá na página deste portuga que ele tem um ótimo componente para tocar mp3 que é totalmente FREE...
agora,se vc quer algo mais profissional....vá na página..www.swiftsoft.de/mmtools.html

Vc vai precsar 1 MediaPlayer, 1 Button, 2 Timers, 1 opendialog e 1 gauge:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, ExtCtrls, Gauges, Buttons, StdCtrls;

type
TFormer = class(TForm)
MediaPlayer1: TMediaPlayer;
SpeedButton1: TSpeedButton;
Gauge1: TGauge;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
Timer2: TTimer;
procedure SpeedButton1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Former: TFormer;
counter,c:integer;

implementation

{$R *.DFM}

procedure TFormer.SpeedButton1Click(Sender: TObject);
begin
With OpenDialog1 do
if execute then
begin
caption:= ´Música Total - ´+ExtractFilename(Filename);
MediaPlayer1.FileName:=Filename;
Filename:=´´;
with mediaplayer1 do
begin
open;
gauge1.maxvalue:=mediaplayer1.Length;
gauge1.progress:=0;
timer1.enabled:=true;
end;
end;
end;

procedure TFormer.Timer1Timer(Sender: TObject);
begin
gauge1.progress:=mediaplayer1.Position;
end;

procedure TFormer.Timer2Timer(Sender: TObject);
begin
{if gauge1.progress>=1 then
begin
label1.Caption:=inttostr(c)+´:´+inttostr(counter);
counter:=counter+1;
if counter>=59 then
c:=c+1;
counter:=0;
end; }
end;

procedure TFormer.FormShow(Sender: TObject);
begin
counter:=0;
c:=0;
end;

end.

SKAARJ, isso funciona até certo ponto, mais o gauge não funciona e ele mp3 ele não abre, só consegui arir wav!só toco o wav.. o mp3 dá erro.. com midi não testei...

Credo cara, q estranho.. Aqi tá tocando normal..
Quando voce tiver ON no ICQ a gnt dá uma olhada..

kra, vc usa q versão do Delphi? aki eu uso o delphi 5 e toca mp3 com o mediaplayer mesmo...
alias, estou desenvolvendo um player ai quando tiver pronto coloco em algum server ai vc v como eu fiz...

Fala, DDOLIV!

Já tive um problema assim como o seu com MP3 e suspeito que você tem o DIVX instalado, pois esse era o meu problema. Quero dizer, o componente MEDIAPLAYER do meu DELPHI estava dando pau e só descobri o motivo depois que formatei o HD e não instalei o DIVX... Quando voltei a instalar o DIVX, o problema voltou a acontecer, pois o meu aplicativo tocador de MP3/AVI parou de tocar arquivos com essas extensões. Isto pode ser devido ao fato de que este programa troca um monte de arquivos que o Windows usa para gerenciar conteúdo multi-mídia, principalmente os arquivos responsáveis pelos vídeos e WAVs (o MP3 é baseado no WAV, prova disto é que se você renomear um MP3 para WAV o Windows toca de qualquer modo!), por versões ´hackeadas´ pela equipe que o desenvolveu...

Posso até estar enganado, mas, como já disse, estou suspeitando que você tem o DIVX instalado...

eu tive q fazer uma faixina nomeu pc anets de isntalar delphi, pq estava lotado, daí faz uams 2 semanas eu apaguei o divx, justamaente pra isntalar o delphi ,lberar espaço no pc, eu apaguei mt coisa!

acho q deve ter deixado vestígios no pc!