Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.03 c