Delphi ile Mp3 dosya çalmak çaldırmak
| ||||
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,MPlayer;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Mp3Player: TMediaPlayer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var Mp3Dosyasi:string;
begin
Mp3Player:=TMediaplayer.CreateParented(Form1.Handle);//Mp3Player nesnesini türetiyoruz…
Mp3Dosyasi:=’1.mp3′;// buraya path(yolu) ile beraber çalmak istediğiniz mp3 dosyayı yazınız…
if not FileExists(Mp3Dosyasi) then begin ShowMessage(’1.MP3 dosyası bulunamadı…’);Halt;end;//Bu satırı kendinize göre düzeltin.
Mp3Player.Close;
Mp3Player.FileName:=Mp3Dosyasi;
Mp3Player.Open;
Show;//Formu göster
Mp3Player.play;// ve çalmaya başla …
end;
end.
Benzer Yazılar:
Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.
Loading ...