comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] DH Player 0.1

  • 0 Respuestas
  • 1105 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Mayo 13, 2013, 06:36:05 pm »
Un simple reproductor de musica que hice basado en este No tienes permisos para ver links. Registrate o Entra con tu cuenta.

Una imagen :



El codigo :

Código: Delphi
  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 No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3130
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1984
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3258
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 1413
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 2575
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear