PasLibVlc Volume sorunu-[ÇÖZÜLDÜ]

[AliZairov]

İyi geceler. Playerim için ücretsiz olan PasLibVlc kütüphanesi kullanıyorum. Ses seviyesi kontrolünde hata veriyor nedense. Yeni proje açıp denedim aynı hata alıyorum. Amma kendi örnek projesinde hata vermiyor.

Örnek kodlama kodları:

Kod: Tümünü seç

PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()+10); // Yükselt
PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()-10); // Azalt

Hata mesajı

invalid floating point operation

[thelvaci]

Hatayı tam olarak nerede aldığınızı belirtmemişsiniz ama bu tarz kontrollerin genellikle Set8087CW metoduna ihtiyacı olur. Bana kalırsa bir denemelisiniz.

[AliZairov]

Iyi geceler. Oynatılan videonun sesini yükseltme yada azaltma yaptığımda o hatayı alıyorum. Örnek verdiğim kodları kullanıyorum. Benim projede boş projede sorun veriyor. Amma kendi örnek projesin derlediğimde sorun vermiyor.

[AliZairov]

İyi geceler. Soruna hala bi çözüm bulamadım.

[mrmarman]

Sana daha önce canlı yayın için hazırladığım örneğin bir kısmını vereyim. Buradan yürürsün.
Muhtemelen kendi projende AudioOutput propertysini boş bıraktın. Kaynak kod paylaşımını bekledim, hatanın nerede olduğunu anlamak için buna ihtiyaç var dememe gerek yok artık değil mi ? ama gelmeyince ben yazayım dedim.

Kod: Tümünü seç

Uses PasLibVlcPlayerUnit, PasLibVlcClassUnit;

Var
  xVLCPlayer    : PasLibVlcPlayerUnit.TPasLibVlcPlayer;
  xVLCMediaList : PasLibVlcPlayerUnit.TPasLibVlcMediaList;

procedure VLCPlayer( strVideo: String; VideoPanel:TPanel; SesTrackBar:TTrackBar );
begin
  if xVLCPlayer    = nil
  then xVLCPlayer := TPasLibVlcPlayer.Create(nil);

  if xVLCMediaList = nil
  then xVLCMediaList := TPasLibVlcMediaList.Create(nil);

  with xVLCPlayer do
  begin
    Parent       := VideoPanel;
    Align        := alClient;
    AudioOutput  := PasLibVlcClassUnit.aoWaveOut;
    if xVLCMediaList.IsPlay then
    begin
      xVLCMediaList.Stop;
      xVLCMediaList.Clear;
    end;
    xVLCMediaList.Player := xVLCPlayer;
    Application.ProcessMessages;
    xVLCMediaList.Add( strVideo );
    xVLCMediaList.PlayItem( xVLCMediaList.GetItemAtIndex(0) );
  end;

  xVLCPlayer.SetAudioVolume( 50 );

  if SesTrackBar <> nil then
  begin
    SesTrackBar.Min      := 0;
    SesTrackBar.Max      := 100;
    SesTrackBar.Position := 50;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  strFile : String;
begin
  strFile := ExtractFilePath(Application.Exename) + 'You & Me Flipbook.mp4';
  VLCPlayer( strFile, Panel1, TrackBar1 );
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  xVLCPlayer.SetAudioVolume( TTrackBar(Sender).Max - TTrackBar(Sender).Position );
end;

[AliZairov]

İyi geceler Muharrem abi. Teşekkürler. AudioOutput olaynı düzenledim sorun olmadı daha. Kaynak derken ben küçük bir ek pas dosyasına yaptım kodlarımı.

Kod: Tümünü seç

procedure TApp.ShowText(Text: string; Left, Top: Integer);
begin
  SetPlayer.MarqueeSetText(Text);
  SetPlayer.MarqueeSetTimeOut(3000);
  SetPlayer.MarqueeSetPosition(Left, Top);
end;

procedure TApp.VolumeUp;
begin
  SetPlayer.SetAudioVolume(SetPlayer.GetAudioVolume + 10);
  ShowText('Səs: ' + IntToStr(SetPlayer.GetAudioVolume), 15, 15);
end;

procedure TApp.VolumeDown;
begin
  SetPlayer.SetAudioVolume(SetPlayer.GetAudioVolume() - 10);
  ShowText('Səs: ' + IntToStr(SetPlayer.GetAudioVolume), 15, 15);
end;

[mrmarman]

Kaynak derken, hata yaşadığın noktada buraya yazmadan önce mşnik bir yeni proje kurup orada test etmeli, aynı sorunla karşılaştığında o projeyi kaynak koduyla burada verirsin kimsenin kafası karışmaz

[AliZairov]

İyi akşamlar Muharrem abi. Ben yeni projede denemiştim aynı sorunu vermişti. Aklıma gelmedi örneği paylaşmağa.