TMediaPlayer [D7, WinXP]
gyry-9 © (2004-03-06 03:50:00)
Подскажите пожалуйста, как пользоваться TMediaPlayer. Если
просто ставлю на форму, то при запусе пишет ошибку: "no mci device
open". Что делать?
ИМХО (2004-03-06 20:46:00) [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;
Наверх 
ЧАТ |
Орешник |
|
