Gönderen Konu: MediaPlayer ses ayarlari (Okunma sayısı 6014 defa)

Subhan · « : 09 Nisan 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

RewriteRule · « **Yanıtla #1 :** 11 Nisan 2008 15:34:52 »

al sana link

http://delphi.about.com/od/adptips2006/qt/mediaplayer_vol.htm

Subhan · « **Yanıtla #2 :** 12 Nisan 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

RewriteRule · « **Yanıtla #3 :** 12 Nisan 2008 12:29:52 »

Subhancığım bu kısım var ya:

Kod: (Unknown Language)

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:

Kod: (Unknown Language)

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:

Kod: (Unknown Language)

{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:

Kod: (Unknown Language)

  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:

Kod: (Unknown Language)

  MPSetVolume(MediaPlayer1, ScrollBar1.Position) ;

Kolay Gelsin.

Subhan · « **Yanıtla #4 :** 12 Nisan 2008 15:43:38 »

Tesekurler calisdi

Subhan · « **Yanıtla #5 :** 12 Nisan 2008 16:49:35 »

Ya sen bir benim koda baksan neyse bende programi kulaninca hata veriyor hemde 2 -defa kod asgida

Kod: [Seç]

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.

kodun bu kisminda hata veriyor

Kod: [Seç]

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;

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

Kocaturk · « **Yanıtla #6 :** 13 Nisan 2008 01:03:20 »

:_ss 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..

Subhan · « **Yanıtla #7 :** 13 Nisan 2008 10:12:46 »

Alıntı yapılan: Kocaturk - 13 Nisan 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..

Ebni calismasi istediyim dosya yok yaw calacak dosyayi ben belirliyicem favorite.mp3 kismini bos buraksam olurmu ve ya ne yazmaliyim

Subhan · « **Yanıtla #8 :** 14 Nisan 2008 13:36:32 »

RewriteRule peki ben sarkinin kalan suresini nasil gosteririm (mesela sarki bitmeyine 1:30 ) vakitini gostersin

RewriteRule · « **Yanıtla #9 :** 14 Nisan 2008 14:52:51 »

Aşağıdaki kodu her saniye çalışan bir Timer nesnesinin OnTimer olayına yazarsan kalan süreyi görebilirsin.

Kod: (Unknown Language)

Label1.Caption := MediaPlayer1.Length - MediaPlayer1.Position;

Subhan · « **Yanıtla #10 :** 14 Nisan 2008 17:50:42 »

Verdiyin kod calismdai hat veriyor neden usere < birsey yazmak gerekiyormu ve ya net etmeliyim forma her hangi bir nesne koymaliyimi

RewriteRule · « **Yanıtla #11 :** 16 Nisan 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.

Subhan · « **Yanıtla #12 :** 16 Nisan 2008 15:04:04 »

Alıntı yapılan: RewriteRule - 16 Nisan 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.

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

RewriteRule · « **Yanıtla #13 :** 17 Nisan 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.

Subhan · « **Yanıtla #14 :** 17 Nisan 2008 16:12:36 »

Alıntı yapılan: RewriteRule - 17 Nisan 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.

Azda olsa bisey anladik ancak yine olmadi ses ayarini belirledim ancak mp3 caldinda yine otomatik yukseliyor

Saat kudu ne oldu basaka yolu yokmu bunun

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: MediaPlayer ses ayarlari (Okunma sayısı 6014 defa)

Subhan

MediaPlayer ses ayarlari

RewriteRule

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

RewriteRule

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

Kocaturk

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

RewriteRule

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

RewriteRule

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari

RewriteRule

Ynt: MediaPlayer ses ayarlari

Subhan

Ynt: MediaPlayer ses ayarlari