Merhaba.
* Delphi IDE içerisinden çalıştırıyorsanız DEBUG işlemleri için araya girildiğinden geç çalışıyor olabilir.
Zaman zaman Delphi IDE dışından yani EXE klasörünü açıp oradan çalıştırıp süreleri kıyaslayın isterseniz.
Başlığı okuyup denemek isteyenler için örnek
forma bir button bir de panel bırakın
TRTFM radyonuz hazır.
(VCL paketini kurmak zorunda değilsiniz. Project Search Path içinde "source" ve "source.vcl" klasörlerinin bulunması kafi )
VCL download linkleri
için buraya başvurunuz. ( bu tarih itibariyle son sürüm 3.0.8 )
Sistemde "VLC Media Player" kurulu olmalıdır. Onun kütüphaneleri kullanılır.
uses PasLibVlcPlayerUnit, PasLibVlcClassUnit, PasLibVlcUnit;
var
PasLibVlcPlayer1 : TPasLibVlcPlayer;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
LUrl: string;
begin
if NOT Assigned(PasLibVlcPlayer1) then
begin
PasLibVlcPlayer1 := TPasLibVlcPlayer.Create(nil);
with PasLibVlcPlayer1 do
begin
Parent := Panel1;
Align := alClient;
AudioOutput := PasLibVlcClassUnit.aoWaveOut;
SetAudioVolume( 50 );
Visible := true;
end;
end;
LUrl:= 'https://radio-trtfm.live.trt.com.tr/master.m3u8';
PasLibVlcPlayer1.StartOptions.Add('--audio-visual=visual');
PasLibVlcPlayer1.StartOptions.Add('--effect-list=scope');
//dummy, scope, spectrum, spectrometer, vuMeter
PasLibVlcPlayer1.Play(LUrl);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Assigned(PasLibVlcPlayer1)
then
FreeAndNil(PasLibVlcPlayer1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ReportMemoryLeaksOnShutdown := true;
end;
');
