Prosty Odtwarzacz mp3

<font color="red">

Witam piszę tutaj pierwszy raz.Teraz zademonstruje wam jak można szybko zrobić swój własny odtwarzacz muzyki, za pomocą podstawowych komponentów

</span></p>

---

Jestem początkującym programistą i myślę że niektórym taki kod może się przydać.

1.Tworzymy nową aplikację .

2.Na formę wstawiamy 3 TSpeedButtony , TScrollBara , z zakładki Dialogs wstawiamy TopenDialog, wstawiamy jeszcze TMediaPlayer (można też wstawić TStatuss bara).

3.Teraz w:
a)speed buttonie 1 w caption wpisujemy otwórz. i ustawiamy Flat na True
b)speed buttonie 2 w caption wpisujemy Play i ustawiamy Flat na True
c)speed buttonie 3 w caption wpisujemy Pause i ustawiamy Flat na True
d)scroll baru ustawiamy Max na 127.

4.Wstawiamy kod:(dwa razy klikamy na speed buttona
A) Speed button 1:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin // otwiera okno wyboru
  MediaPlayer1.DeviceType := dtAutoSelect; // auto. odtwarzanie
  MediaPlayer1.FileName := OpenDialog1.FileName;
  MediaPlayer1.Open;
  ScrollBar1.Max := MediaPlayer1.Length;
  ScrollBar1.Position := MediaPlayer1.Position;
  MediaPlayer1.Play;
end;
end;

B) Speed button 2

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
MediaPlayer1.Play
end;

C) Speed button 3

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
MediaPlayer1.Pause
end;

---

cały kod wygląda tak

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, MPlayer,MMSystem, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    StatusBar1: TStatusBar;
    ScrollBar1: TScrollBar;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;

    
    procedure ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ScrollBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Zmiana głośności dźwięku typu Wave
procedure SetWavVolume(Lewy,Prawy:Byte); 
begin
waveOutSetVolume(WAVE_MAPPER, Integer((Lewy shl 24) or (Prawy shl 8 ))); 
end; 

// Zmiana głośności muzyki z płyt CD
procedure SetCDVolume(Lewy,Prawy:Byte); 
begin 
auxSetVolume(0, Integer((Lewy shl 24) or (Prawy shl 8 ))); 
end;




procedure TForm1.ScrollBar1Change(Sender: TObject);
begin

  // Zmiana głośności dla normalnych plików dźwiękowych (WAV lub Mp3)
  SetWavVolume(ScrollBar1.Position,ScrollBar1.Position);
  // Zmiana głośności dla muzyki odtwarzanej z płyt CD
  SetCDVolume(ScrollBar1.Position,ScrollBar1.Position);

end;

procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
ScrollBar1.Max := MediaPlayer1.Length;
MediaPlayer1.Position := ScrollBar1.Position;
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
OpenDialog1.Execute; // otwiera okno wyboru
if OpenDialog1.FileName <> '' then
Begin
  MediaPlayer1.DeviceType := dtAutoSelect; // auto. odtwarzanie
  MediaPlayer1.FileName := OpenDialog1.FileName;
  MediaPlayer1.Open;
  ScrollBar1.Max := MediaPlayer1.Length;
  ScrollBar1.Position := MediaPlayer1.Position;
  MediaPlayer1.Play;
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
MediaPlayer1.Play
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
MediaPlayer1.Pause
end;


end.

W razie jakichkolwiek pytań pytań proszę o kontakt na gg: 4946688
Proszę też o wasze opinie