Delphi 7 возникал ошибка No MCI Device Open

[РезедаМуратова]

Здравствуйте, была разработана игра "Магический квадрат" с разными уровнями сложности. После прошествии некоторого времени, решила поиграть в игру, но теперь появилась ошибка. Объясните почему она возникла, причина

[Terran]

Данная ошибка (по всей видимости) связная с MediaPlayer'ом.
1. Проверьте наличие кодеков, попытайтесь воспроизводимый файл открыть через стандартный плеер;
2. Проверьте пути к файлу;
3. Посмотрите последовательность команд при воспроизведении файла;
4. Пройдитесь отладчиком, посмотрите в каком месте появляется ошибка.

[РезедаМуратова]

Спасибо большое, сейчас проверю

[РезедаМуратова]

Выявилась следующая

[Terran]

Проверьте свойство:

MediaPlayer.AutoOpen := True;

Что-то конкретней сказать сложно, нужно смотреть исходник программы.

[РезедаМуратова]

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons, Grids, jpeg, ExtCtrls, MPlayer;

type
  TForm5 = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    Image1: TImage;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    BitBtn1: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    PopupMenu1: TPopupMenu;
    MediaPlayer1: TMediaPlayer;
    procedure Image1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
      a:array of array of integer;
  n:integer;

implementation

uses Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm5.Image1Click(Sender: TObject);
  var
  a:array of array of integer;
  i, j, n, sumEtalon, sum, sumd1, sumd2 : integer;
begin
  if StringGrid1.RowCount<>StringGrid1.ColCount then begin
    Application.MessageBox('Грид должен быть квадратным. '#13+
    'Обратитесь к программисту, пусть устраняет ошибки в коде!',
    'Ошибка', MB_OK or MB_ICONERROR);
    Exit
  end;

  // выделим память под массив a
  n := StringGrid1.RowCount;
  SetLength(a, n);
  for i := 0 to n - 1 do SetLength(a[i], n);
   try
    //проверим, что в квадрате только натуральные числа и заполним массив a
    for i := 0 to n - 1 do
      for j := 0 to n - 1 do begin
        a[i,j] := StrToIntDef(StringGrid1.Cells[j,i],0);
        if a[i,j]<=0 then begin
              Application.MessageBox('Грид  нужно заполнить натуральными числами',
              'Ошибка', MB_OK or MB_ICONWARNING);
              Exit
        end;
      end;

    // найдём сумму первой строки
    sumEtalon := 0;
    for i := 0 to n-1 do
      sumEtalon := sumEtalon + a[0, i];

    // суммы по диагоналям
    sumd1 := 0; sumd2 := 0;
    for i := 0 to n - 1 do begin
      sumd1:=sumd1+a[i,i];
      sumd2:=sumd2+a[i,n-i-1];
    end;

    if (sumd1<>sumEtalon) or (sumd2<>sumEtalon) then begin
      label2.Caption:='Матрица не является магическим квадратом';
MediaPlayer1.Visible:=false;
MediaPlayer1.FileName:= 'zvuk-neudachi-ua-ua-ua-uaaa.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
      Exit
    end;

    // найдём суммы остальных строк
    for i := 0 to n - 1 do begin
       sum := 0;
       for j := 0 to n - 1 do sum := sum + a[i,j];
       if (sum<>sumEtalon) then begin
        label2.Caption:='Матрица не является магическим квадратом';
              MediaPlayer1.Visible:=false;
MediaPlayer1.FileName:= 'zvuk-neudachi-ua-ua-ua-uaaa.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
        Exit
       end;
    end;
    // найдём суммы столбцов
    for j := 0 to n - 1 do begin
       sum := 0;
       for i := 0 to n - 1 do sum := sum + a[i,j];
       if (sum<>sumEtalon) then begin
        label2.Caption:='Матрица не является магическим квадратом';
              MediaPlayer1.Visible:=false;
MediaPlayer1.FileName:= 'zvuk-neudachi-ua-ua-ua-uaaa.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
        Exit
       end;
    end;

    label2.Caption:='Матрица является магическим квадратом';
          MediaPlayer1.Visible:=false;
MediaPlayer1.FileName:= '00162.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;

  finally
    for i := 0 to n - 1 do SetLength(a[i], 0);
    SetLength(a, 0);
  end;
end;

procedure TForm5.N5Click(Sender: TObject);
begin
form5.hide;
form2.show;
Label5.Caption:= 'Легко';

end;

procedure TForm5.N6Click(Sender: TObject);
begin
form5.hide;
form3.show;
Label5.Caption:= 'Средней сложности';

end;

procedure TForm5.N7Click(Sender: TObject);
begin
form5.hide;
form4.show;
Label5.Caption:= 'Сложно';

end;

procedure TForm5.N10Click(Sender: TObject);
begin
 AboutBox.ShowModal;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
 MediaPlayer1.Visible:=false;
end;



end.

[Terran]

По коду всё верно. Как вариант, попробуйте заново положить на форму MediaPlayer, чтобы свойства были по умолчанию и ещё раз проверьте наличие файлов. В вашем случае, они должны находится рядом с .exe файлом программы. Если это не поможет, тогда проблему нужно искать вне программы.

P.S. Если в процессе работы видимость плеера не изменяется, то достаточно сделать один раз так:

procedure TForm5.FormShow(Sender: TObject);
begin
 MediaPlayer1.Visible:=false;
end;

[Аватар]

А прога как запускается? Если с ярлыка, то и не найдет тех файлов.

[РезедаМуратова]

Сообщение от Аватар

А прога как запускается? Если с ярлыка, то и не найдет тех файлов.

Я с помощью программы Smart Install Maker сделала инсталльник. и его запускаю выходит ошибка которая указана самой первой. Когда открыла в Delphi игру, то возникла вторая ошибка.

[newerow1989]

MediaPlayer1.FileName:= 'zvuk-neudachi-ua-ua-ua-uaaa.mp3';

Прийдется полный путь прописывать:

C:\ ... \zvuk-neudachi-ua-ua-ua-uaaa.mp3

либо в текущем каталоге независимо от места:

MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'zvuk-neudachi-ua-ua-ua-uaaa.mp3';