Открытие файла в MediaPlayer

← →
Der Nechk@ssoff © (2006-03-19 17:19) [0]

Здрасвуйте!Помогите реализавать такую вещь:
Мне надо что бы при нажатии на Button открывалось окно выбора файла который будет проигрываться в MediaPlayer.
P.S.Подскажите как сделть тоже самое только с Image

← →
Brother © (2006-03-20 06:39) [1]

в поле OClick (имэджа) выбери привязку к Button и будет тебе счастье!

← →
Der Nechk@ssoff © (2006-03-20 11:36) [2]

Акак насчет MediaPlayer?

← →
Sonnetrut © (2006-03-20 12:40) [3]

ПОПРОБУЙ ЭТУ ТЕМУ )))

Воспроизведение звука
Звуковые фрагменты находятся в файлах с расширением WAV. Например, в каталоге
C:\Winnt\Media можно найти файлы со стандартными звуками Windows.
Демонстрирация: использование компонента MediaPiayer для воспроизведения
звуковых фрагментов, находящихся в WAV-файлах.
Помимо компонента MediaPiayer на форме находится компонент ListBox и два компонента
Label, первый из которых используется для вывода информационного сообщения, второй
— для отображения имени WAV-файла, выбранного пользователем из списка.
Работает программа следующим образом. После появления диалогового окна
воспроизводится "Звук Microsoft", затем пользователь может из списка выбрать любой из
находящихся в каталоге C:\Windows\Media звуковых файлов и после щелчка на кнопке
Воспроизведение услышать, что находится в этом файле.

Программа Звуки
unit WinSound_; interface
uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;
type
TForm1 = class(TForm)
MediaPlayerl: TMediaPlayer; // медиаплеер
Label1: TLabel; // информационное сообщение
ListBox1: TListBox; // список WAV-файлов
Label2: TLabel; // выбранный из списка файл
procedure FormActivate(Sender: TObject);
procedure ListBoxlClick(Sender: TObject);
procedure MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean); private
{ Private declarations } public
{ Public declarations } end;
const
SOUNDPATCH="с:\winnt\media\"; // положение звуковых файлов
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
var
SearchRec: TSearchRec; // структура, содержащая информацию о файле,
// удовлетворяющем условию поиска
begin
Form1.MediaPlayer1.Play ;
// сформируем список WAV-файлов, находящихся
// в каталоге c:\winnt\media
if FindFirst(SOUNDPATCH+"*.wav", faAnyFile, SearchRec) =0 then
begin
// в каталоге есть файл с расширением WAV
// добавим имя этого файла в список
Form1.ListBox1.Items.Add(SearchRec.Name) ;
// пока в каталоге есть другие файлы с расширением WAV
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;
// щелчок на элементе списка
procedure TForm1.ListBoxlClick(Sender: TObject);
begin
// вывести в поле метки Label2 имя выбранного файла
Label2.Caption:=ListBox1.Items[ListBox1.itemlndex];
end;
// щелчок на кнопке компонента Media Player
procedure TForm1.MediaPlayerlClick(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean); begin
if (Button = btPlay) and (Label2.Caption <> "") then
begin
// нажата кнопка Play
with MediaPlayerl do begin
FileName:=SOUNDPATCH+Label2.Caption; // имя выбранного файла
Open; // открыть и проиграть звуковой файл
end;
end;
end;
end.

← →
Der Nechk@ssoff © (2006-03-20 12:55) [4]

Вот скажите что прописать вместо вопроса:

image1.Picture:=?;

P.S.

> Sonnetrut

у МЕНЯ ЕСТЬ ТАКАЯ КНИЖКА

← →
Der Nechk@ssoff © (2006-03-20 14:19) [5]

Меня что - игнорируют?

image1.picture.bitmap.loadfromfile(opendialog.filename);

> antonn

Спасибо!
А в MediaPlayer такая тема катит?

> А в MediaPlayer такая тема катит?

не помню. там сначала нужно открыть файл, потом только нажать плэй...

MediaPlayerюFileName := opendialog.filename;
MediaPlayer.Open;

Открытие файла в MediaPlayer Найти похожие ветки