Не воспроизводиться видео.

[Vladya]

Добрый Вам всем вечер! Это опять я, со своими дурацкими вопросами. Итак, у меня есть код программы, вот он:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges, ExtCtrls, MPlayer;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Gauge1: TGauge;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    MediaPlayer1: TMediaPlayer;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Timer1: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Close ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := Gauge1.Progress < Gauge1.MaxValue ;
Gauge1.Progress  := Gauge1.Progress  + 17;
if Gauge1.Progress = 100 then
Begin
if RadioButton1.Checked then
MediaPlayer1.Play;
if RadioButton2.Checked then
MessageBox(Handle, 'Невозможно соединиться с сервером', 'Соединение утрачено', 5)
else
Begin
if MessageBox(Handle, 'Разрешить приложэнию передачу данных в интернет?', 'Не указано', 4)= MrYes then    MediaPlayer1.Play;
end;
end;
End;

end.

По идее программа должна проигрывать видео файл но выбивает ошибка (No MCI device open) что ето можэт быть? Как от него избавиться? Свойства компонента mediaplayer типа имя файла, дисплей и все такое я заполнил. Подобный вопрос ужэ звучал но ответ на него я не видел.
Да и еще одно почему у мну выводит по два сообщения вместо одного?
На этом все.
Заранее всем большое прибольшое СПАСИБО!!!

[Terran]

По идее программа должна проигрывать видео файл но выбивает ошибка (No MCI device open) что ето можэт быть?

Либо у вас MediaPlayer не поддерживает формат фильма или вы его не правильно открываете, что более вероятнее исходя из вашего кода

if RadioButton1.Checked then
MediaPlayer1.Play;

Попробуйте так:

MediaPlayer1.FileName:='Video.avi';//- это не обязательно если вы указали 
MediaPlayer1.Open;
MediaPlayer1.Play;

Да и еще одно почему у мну выводит по два сообщения вместо одного?

Что бы выводилось одно сообщение сделайте так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Gauge1.Progress  := Gauge1.Progress  + 17;
if Gauge1.Progress = 100 then
Begin
Timer1.Enabled := Gauge1.Progress < Gauge1.MaxValue ;
if RadioButton1.Checked then
MediaPlayer1.Play;
if RadioButton2.Checked then
MessageBox(Handle, 'Невозможно соединиться с сервером', 'Соединение утрачено', 5)
else
Begin
if MessageBox(Handle, 'Разрешить приложэнию передачу данных в интернет?', 'Не указано', 4)= MrYes then    MediaPlayer1.Play;
end;
end;

[Vladya]

Спасибо большое ужэ все работает. Хочу по ходу спросить как сделать что бы программа проверяла, есть ли в поле едит запись если есть то выполняла какоето действие, а если нет то выводила сообщение?

[Terran]

Сообщение от Vladya

Хочу по ходу спросить как сделать что бы программа проверяла, есть ли в поле едит запись если есть то выполняла какоето действие, а если нет то выводила сообщение?

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If Edit1.Text = ''{Ваша запись} Then
Begin
//Действие если нет
ShowMessage('Текст сообщения');
End
Else
Begin
//Действие если есть
End;
End;