Kod: Tümünü seç
try
try
inc(Bilgi);
except
sabir;
end;
finally
inc(Mutluluk);
end;
bulutsuzluk_35 yazdı:hido cevap verilmiş teşekkür ediyorsun sonra çözümde birebir belirttiği bir şeyi sanki hiç okumamış gibi tekrar soruyorsun...
brs yazdı:Selamlar, Siz tam olarak ne yapmak istiyorsunuz?
Film veya herhangi bir videonun üzerine logo ve alt bant reklam tarzı bir şey mi? yani televizyon yayıncılığı gibi bir sistemi kurma istiyorsunuz?
....
Kod: Tümünü seç
uses PasLibVlcPlayerUnit, PasLibVlcClassUnit, PasLibVlcUnit;
Var
xVLCPlayer : PasLibVlcPlayerUnit.TPasLibVlcPlayer;
xVLCMediaList : PasLibVlcPlayerUnit.TPasLibVlcMediaList;
procedure TForm1.BitBtn2Click(Sender: TObject);
Var
strLogo1, strLogo2 : String;
begin
if xVLCPlayer = nil
then xVLCPlayer := TPasLibVlcPlayer.Create(nil);
if xVLCMediaList = nil
then xVLCMediaList := TPasLibVlcMediaList.Create(nil);
with xVLCPlayer do
begin
Parent := Panel1;
Align := alClient;
AudioOutput := PasLibVlcClassUnit.aoWaveOut;
if xVLCMediaList.IsPlay then
begin
xVLCMediaList.Stop;
xVLCMediaList.Clear;
end;
xVLCMediaList.Player := xVLCPlayer;
Application.ProcessMessages;
xVLCMediaList.Add( Edit1.Text );
xVLCMediaList.PlayItem( xVLCMediaList.GetItemAtIndex(0) );
end;
// Logo Yükleme
strLogo1 := ExtractFilePath(Application.ExeName) + 'Logo\logo1.png';
strLogo2 := ExtractFilePath(Application.ExeName) + 'Logo\logo2.png';
if (FileExists( strLogo1 ) and FileExists( strLogo1 )) then
begin
xVLCPlayer.LogoShowFiles( [strLogo1, strLogo2] );
xVLCPlayer.LogoSetPosition( libvlc_position_top_right );
end;
xVLCPlayer.SetAudioVolume( 50 );
if TrackBar1 <> nil then
begin
TrackBar1.Min := 0;
TrackBar1.Max := 100;
TrackBar1.Position := 50;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
xVLCPlayer.SetAudioVolume( TTrackBar(Sender).Max - TTrackBar(Sender).Position );
end;
....Kod: Tümünü seç
uses PasLibVlcPlayerUnit, PasLibVlcClassUnit, PasLibVlcUnit;
Var
xVLCPlayer : PasLibVlcPlayerUnit.TPasLibVlcPlayer;
xVLCMediaList : PasLibVlcPlayerUnit.TPasLibVlcMediaList;
procedure TForm1.BitBtn2Click(Sender: TObject);
Var
strLogo1, strLogo2 : String;
begin
if xVLCPlayer = nil
then xVLCPlayer := TPasLibVlcPlayer.Create(nil);
if xVLCMediaList = nil
then xVLCMediaList := TPasLibVlcMediaList.Create(nil);
with xVLCPlayer do
begin
Parent := Panel1;
Align := alClient;
AudioOutput := PasLibVlcClassUnit.aoWaveOut;
if xVLCMediaList.IsPlay then
begin
xVLCMediaList.Stop;
xVLCMediaList.Clear;
end;
xVLCMediaList.Player := xVLCPlayer;
Application.ProcessMessages;
xVLCMediaList.Add( Edit1.Text );
xVLCMediaList.PlayItem( xVLCMediaList.GetItemAtIndex(0) );
end;
// Logo Yükleme
strLogo1 := ExtractFilePath(Application.ExeName) + 'Logo\logo1.png';
strLogo2 := ExtractFilePath(Application.ExeName) + 'Logo\logo2.png';
if (FileExists( strLogo1 ) and FileExists( strLogo1 )) then
begin
xVLCPlayer.LogoShowFiles( [strLogo1, strLogo2] );
xVLCPlayer.LogoSetPosition( libvlc_position_top_right );
end;
xVLCPlayer.SetAudioVolume( 50 );
if TrackBar1 <> nil then
begin
TrackBar1.Min := 0;
TrackBar1.Max := 100;
TrackBar1.Position := 50;
end;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
xVLCPlayer.SetAudioVolume( TTrackBar(Sender).Max - TTrackBar(Sender).Position );
end;