Delphi FMX里要播放 RTMP 流怎么弄？

Question

该问题来自社区帖: https://bbs.csdn.net/topics/616983216.

问题如题

Answer 1

下载并安装VLC4Delphi库

uses
  Alcinoe.VLC;

procedure TForm1.Button1Click(Sender: TObject);
var
  MediaPlayer: TVLCMediaPlayer;
begin
  MediaPlayer := TVLCMediaPlayer.Create(nil);
  try
    // 设置RTMP流URL
    MediaPlayer.Media.Input := 'rtmp://your-rtmp-stream-url';

    // 设置视频输出窗口
    MediaPlayer.VideoOutput := TControl(Self.Handle).Handle;

    // 播放RTMP流
    MediaPlayer.Play;

    // 等待播放完成或手动停止
    Sleep(5000); // 播放5秒钟
    MediaPlayer.Stop;
  finally
    MediaPlayer.Free;
  end;
end;