Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Открытие файла в MediaPlayer [D7, XP]

Der Nechk@ssoff © (2006-03-19 17:19:00)
Здрасвуйте!Помогите реализавать такую вещь:
Мне надо что бы при нажатии на Button открывалось окно выбора файла который будет проигрываться в MediaPlayer.
P.S.Подскажите как сделть тоже самое только с Image

antonn (2006-03-20 15:38:00) [1]

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

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

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

Der Nechk@ssoff (2006-03-20 15:29:00) [2]

> antonn

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

antonn (2006-03-20 15:22:00) [3]
image1.picture.bitmap.loadfromfile(opendialog.filename);

Der Nechk@ssoff (2006-03-20 14:19:00) [4]
Меня что - игнорируют?

Der Nechk@ssoff (2006-03-20 12:55:00) [5]
Вот скажите что прописать вместо вопроса:

image1.Picture:=?;

P.S.

> Sonnetrut

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

Sonnetrut (2006-03-20 12:40:00) [6]
ПОПРОБУЙ ЭТУ ТЕМУ )))

Воспроизведение звука
Звуковые фрагменты находятся в файлах с расширением 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 11:36:00) [7]
Акак насчет MediaPlayer?

Brother (2006-03-20 06:39:00) [8]
в поле OClick (имэджа) выбери привязку к Button и будет тебе счастье!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »