Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

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

Автор: ednikbod
Дата сообщения: 17.06.2016 23:18
Здравствуйте!
Я новичок в программировании, полный профан в этом деле. Но хотелось бы познать азы этого дела. Подскажите: что в этом коде не так? Программа должна открывать и проигрывать файлы в плей-листе. Но не компилируется.

Версия Делфи у меня 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.

#
Автор: Alexzzy
Дата сообщения: 18.06.2016 00:30
ednikbod
У читающих нет в голове встроенного компилятора, который выдаст информацию почему не компилируется.
Азы познаются не так...
Автор: ednikbod
Дата сообщения: 21.06.2016 10:09
Я попробовал откомпилировать эту программу не в "Делфи 7", а в новой версии "Делфи" "Embarcadero Delphi 10.1 Berlin" - и всё сработало нормально. Программа работает.

Так что: эту тему можно закрыть, наверное!

Страницы: 1

Предыдущая тема: SendStructMessage x64


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.