Проигрыватель медиа с плей-листом. - Программирование - Компьютерный форум


Проигрыватель медиа с плей-листом.

Описание: Все и сразу: Языки программирования, Базы данных, Web технологии, Алгоритмы и прочее.
Правила раздела: http://pc-forums.ru/topic1981.html
Модератор: Junior

#1 Erder » 18.06.2016, 14:30

Здравствуйте!

Я новичок в программировании, полный профан в этом деле. Но хотелось бы познать азы этого дела.
Подскажите: что в этом коде не так? Программа должна открывать и проигрывать файлы в плей-листе. Но не компилируется.

Версия Делфи у меня 7. Ошибки, которые выдаёт компилятор:
Нажмите, чтобы показать/скрыть...
[Ошибка] Unit1.pas(48): Undeclared identifier: 'FileName'
[Ошибка] Unit1.pas(49): Undeclared identifier: 'Open'
[Ошибка] Unit1.pas(50): Undeclared identifier: 'Play'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'


Вот код самой программы:

#

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
MediaPlayer1: TWindowsMediaPlayer;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
SL: TStringList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
begin
OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
IF OpenDialog1.Execute Then
Begin
For I:=0 to OpenDialog1.Files.Count -1 do
Begin
SL.Add(OpenDialog1.Files);
ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files));
End;
End;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

end.

#
Erder
Автор темы, Прохожий
Прохожий
Репутация: 0
Лояльность: 0 (+0/−0)
Сообщения: 2
Темы: 1
Зарегистрирован: 18.06.2016
С нами: 8 месяцев 9 дней

Проигрыватель медиа с плей-листом.

 

#2 Erder » 21.06.2016, 10:14

Я попробовал откомпилировать эту программу не в "Делфи 7", а в новой версии "Делфи" "Embarcadero Delphi 10.1 Berlin" - и всё сработало нормально. Программа работает.

Так что: эту тему можно закрыть, наверное!
Erder
Автор темы, Прохожий
Прохожий
Репутация: 0
Лояльность: 0 (+0/−0)
Сообщения: 2
Темы: 1
Зарегистрирован: 18.06.2016
С нами: 8 месяцев 9 дней

 


  • Понравилась тема? Поделись с друзьями!

Вернуться в Программирование

 


  • Похожие темы
    Ответы
    Просмотры
    Последнее сообщение