Мой DELPHI – Программирование

Всё для программера

Как показать первый кадр AVI-файла?

Вопрос:
Как показать первый кадр AVI-файла?
Ответ:
См. пример.
Пример:

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

Как сменить дисковод, откуда MediaPlayer проигрывает аудио CD?

Вопрос:
Как сменить дисковод, откуда  MediaPlayer проигрывает аудио CD?
Ответ:
См. пример.

Пример:

MediaPlayer1.FileName := 'E:';

Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?

Вопрос:
Как узнать число кадров 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;

Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?

Вопрос:
Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?
Ответ:
В примере время выводится по таймеру. Прочитать остальную часть записи »

Как проигрываеть MPEG файл в Delphi-программе?

Вопрос
Как проигрываеть 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;