11-02-2019, Saat: 15:59
Hayırlı günler;
Açık kaynak olan PasLibVlcPlayer ile projeme devam ediyorum. Çözemediğim bir sorunla karşılaştım.
Videonun üzerine gelen png formatındaki logonun yolunu belirlemek istiyorum.
Fakat yolunu belirlediğim logo bir türlü video üstüne çıkmıyor.
Benim kodlarla var olan kodları showmessage ile karşılaştırdığımda arada ki farklı anlayamadım. Bu sorunu nasıl çözebilirim?
Adresini gösterdiğim kodlar logo yolu:
Mevcut logo adresi:
Showmessage ile baktığımda logolar başka yerde ama adres faklı (\..\..\..\Logo.png) ???
Açık kaynak olan PasLibVlcPlayer ile projeme devam ediyorum. Çözemediğim bir sorunla karşılaştım.
Videonun üzerine gelen png formatındaki logonun yolunu belirlemek istiyorum.
Fakat yolunu belirlediğim logo bir türlü video üstüne çıkmıyor.
Benim kodlarla var olan kodları showmessage ile karşılaştırdığımda arada ki farklı anlayamadım. Bu sorunu nasıl çözebilirim?
Adresini gösterdiğim kodlar logo yolu:
procedure TMainForm.BtnLogo1Click(Sender: TObject); var yLogo, yApplPath, yLogoPath: String; begin yApplPath := 'C:\Users\Yeliz\Documents\YelizTV\logo'; yLogoPath := yApplPath + '..' + PathDelim + '..' + PathDelim + '..' + PathDelim + '..' + PathDelim; yLogo := yLogoPath + 'Logo.png'; if (Fileexists(yLogo)) then begin PasLibVlcPlayer.LogoShowFiles([yLogo]); end; end;
Mevcut logo adresi:
procedure TMainForm.Btnlogo2Click(Sender: TObject); var Logo, ApplPath, LogoPath: String; begin ApplPath := ExtractFilePath(Application.ExeName); LogoPath := ApplPath + '..' + PathDelim + '..' + PathDelim + '..' + PathDelim + '..' + PathDelim; Logo := LogoPath + 'Logo.png'; if (Fileexists(Logo)) then begin PasLibVlcPlayer.LogoShowFiles([Logo]); showmessage(Logo); end; end;
Showmessage ile baktığımda logolar başka yerde ama adres faklı (\..\..\..\Logo.png) ???