Tam Sürümü Göster: MediaPlayer ses ayarlari
MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 09 April 2008 21:37:27
Selam Arkadaslar
Forma MediaPlayer koyduk bunun Bur turlu sesi acib kisamiyorum ben cok kod buldum ancak kulanamadim kimde varsa benimle paylasirmi lutfen kulanimini yazarsiniz sevinirim
mumkunse winamp -daki gibi sesi acdinda trackbardan (ve ya neyse) ses acilan yeri rengli oluyor bunu nasil yaparim
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 11 April 2008 15:34:52
al sana link :
http://delphi.about.com/od/adptips2006/qt/mediaplayer_vol.htm
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 12 April 2008 10:42:18
RewiteRule sana Tesekur ederim ancak bu kodu bende buldum kodu calistirmasini bilmiyorum nereye yazsam yata veriyor Bi yardim etsenen ban kodu kulanisin bana soylermisin
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 12 April 2008 12:29:52
Subhancığım bu kısım var ya:
Form'un kodlarının en üstünde uses diye bir kısım var o kısmın sonuna MMSystem eklemen lazım.
Bu kısmı yukarıda eklediğin uses kısmının hemen altına yaz:
Bu kısmı implementation'ın ve eğer varsa {$R *.dfm} kısmının altına yaz:
Bu kısmı Form'un OnCreate olayına yazman lazım:
Bu kısmı ScrollBar'ın OnChange olayına yazman lazım:
Kolay Gelsin.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 12 April 2008 15:43:38
Tesekurler calisdi
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 12 April 2008 16:49:35
Ya sen bir benim koda baksan neyse bende programi kulaninca hata veriyor hemde 2 -defa kod asgida
kodun bu kisminda hata veriyor
en sagidaki > end; doru yesil ok gosteriyor neden gosteriyo 2-kesde hat veriyor hata verdiyinde > ok < basiyorum bir daha hata veriyor yine > ok < basinca program aciliyor neden
Ynt: MediaPlayer ses ayarlari Gönderen: kocaturk Tarih: 13 April 2008 01:03:20
Senin makinada C: sürücüsünde yani C:\ dizininde favorite.mp3 diye bir mp3 dosyası varmı ki? eminim sen o kısımda hata alıyorsundur. sen çalmasını istediğin bir MP3 ün yolunu gir oraya..
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 13 April 2008 10:12:46
Ebni calismasi istediyim dosya yok yaw calacak dosyayi ben belirliyicem favorite.mp3 kismini bos buraksam olurmu ve ya ne yazmaliyim
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 14 April 2008 13:36:32
RewriteRule peki ben sarkinin kalan suresini nasil gosteririm (mesela sarki bitmeyine 1:30 ) vakitini gostersin
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 14 April 2008 14:52:51
Aşağıdaki kodu her saniye çalışan bir Timer nesnesinin OnTimer olayına yazarsan kalan süreyi görebilirsin.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 14 April 2008 17:50:42
Verdiyin kod calismdai hat veriyor neden usere < birsey yazmak gerekiyormu ve ya net etmeliyim forma her hangi bir nesne koymaliyimi
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 16 April 2008 12:53:17
satıra baktığın zaman bir Label nesnesi koyman lazım diye anlaşılması lazım Subhan. kaç aydır forumdasın halen ezbere kopyala yapıştıra bakıyon.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 16 April 2008 15:04:04
O kadarni biliyo her halde koda label1 yazdi icin bizde forma label koyduk dimi ayrica ben soz verdim kopyala yapistir yapmiyorum
senin sea yari icin verdiyin koda azicik bir yanlis var soyle anlatiyim simdi FileListBox < mp3 okuyor ses ayrida 50% olsun ancak baska bir mp3 okutun zaman ses otamatik yukseliyor ancak SrcolBar nasil varsa oyle kaliyor nasil bunu engeleye bilirim
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 17 April 2008 13:26:57
bunun için mevcut ses ayarının değerini ini dosyasına yazıp, daha sonra mediaplayer'ı tetiklediğin yerde değeri geri çağırıp sesi son ayara getirebilirsin.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 17 April 2008 16:12:36
Azda olsa bisey anladik ancak yine olmadi ses ayarini belirledim ancak mp3 caldinda yine otomatik yukseliyor
Saat kudu ne oldu basaka yolu yokmu bunun
Selam ArkadaslarForma MediaPlayer koyduk bunun Bur turlu sesi acib kisamiyorum ben cok kod buldum ancak kulanamadim kimde varsa benimle paylasirmi lutfen kulanimini yazarsiniz sevinirim
mumkunse winamp -daki gibi sesi acdinda trackbardan (ve ya neyse) ses acilan yeri rengli oluyor bunu nasil yaparim
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 11 April 2008 15:34:52
al sana link :
http://delphi.about.com/od/adptips2006/qt/mediaplayer_vol.htmYnt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 12 April 2008 10:42:18
RewiteRule sana Tesekur ederim ancak bu kodu bende buldum kodu calistirmasini bilmiyorum nereye yazsam yata veriyor Bi yardim etsenen ban kodu kulanisin bana soylermisin
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 12 April 2008 12:29:52
Subhancığım bu kısım var ya:
Kodlama dili (delphi)uses
MMSystem;
Form'un kodlarının en üstünde uses diye bir kısım var o kısmın sonuna MMSystem eklemen lazım.
Bu kısmı yukarıda eklediğin uses kısmının hemen altına yaz:
Kodlama dili (delphi)const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;
type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;
type
MCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;
Bu kısmı implementation'ın ve eğer varsa {$R *.dfm} kısmının altına yaz:
Kodlama dili (delphi){Sesi Ayarla, aralik 0 - 1000}
procedure MPSetVolume(MP: TMediaPlayer; Volume: Integer) ;
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)) ;
end;
{Sesin degerini al, aralik 0 - 1000}
function MPGetVolume(MP: TMediaPlayer): Integer;
var
p: MCI_STATUS_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_STATUS_VOLUME;
mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p)) ;
Result := p.dwReturn;
end;
Bu kısmı Form'un OnCreate olayına yazman lazım:
Kodlama dili (delphi)ScrollBar1.Min := 0;
ScrollBar1.Max := 1000;
ScrollBar1.Position := MPGetVolume(MediaPlayer1);
MediaPlayer1.Close;
MediaPlayer1.FileName:='c:\favorite.mp3';
MediaPlayer1.Open;
Bu kısmı ScrollBar'ın OnChange olayına yazman lazım:
Kodlama dili (delphi)MPSetVolume(MediaPlayer1, ScrollBar1.Position) ;
Kolay Gelsin.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 12 April 2008 15:43:38
Tesekurler calisdi
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 12 April 2008 16:49:35
Ya sen bir benim koda baksan neyse bende programi kulaninca hata veriyor hemde 2 -defa kod asgida
:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, MPlayer, ComCtrls, ExtCtrls,MMSystem;
const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;
type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;
type
MCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
FileListBox1: TFileListBox;
ScrollBar1: TScrollBar;
Timer1: TTimer;
TrackBar1: TTrackBar;
procedure FileListBox1DblClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure MPSetVolume(MP: TMediaPlayer; Volume: Integer) ;
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or
MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)) ;
end;
function MPGetVolume(MP: TMediaPlayer): Integer;
var
p: MCI_STATUS_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_STATUS_VOLUME;
mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p)) ;
Result := p.dwReturn;
end;
procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
with MediaPlayer1 do begin
close;
FileName:=FileListBox1.FileName;
open;
TrackBar1.Max:=Length;
Play;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Mode=mpplaying then begin
TrackBar1.Position:=MediaPlayer1.Position;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBar1.Min := 0;
ScrollBar1.Max := 1000;
ScrollBar1.Position := MPGetVolume(MediaPlayer1);
MediaPlayer1.Close;
MediaPlayer1.FileName:='filename';
MediaPlayer1.Open;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
MPSetVolume(MediaPlayer1, ScrollBar1.Position) ;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, MPlayer, ComCtrls, ExtCtrls,MMSystem;
const
MCI_SETAUDIO = $0873;
MCI_DGV_SETAUDIO_VOLUME = $4002;
MCI_DGV_SETAUDIO_ITEM = $00800000;
MCI_DGV_SETAUDIO_VALUE = $01000000;
MCI_DGV_STATUS_VOLUME = $4019;
type
MCI_DGV_SETAUDIO_PARMS = record
dwCallback: DWORD;
dwItem: DWORD;
dwValue: DWORD;
dwOver: DWORD;
lpstrAlgorithm: PChar;
lpstrQuality: PChar;
end;
type
MCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
FileListBox1: TFileListBox;
ScrollBar1: TScrollBar;
Timer1: TTimer;
TrackBar1: TTrackBar;
procedure FileListBox1DblClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure MPSetVolume(MP: TMediaPlayer; Volume: Integer) ;
var
p: MCI_DGV_SETAUDIO_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
p.dwValue := Volume;
p.dwOver := 0;
p.lpstrAlgorithm := nil;
p.lpstrQuality := nil;
mciSendCommand(MP.DeviceID, MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or
MCI_DGV_SETAUDIO_ITEM, Cardinal(@p)) ;
end;
function MPGetVolume(MP: TMediaPlayer): Integer;
var
p: MCI_STATUS_PARMS;
begin
p.dwCallback := 0;
p.dwItem := MCI_DGV_STATUS_VOLUME;
mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p)) ;
Result := p.dwReturn;
end;
procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
with MediaPlayer1 do begin
close;
FileName:=FileListBox1.FileName;
open;
TrackBar1.Max:=Length;
Play;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Mode=mpplaying then begin
TrackBar1.Position:=MediaPlayer1.Position;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBar1.Min := 0;
ScrollBar1.Max := 1000;
ScrollBar1.Position := MPGetVolume(MediaPlayer1);
MediaPlayer1.Close;
MediaPlayer1.FileName:='filename';
MediaPlayer1.Open;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
MPSetVolume(MediaPlayer1, ScrollBar1.Position) ;
end;
end.
kodun bu kisminda hata veriyor
:
procedure TForm1.FormCreate(Sender: TObject);
begin
ScrollBar1.Min := 0;
ScrollBar1.Max := 1000;
ScrollBar1.Position := MPGetVolume(MediaPlayer1);
MediaPlayer1.Close;
MediaPlayer1.FileName:='c:\favorite.mp3';
MediaPlayer1.Open;
end;
begin
ScrollBar1.Min := 0;
ScrollBar1.Max := 1000;
ScrollBar1.Position := MPGetVolume(MediaPlayer1);
MediaPlayer1.Close;
MediaPlayer1.FileName:='c:\favorite.mp3';
MediaPlayer1.Open;
end;
en sagidaki > end; doru yesil ok gosteriyor neden gosteriyo 2-kesde hat veriyor hata verdiyinde > ok < basiyorum bir daha hata veriyor yine > ok < basinca program aciliyor neden
Ynt: MediaPlayer ses ayarlari Gönderen: kocaturk Tarih: 13 April 2008 01:03:20
Senin makinada C: sürücüsünde yani C:\ dizininde favorite.mp3 diye bir mp3 dosyası varmı ki? eminim sen o kısımda hata alıyorsundur. sen çalmasını istediğin bir MP3 ün yolunu gir oraya..Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 13 April 2008 10:12:46
Senin makinada C: sürücüsünde yani C:\ dizininde favorite.mp3 diye bir mp3 dosyası varmı ki? eminim sen o kısımda hata alıyorsundur. sen çalmasını istediğin bir MP3 ün yolunu gir oraya..
Ebni calismasi istediyim dosya yok yaw calacak dosyayi ben belirliyicem favorite.mp3 kismini bos buraksam olurmu ve ya ne yazmaliyim
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 14 April 2008 13:36:32
RewriteRule peki ben sarkinin kalan suresini nasil gosteririm (mesela sarki bitmeyine 1:30 ) vakitini gostersin
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 14 April 2008 14:52:51
Aşağıdaki kodu her saniye çalışan bir Timer nesnesinin OnTimer olayına yazarsan kalan süreyi görebilirsin.
Kodlama dili (delphi)Label1.Caption := MediaPlayer1.Length - MediaPlayer1.Position;
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 14 April 2008 17:50:42
Verdiyin kod calismdai hat veriyor neden usere < birsey yazmak gerekiyormu ve ya net etmeliyim forma her hangi bir nesne koymaliyimi
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 16 April 2008 12:53:17
satıra baktığın zaman bir Label nesnesi koyman lazım diye anlaşılması lazım Subhan. kaç aydır forumdasın halen ezbere kopyala yapıştıra bakıyon.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 16 April 2008 15:04:04
satıra baktığın zaman bir Label nesnesi koyman lazım diye anlaşılması lazım Subhan. kaç aydır forumdasın halen ezbere kopyala yapıştıra bakıyon.
O kadarni biliyo her halde koda label1 yazdi icin bizde forma label koyduk dimi ayrica ben soz verdim kopyala yapistir yapmiyorum
senin sea yari icin verdiyin koda azicik bir yanlis var soyle anlatiyim simdi FileListBox < mp3 okuyor ses ayrida 50% olsun ancak baska bir mp3 okutun zaman ses otamatik yukseliyor ancak SrcolBar nasil varsa oyle kaliyor nasil bunu engeleye bilirim
Ynt: MediaPlayer ses ayarlari Gönderen: RewriteRule Tarih: 17 April 2008 13:26:57
bunun için mevcut ses ayarının değerini ini dosyasına yazıp, daha sonra mediaplayer'ı tetiklediğin yerde değeri geri çağırıp sesi son ayara getirebilirsin.
Ynt: MediaPlayer ses ayarlari Gönderen: Subhan Tarih: 17 April 2008 16:12:36
bunun için mevcut ses ayarının değerini ini dosyasına yazıp, daha sonra mediaplayer'ı tetiklediğin yerde değeri geri çağırıp sesi son ayara getirebilirsin.
Azda olsa bisey anladik ancak yine olmadi ses ayarini belirledim ancak mp3 caldinda yine otomatik yukseliyor
Saat kudu ne oldu basaka yolu yokmu bunun