Стр. 199 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
199
Form1.Caption:='Просмотр иллюстраций'+#32+
'"'+ExtractFileName(ms[curr]) +'"';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
inc(curr);
if curr=ms_count then
curr:=0;
Form1.Image1.Picture.LoadFromFile(ms[curr]);
Form1.Caption:='Просмотр иллюстраций'+#32+
'"'+ExtractFileName(ms[curr])+'"';
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
GetPicturePath(Edit1.Text);
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
GetPicturePath(Edit1.Text);
end;
end.
Пример 14.2 (выполнить самостоятельно).
Разработать приложение, работающее аналогично приложению, рассмот-
ренному выше, но содержащее компонент ListBox, в который выводятся имена
всех картинок, находящихся в директории, указанной в поле Edit1. Картинки
для просмотра выбираются в компоненте ListBox.
15. КОМПОНЕНТ MediaPlayer
Многие мультимедийные устройства имеют MCI-интерфейс (Media
Control Interface - интерфейс управления мультимедиа). С помощью MCI –
интерфейса осуществляется управление объектами типа аудио – и видеофайлов,
а также устройствами мультимедиа, такими как
− звуковые карты,
− карты обработки видеосигналов,
− видеомагнитофоны,
− лазерные проигрыватели.
В Delphi работу с подобными устройствами осуществляет компонент
MediaPlayer (мультимедийный проигрыватель), который обеспечивает стыков-