elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] DH Player 0.1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] DH Player 0.1  (Leído 1,590 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] DH Player 0.1
« en: 13 Mayo 2013, 23:40 pm »

Un simple reproductor de musica que hice basado en este articulo.

Una imagen :



El codigo :

Código
  1. // DH Player 0.1
  2. // Coded By Doddy H
  3. // Based on this article : http://delphi.about.com/od/multimedia/l/aa112800a.htm
  4.  
  5. unit mp3player;
  6.  
  7. interface
  8.  
  9. uses
  10.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  11.  Dialogs, Menus, StdCtrls, sListBox, sSkinManager, MPlayer, sGroupBox, jpeg,
  12.  ExtCtrls, ComCtrls, acProgressBar, Buttons, FileCtrl, sEdit;
  13.  
  14. type
  15.  TForm1 = class(TForm)
  16.    sSkinManager1: TsSkinManager;
  17.    sGroupBox1: TsGroupBox;
  18.    sListBox1: TsListBox;
  19.    sGroupBox2: TsGroupBox;
  20.    MediaPlayer1: TMediaPlayer;
  21.    Image1: TImage;
  22.    sGroupBox3: TsGroupBox;
  23.    sProgressBar1: TsProgressBar;
  24.    PopupMenu1: TPopupMenu;
  25.    L1: TMenuItem;
  26.    R1: TMenuItem;
  27.    A1: TMenuItem;
  28.    E1: TMenuItem;
  29.    Directory: TsGroupBox;
  30.    sEdit1: TsEdit;
  31.    Timer1: TTimer;
  32.    procedure A1Click(Sender: TObject);
  33.    procedure E1Click(Sender: TObject);
  34.    procedure R1Click(Sender: TObject);
  35.    procedure L1Click(Sender: TObject);
  36.    procedure Timer1Timer(Sender: TObject);
  37.    procedure sListBox1DblClick(Sender: TObject);
  38.    procedure FormCreate(Sender: TObject);
  39.  
  40.  private
  41.    { Private declarations }
  42.  public
  43.    { Public declarations }
  44.  end;
  45.  
  46. var
  47.  Form1: TForm1;
  48.  
  49. implementation
  50.  
  51. {$R *.dfm}
  52.  
  53. procedure TForm1.A1Click(Sender: TObject);
  54. begin
  55.  ShowMessage('Contact to lepuke[at]hotmail[com]');
  56. end;
  57.  
  58. procedure TForm1.E1Click(Sender: TObject);
  59. begin
  60.  Form1.Close();
  61. end;
  62.  
  63. procedure TForm1.FormCreate(Sender: TObject);
  64. begin
  65.  sProgressBar1.Max := 0;
  66.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  67.  sSkinManager1.SkinName := 'fm';
  68.  sSkinManager1.Active := True;
  69. end;
  70.  
  71. procedure TForm1.L1Click(Sender: TObject);
  72. var
  73.  dir: string;
  74.  search: TSearchRec;
  75.  cantidad: Integer;
  76.  
  77. begin
  78.  
  79.  SelectDirectory('Select a folder', '', dir);
  80.  
  81.  sListBox1.Clear;
  82.  
  83.  sEdit1.Text := dir;
  84.  cantidad := FindFirst(dir + '/' + '*.*', faAnyFile, search);
  85.  
  86.  while cantidad = 0 do
  87.  begin
  88.    if FileExists(dir + '/' + search.name) then
  89.    begin
  90.      sListBox1.Items.Add(search.name);
  91.    end;
  92.    cantidad := FindNext(search);
  93.  end;
  94.  FindClose(search);
  95.  
  96. end;
  97.  
  98. procedure TForm1.R1Click(Sender: TObject);
  99. begin
  100.  sEdit1.Text := '';
  101.  sProgressBar1.Max := 0;
  102.  sListBox1.Clear;
  103. end;
  104.  
  105. procedure TForm1.sListBox1DblClick(Sender: TObject);
  106. begin
  107.  
  108.  sProgressBar1.Max := 0;
  109.  
  110.  MediaPlayer1.Close;
  111.  MediaPlayer1.FileName := sEdit1.Text + '/' + sListBox1.Items.Strings
  112.    [sListBox1.ItemIndex];
  113.  MediaPlayer1.Open;
  114.  
  115.  sProgressBar1.Max := MediaPlayer1.Length;
  116. end;
  117.  
  118. procedure TForm1.Timer1Timer(Sender: TObject);
  119. begin
  120.  if sProgressBar1.Max <> 0 then
  121.    sProgressBar1.Position := MediaPlayer1.Position;
  122. end;
  123.  
  124. end.
  125.  
  126. // The End ?
  127.  

Si lo quieren bajar lo pueden hacer de aca


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
dvd player
Multimedia
HpMaxi 1 1,562 Último mensaje 10 Marzo 2006, 07:51 am
por Sourraund
[Descarga] CodeGear RAD Studio - Delphi 2007 + Delphi for PHP « 1 2 3 »
Software
GroK 26 25,228 Último mensaje 14 Mayo 2014, 17:51 pm
por sebaseok
FLV Player v2.0.24
Multimedia
MicroAttackeR 0 2,159 Último mensaje 27 Octubre 2008, 18:41 pm
por MicroAttackeR
VMware Player 3.1.3. Crea y ejecuta máquinas virtuales con VMware Player
Software
wolfbcn 0 4,031 Último mensaje 23 Noviembre 2010, 21:11 pm
por wolfbcn
[Delphi] DH Player 0.5
Programación General
BigBear 0 1,477 Último mensaje 28 Febrero 2014, 16:35 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines