Vlc playerda audio ve format değerleri

[hido]

Merhabalar...

Vlc playerda audio ve format değerlerini nasıl alabilirim?

Örnek: format

Kod: Tümünü seç

Caption:=PasLibVlcPlayer1.SetVideoAspectRatio('4:3'); 

Örnek: audio

Kod: Tümünü seç

Caption:=PasLibVlcPlayer1.SetAudioChannel(libvlc_AudioChannel_Right);

[G.Arkas]

Merhabalar...

Vlc playerda audio ve format değerlerini nasıl alabilirim?

Örnek: format

Kod: Tümünü seç

Caption:=PasLibVlcPlayer1.SetVideoAspectRatio('4:3'); 

Burada set edilen bir değeri alamazsınız. Eğer varsa GetVideoAspectRatio araştırınız. Şu anda elimin altında olmadığı için bakamadım.

Kod: Tümünü seç

LibVlc.libvlc_video_get_aspect_ratio(libvlc_media_player_t p_mi)
Get current video aspect ratio.

Kolay gelsin.

[hido]

Bu şekilde nasıl yapabilirim Üç farklı versiyon denedim, netde de birşey bulamadım bu şekilde de sonuç çıkmadı...

var
Audio: String;
Audio: Single;
Audio: Interger;

[thelvaci]

Kaynak kodu yok mu bu PasLibVLC'nin ?

[hido]

Databaseye kaydediyorum...

Kod: Tümünü seç

procedure TForm1.SetAudioChannelLeftClick(Sender: TObject); // PasLibVlcUnit
begin
  try
    with MainForm.AYARLARQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Update AYARLAR Set AUDIO=:AUD');
      ParamByName('AUD').Value := 'libvlc_AudioChannel_Left';
      ExecSQL;
      MainForm.PasLibVlcPlayer1.SetAudioChannel(libvlc_AudioChannel_Left);
    end;
  except
  end;
end;

Databaseden çekliyorum

Kod: Tümünü seç

procedure TMainForm.PlayerSistem(Sender: TObject);
var
Audio: ------->>>< bu alama he yazabilirim...
begin
  try
    with AYARLARQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM AYARLAR');
      Prepared := True;
      Open;
      if Not IsEmpty then
      begin
        Format := FieldByName('FORMAT').AsString;
        Audio := FieldByName('AUDIO').AsString;

        PasLibVlcPlayer1.SetAudioChannel(Audio);
      end;
    end;
  except
  end;
end;

[thelvaci]

libvlc_AudioChannel_Left alanı büyük ihtimalle bir enum'dur dolayısı ile sayısal bir değerdir, ister sayısal değerin kendisini yazın veritabanına ister string'e çevirin de yazın. Audio değişkeniniz de bu durumda veri tabanından çektiğiniz değer olacak.

Örneğin; libvlc_AudioChannel_Left = 7 olarak tanımlanmış olsun; bu durumda siz veritabanına 7 yazacaksınız; sonra da Audio'nuz 7 olacak; Audio'nun tipine gelince; libvlc_AudioChannel_Left bir enum ise; bu durumda Audio : Byte; olacak elbette.

İpucu: libvlc_AudioChannel_Left üzerine mouse'unuzu getirin ve Ctrl tuşu basılı iken Sol tıklayın; bu sayede libvlc_AudioChannel_Left'in tanımlandığı yere gider ve değerini görebilirsiniz. Bu neden ile kaynak kodu var mı diye sormuştum. Kaynak kodu yoksa da görürsünüz değerini gerçi de, yine de belirteyim istedim.

[hido]

Mutlaka dediğiniz gibi, fakat integer veya string bir değer alamıyorum...

[mia]

i don`t understand whats the problem here but if you cannot set string or integer at your query

Audio := FieldByName('AUDIO').AsString;

you can use asString or asinteger what ever will sue your needs , or if its numbers as Boolean to return True or false most important

what SetAudioChannel(); parmeter type to be called

[mrmarman]

Mutlaka dediğiniz gibi, fakat integer veya string bir değer alamıyorum...

- Tuğrul bey'in (müsaadenizle) söylemi kavram olarak sana ağır geldiğinden anlayamamış olabilirsin, ben örnekleyeyim dersini kendin çıkar. Başlık sağır muhabbetine dönüşüyor diye müdahale etmek gereği duydum.

Kod: Tümünü seç

  Case PasLibVlcPlayer1.GetAudioChannel of
    libvlc_AudioChannel_Error   : ShowMessage('libvlc_AudioChannel_Error' );
    libvlc_AudioChannel_Stereo  : ShowMessage('libvlc_AudioChannel_Stereo'  );
    libvlc_AudioChannel_RStereo : ShowMessage('libvlc_AudioChannel_RStereo' );
    libvlc_AudioChannel_Left    : ShowMessage('libvlc_AudioChannel_Left' );
    libvlc_AudioChannel_Right   : ShowMessage('libvlc_AudioChannel_Right' );
    libvlc_AudioChannel_Dolbys  : ShowMessage('libvlc_AudioChannel_Dolbys' );
  end;

kodunu yaz ve sonucu gözlemle...

- Değer Integer ise ki öyle (byte negatif değer alamayacağından ki error ile (-1) dönecek) o zaman doğru bir şekilde CAST ederek (cast etmek demek Türkçe "kast etmek" ile uyumludur yani be onu öyle kast ederek söyledim veya dinledim gibisinden) sonucunu öyle almalısın.

Kod: Tümünü seç

Var
  Audio: Integer;
begin
  Audio := Integer( xVLCPlayer.GetAudioChannel );
  ShowMessageFmt('%d', [Audio] );

Sorunun cevabı da bu oluyor...

[thelvaci]

Üstad, benim cevabım ağır geldi ise cidden bir sorun var demektir. Audio, video gibi konular nispeten programlamanın zor dallarıdır. Component'in kaynak kodu da var sanıyorum ki, iki defa mesajımda belirtmeme rağmen arkadaş buna yanıt vermemiş; bu durumda hakikaten uygulama yazmaya odaklanmak yerine; öğrenmeye odaklanmak daha faydalı olacaktır sanıyorum ki.

[mrmarman]

- Haklı olabilirsin hocam ama buna sorun demesek daha iyi olur. Çünkü karşılaşılan engeller ile insan kendisini tanımlar.

- Eğitimci eğitim formasyonlarında anlatılanlar da benzeri zaten değil mi?

- Bir başkasının az biliyorsun demesi egoları zedeler, onun yerine küçük iğnelemeler yeterli bence.
- Kişiyi motive eder öğrenmeye sevk eder.
- Bir daha soracağı soru için benzer hatayı yapmaz kılar.

[hido]

- Haklı olabilirsin hocam ama buna sorun demesek daha iyi olur. Çünkü karşılaşılan engeller ile insan kendisini tanımlar.

- Eğitimci eğitim formasyonlarında anlatılanlar da benzeri zaten değil mi?

- Bir başkasının az biliyorsun demesi egoları zedeler, onun yerine küçük iğnelemeler yeterli bence.
- Kişiyi motive eder öğrenmeye sevk eder.
- Bir daha soracağı soru için benzer hatayı yapmaz kılar.

Üstad, benim cevabım ağır geldi ise cidden bir sorun var demektir. Audio, video gibi konular nispeten programlamanın zor dallarıdır. Component'in kaynak kodu da var sanıyorum ki, iki defa mesajımda belirtmeme rağmen arkadaş buna yanıt vermemiş; bu durumda hakikaten uygulama yazmaya odaklanmak yerine; öğrenmeye odaklanmak daha faydalı olacaktır sanıyorum ki.

Selamalar.

Sorunu çözmüştüm, çözdüğümü belirtmediğim için "haklı olarak eleştirinizi doğru" buluyorum. Burdan mustafa hocamın kulakalarını çınlatayım foruma açılan konuları tekrar çözüldü olarak kapatmalıyız, gibi bir durum olamaz mı?

Saygılarımla...

[mrmarman]

Merhaba.

... Burdan mustafa hocamın kulakalarını çınlatayım foruma açılan konuları tekrar çözüldü olarak kapatmalıyız, gibi bir durum olamaz mı?

- Şimdilik başlığın sonuna "[ÇÖZÜLDÜ]" şeklinde bir ifade ekleyerek değiştirme imkanını değerlendir.
- Daha da önemlisi nasıl çözdüğünü buradan da paylaşmak, soruyu soran kişi olarak senin zaten ödevin olduğunu unutmamalısın.. Çünkü soruyu sorarak bunu forum üyelerine mal etmiş oluyorsun, cevabı bilmek herkesin hakkıdır. Özellikle sana cevap vermek için değerli zamanını ayıranlar için çözüme nasıl ulaştığını da bilmek hakkı olduğu gibi.

Saygılar bizden...