<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Мой DELPHI - Программирование &#187; MediaPlayer</title>
	<atom:link href="http://www.mydelphi.info/code/tag/mediaplayer/feed" rel="self" type="application/rss+xml" />
	<link>http://www.mydelphi.info</link>
	<description>Всё для программера</description>
	<lastBuildDate>Mon, 09 Jun 2008 16:55:52 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как показать первый кадр AVI-файла?</title>
		<link>http://www.mydelphi.info/code/148</link>
		<comments>http://www.mydelphi.info/code/148#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:44:58 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[AVI]]></category>
		<category><![CDATA[MediaPlayer]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=148</guid>
		<description><![CDATA[Вопрос:
Как показать первый кадр AVI-файла?
Ответ:
См. пример.
Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Application.ProcessMessages;
	MediaPlayer1.Open;
	Application.ProcessMessages;
	MediaPlayer1.Step;
	Application.ProcessMessages;
	MediaPlayer1.Previous;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/148/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сменить дисковод, откуда  MediaPlayer проигрывает аудио CD?</title>
		<link>http://www.mydelphi.info/code/141</link>
		<comments>http://www.mydelphi.info/code/141#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:39:29 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Filename]]></category>
		<category><![CDATA[MediaPlayer]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=141</guid>
		<description><![CDATA[Вопрос:
Как сменить дисковод, откуда  MediaPlayer проигрывает аудио CD?
Ответ:
См. пример.

Пример:

MediaPlayer1.FileName := 'E:';

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/141/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?</title>
		<link>http://www.mydelphi.info/code/132</link>
		<comments>http://www.mydelphi.info/code/132#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:35:16 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[end]]></category>
		<category><![CDATA[MediaPlayer]]></category>
		<category><![CDATA[Number]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TimeFormat]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=132</guid>
		<description><![CDATA[Вопрос:
Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?
Ответ:
В приведенном примере указано как получить эту информацию.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	MediaPlayer1.TimeFormat := tfFrames;
	ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length));
	MediaPlayer1.TimeFormat := tfMilliseconds;
	ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length));
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/132/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?</title>
		<link>http://www.mydelphi.info/code/127</link>
		<comments>http://www.mydelphi.info/code/127#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:28:03 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Format]]></category>
		<category><![CDATA[MediaPlayer]]></category>
		<category><![CDATA[MINUTE]]></category>
		<category><![CDATA[MMSystem]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TMSF]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TRACK]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=127</guid>
		<description><![CDATA[Вопрос:
Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?
Ответ:
В примере время выводится по таймеру.

Пример:

uses MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
var
	Trk : Word;
	Min : Word;
	Sec : Word;
begin
	with MediaPlayer1 do
		begin
			Trk := MCI_TMSF_TRACK(Position);
			Min := MCI_TMSF_MINUTE(Position);
			Sec := MCI_TMSF_SECOND(Position);
			Label1.Caption := Format('%.2d',[Trk]);
			Label2.Caption := Format('%.2d:%.2d',[Min,Sec]);
		end;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/127/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как проигрываеть MPEG файл в Delphi-программе?</title>
		<link>http://www.mydelphi.info/code/97</link>
		<comments>http://www.mydelphi.info/code/97#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:02:17 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Display]]></category>
		<category><![CDATA[DisplayRect]]></category>
		<category><![CDATA[Filename]]></category>
		<category><![CDATA[MediaPlayer]]></category>
		<category><![CDATA[MPEG]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TMediaPlayer]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=97</guid>
		<description><![CDATA[Вопрос
Как проигрываеть MPEG файл в Delphi-программе?
Ответ:

Если в системе Windows MMSystem установлен декодер MPEG - используя компонент
TMediaPlayer

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	MediaPlayer1.Filename := 'C:\DownLoad\rsgrow.mpg';
	MediaPlayer1.Open;
	MediaPlayer1.Display := Panel1;
	MediaPlayer1.DisplayRect := Panel1.ClientRect;
	MediaPlayer1.Play;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/97/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
