компонент видеоплеер

[@Ri$91]

Как научить компонент видеоплеера возпроизводить сжатое видео или аудио, надо самому написать алгоритм(как? ) Или каким-то образом можно подключить кодек, или какой нить плагин из инета скачать???

[zetrix]

Компонент видеоплеер? Или TMidiaPlayer?

TMidiaPlayer - воспроизводит видео (и сжатое тоже) при помощи установленных в винде кодеков.
Т.е. можно написать свой плеер, и при инсталяции сделать так, чтоб устанавливался плеер + любые кодеки (divX, xVid и прочее...).

[@Ri$91]

TMediaPlayer будет воспроизводить любое видео при присутствии кодеков? Значит их надо прописвать в 'uses' или это произойдет автоматически, и кстати, заодно расскажите где можно описать и присвоить значение глобальным переменным, так как если их прописвать в процедуре,например при нажатии кнопки, то эта переменная каждый раз имеет единственное значение, мне чтобы вести подсчет, скажем нажатий кнопки приходится делать невидимый компонент Лэйбл, в котором я и веду отсчет....

[zetrix]

1) Глобальная переменная объявляется в var, где прописана строчка Form1: TForm1; вот тут и дописывай то, что тебе надо: var Form1: TForm1; s:string; //s - глобальная переменная

2)

TMediaPlayer будет воспроизводить любое видео при присутствии кодеков?

нет, он будет воспроизводить видео с помощью кодеков, которые установлены в системе, если они не установлены, то и воспроизводить ничего не будет.

3)

Значит их надо прописвать в 'uses' или это произойдет автоматически

соответственно (см. ответ 2) нет, и это полная чушь

Если пользователь раньше когда-то установил кодеки (тот же K-lite Mega Codec Pack) то Ваше приложение на TMediaPlayer будет воспроизводить только то видео, которое было сжато одним из кодеков вкдючённых в пакет K-lite.

[@Ri$91]

Большое спасибо, но про переменную вы не совсем поняли вопрос, где ей можно задать значение, например X:=1, ведь если это засунуть в процедуру, то каждый раз при ее выполнении х будет равен 1, а мне надо чтоб с ним можно было проделвать все, что я хочу, и чтоб при выполнении процедур он каждый раз не возвращался к начальному значению..., пробвал сделать это просто в начале кода, без процедуры в begin x:=1 end; но он не компилирует.... Как ей значение можно придать вне процедур, только не предлагайте сделать константой... :-)

[zetrix]

Присваивание переменной начального значения можно в процедуре Create у формы. (эта процедура вызывается только при создании формы - чаще всего 1 раз)