PasLibVlc siyah ekran olması

[Atomkarınca]

Merhaba,

PasLibVlc_3.0.7 yüklemeyi yaptım. video'yu seçiyorum. Fakat video "FmxPasLibVlcPlayer" siyah video ekrana gelmiyor oynamıyor bu durumu nasıl çözerim?

[mrmarman]

sisteminizde vlc player yüklü olmayabilir mi ?

[Atomkarınca]

(06-03-2021, Saat: 14:37)mrmarman Adlı Kullanıcıdan Alıntı: sisteminizde vlc player yüklü olmayabilir mi ?

VLC yüklü garip bir durum acaba ne olabilir?

[mrmarman]

Kod örneği verilmediğine ve PasLibVLC içinde gelen örnek projeyi uyguladıktan sonra bize mesaj yazdığınızı umarak kodunuz hatalı diyebilirim. Sorunuzdan zorlayınca sadece bu kadarlık bir yorum çıkıyor maalesef.

[Atomkarınca]

(06-03-2021, Saat: 16:31)mrmarman Adlı Kullanıcıdan Alıntı: Kod örneği verilmediğine ve PasLibVLC içinde gelen örnek projeyi uyguladıktan sonra bize mesaj yazdığınızı umarak kodunuz hatalı diyebilirim. Sorunuzdan zorlayınca sadece bu kadarlık bir yorum çıkıyor maalesef.

Henüz kodlamaya başlamadım PasLibVLC üzerinden örnek üzerinden kontrol ettiğimde videoyu seçebiliyorum fakat görüntü ve ses gelmiyor. kodekler güncel PC'siye VLC yüklü başka ne olabilir?

rocedure TMainForm.FmxPasLibVlcPlayer1MediaPlayerVideoSizeChanged(
  Sender: TObject; width, height, video_w_a32, video_h_a32: Cardinal);
begin
  Caption := IntToStr(width) + 'x' + IntToStr(height);
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FmxPasLibVlcPlayer1.Stop();
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Caption := Caption + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
end;

procedure TMainForm.OpenButtonClick(Sender: TObject);
begin
  if (OpenDialog.Execute) then
  begin
    FmxPasLibVlcPlayer1.Play(OpenDialog.FileName);
  end;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  FmxPasLibVlcPlayer1.InvalidateRect(FmxPasLibVlcPlayer1.BoundsRect);
end;

[Atomkarınca]

Sorunu çözdüm

PC 64bit VLC'de 64 bit fakat demo FmxPasLibVlcPlayer ilk açılışta 32 bit olarak açtığından durumu fark etmedim.