TMediaPlayer

← →
gyry-9 (2004-03-06 03:50) [0]

Подскажите пожалуйста, как пользоваться TMediaPlayer. Если просто ставлю на форму, то при запусе пишет ошибку: "no mci device open". Что делать?

← →
ИМХО © (2004-03-06 20:46) [1]

Там в хэлпе пример есть:

DeviceType, Display, Open, Play example

var sWinDir: String;

iLength: Integer;
begin
// Initialize Variable
iLength := 255;
setLength(sWinDir, iLength);
iLength := GetWindowsDirectory(PChar(sWinDir), iLength);
setLength(sWinDir, iLength);

With MediaPlayer1 do begin
Filename := sWinDir + "\Clock.avi"; //specify video file
DeviceType := dtAVIVideo; //set Device compatibility to AVI
Display := Panel1; //Set display device to a TPanel
Open;
Play;
end;
end;

TMediaPlayer Найти похожие ветки