DELPHI AREA Forum

I am *Ing you from turkey follow
My english some weak
When the music steal
On the form
Can I do the vibration
Ekolayzr looks like
A lot of simple something

This Project
---------------------

Code: Select all

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Close;
  MediaPlayer1.FileName := 'C:\Documents and Settings\BBS PC\Desktop\mp3\ÇAKKIDI.mp3';
  MediaPlayer1.Open;

end;

---------------
One simple example
I will broaden
Thank you

What is the question? Do you want ask something?

Ne sormak istediğinizi anlamadık. türkiş forumlarına sorabilirsiniz.

Vumetre yapacaksanız iş kolay. ancak spektrum analizer işi zordur. Vumetre için, LiveAudio Player On Level olayı kullanılacakç bufferi kısa tutacaksınız.

Thank you

aslında basit bir ekolayzr sistemiydi müziğe göre paintte sesle hareket edecekti ama
anlatamadık galiba sürekli takip ederim bu formu tabi ingilizce zayıf olunca derdimizi
anlatamıyoruz.İlgin için teşekkür ederim.