Mega Code Archive
Activex olarak windows media playerın kullanılması
//NUH EROĞLU
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, WMPLib_TLB, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
Button3: TButton;
TrackBar1: TTrackBar;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Panel1: TPanel;
Label1: TLabel;
Timer1: TTimer;
Label2: TLabel;
TrackBar2: TTrackBar;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TrackBar2Change(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
liste:IWMPPlaylist;
Dosya:IWMPMedia;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
h,a: integer;
x:string;
begin
//label2.Caption:=inttostr(strtoint(FloatToStr(windowsMediaPlayer1.currentMedia.duration)));
x:=(FloatToStr(windowsMediaPlayer1.currentMedia.duration));
val(x,h,a);
label2.Caption:=IntToStr(h);
WindowsMediaPlayer1.controls.play;
TrackBar2.Max:=h;
timer1.Enabled:=True;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
WindowsMediaPlayer1.controls.pause;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
WindowsMediaPlayer1.settings.volume:=TrackBar1.Position;
//WindowsMediaPlayer1.DrawTextBiDiModeFlags(4)
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Position:=WindowsMediaPlayer1.settings.volume;
DoubleBuffered:=true;
WindowsMediaPlayer1.DoubleBuffered:=true;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
WindowsMediaPlayer1.controls.currentPosition:=WindowsMediaPlayer1.controls.currentPosition-5;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
WindowsMediaPlayer1.controls.currentPosition:=WindowsMediaPlayer1.controls.currentPosition+5;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
WindowsMediaPlayer1.controls.previous;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
WindowsMediaPlayer1.controls.next;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
WindowsMediaPlayer1.controls.stop;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
WindowsMediaPlayer1.BrowseProperties;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
WindowsMediaPlayer1.DoubleBuffered:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=WindowsMediaPlayer1.status +' '+WindowsMediaPlayer1.controls.currentPositionString+
' ses :'+inttostr(WindowsMediaPlayer1.settings.volume)
+ WindowsMediaPlayer1.currentMedia.durationString ;
TrackBar2.Position:=strtoint(FloatToStrF(WindowsMediaPlayer1.controls.currentPosition,ffNumber,3,0))
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
windowsMediaPlayer1.controls.currentPosition:=StrToFloat(inttostr(TrackBar2.Position));
end;
procedure TForm1.Button11Click(Sender: TObject);
var
i:integer;
begin
Dosya:=WindowsMediaPlayer1.currentMedia;
//WindowsMediaPlayer1.currentPlaylist.appendItem(WindowsMediaPlayer1.mediaCollection.getByName('MySong').Item[0]);
//kayit.appendItem(WindowsMediaPlayer1.currentMedia);
//Label2.Caption:=WindowsMediaPlayer1.currentPlaylist.name;
ListBox1.Items.Add(WindowsMediaPlayer1.currentPlaylist.Item[0].sourceURL);
WindowsMediaPlayer1.currentPlaylist.appendItem(WindowsMediaPlayer1.currentMedia);
end;
procedure TForm1.FormClick(Sender: TObject);
begin
WindowsMediaPlayer1.URL := 'http://www.microsoft.com/somefile.wmv';//gibi
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
WindowsMediaPlayer1.URL:=ListBox1.Items.Strings[1] ;
end;
//NUH EROGLU
//NUH EROĞLU
end.