Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: 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 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.039 c
3-1083007680
Mister
2004-04-26 23:28
2004.05.23
как узнать ServerName или ServerGUID


6-1081178925
-=Demon=-
2004-04-05 19:28
2004.05.23
TClient&TServer-Socket


9-1073934198
Bortel
2004-01-12 22:03
2004.05.23
написание игр в DelphiX


3-1083152021
КоммофОнСамый
2004-04-28 15:33
2004.05.23
помогите Найти пример к Employee.gdb


14-1083514378
SammIk
2004-05-02 20:12
2004.05.23
PopUp