[Tboy]

Не могу разобраться с программой! Вроде бы все компиляцию проходит, НО видеофайл не проигрывается. Хочу чтобы проигрывание зависело от текста вводимого в edit! Вот мой код!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, OleCtrls, WMPLib_TLB, ExtCtrls, ComCtrls,   ACTIVELISTENPROJECTLib_TLB;    type   TForm1 = class(TForm)     WindowsMediaPlayer1: TWindowsMediaPlayer;     Button1: TButton;     Timer1: TTimer;     Edit1: TEdit;     Button4: TButton;        procedure Button1Click(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);     procedure Edit1Change(Sender: TObject);     procedure Button4Click(Sender: TObject);                  private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject); begin WindowsMediaPlayer1.URL:='E:\777.avi'; WindowsMediaPlayer1.Controls.currentPosition:=0; WindowsMediaPlayer1.Controls.play;    end;    procedure TForm1.Timer1Timer(Sender: TObject); begin   if (WindowsMediaPlayer1.Controls.currentPosition = 7) then      WindowsMediaPlayer1.Controls.currentPosition := 0;      WindowsMediaPlayer1.Controls.play;    end;       procedure TForm1.Button4Click(Sender: TObject); begin if Edit1.Text='Цель' then begin WindowsMediaPlayer1.Controls.currentPosition:=0; WindowsMediaPlayer1.Controls.play; WindowsMediaPlayer1.URL:='E:\777' end else WindowsMediaPlayer1.URL:='E:\999.avi' end;             procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin Edit1.Clear(); end;    procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.text<>' ' then Button4.Enabled:=true else Button1.Enabled:=false; end;    end.

Админ: Пользуемся тегами для оформления кода!

[Belanserg]

Открывать файл с диска в WindowsMediaPlayer1 нужно так:
WindowsMediaPlayer1.DefaultInterface.URL:='E:\777. avi';
WindowsMediaPlayer1.controls.play;

[Tboy]

Не помогло! Результат такой же!

[Belanserg]

Проверь свой код, у меня все работает.
Где именно не работает, если на кнопке Button4, то у тебя там ошибки: пропущено расширение файла в строке 'E:\777' (должно быть 'E:\777.avi') и в else добавь WindowsMediaPlayer1.Controls.play; и все должно работать.

[Tboy]

Убрал вообще все что связано с edit и точно - проблема в button4. До этого все работало. Что здесь может быть не так(((( не пойму

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Timer1Timer(Sender: TObject); begin   if (WindowsMediaPlayer1.Controls.currentPosition = 7) then      WindowsMediaPlayer1.Controls.currentPosition := 0;      WindowsMediaPlayer1.Controls.play; end;     procedure TForm1.Button4Click(Sender: TObject); begin WindowsMediaPlayer1.Controls.play; WindowsMediaPlayer1.URL:='E:\777.avi' end;   end.

MAD: бан за несоблюдение правил оформления кода.

[Belanserg]

Убери Timer и отслеживай изменение позиции плеера, через событие OnPositionChange (WindowsMediaPlayer1)
Вот код:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.WindowsMediaPlayer1PositionChange(ASender: TObject;   oldPosition, newPosition: Double); begin   if (newPosition = 7) then    begin     WindowsMediaPlayer1.controls.currentPosition := 0;     WindowsMediaPlayer1.Controls.play;    end;  end;

[Belanserg]

Cобытие OnPositionChange наступает только если пользователь сам (кликом по контролам управления) меняет позицию.
Скорее всего это тебе неподойдет, вообще currentPosition у WindowsMediaPlayer1 типа Double(Тип с плавающей запятой, поддерживающий приблизительно 15 цифр точности) а это значит что ты никогда не получишь currentPosition = 7 от этого у тебя и все проблемы, мой вариант (рабочий проверял) в Timer'е прописать следующий код (Timer1.Interval:=10):

Код:

1 2 3

Label1.Caption:=FormatFloat('#',WindowsMediaPlayer1.controls.currentPosition);//выводим Double без цифр после запятой и переводим в string if Label1.Caption = '7' then  //проверяем значение(теперь string'овое) WindowsMediaPlayer1.controls.currentPosition:=0;//установливаем в начало

[Tboy]

Проект вышел, но переход от файла к файлу долгий! Нужно чтобы не заметно было! Объединил 2 видео и написал код. Не выходит(

[Alegun]

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

...переход от файла к файлу долгий! Нужно чтобы не заметно было!..

Есть подозрение, что WMP предварительно кеширует воспроизводимый ролик (он же настоящий, из системы!-), отсюда "тормоза". Никогда эту активкиску не использовал, но слышал что для смены файла вроде лучше следить за PlayState, в смысле если WMP.playstate = WMPMediaEnded (посмотрите в хелпе про этот наборчик, может по-другому флажок называется), то пора его менять. А чтоб с минимальными задержками при смене, то для этого больше просто TMediaPlayer подходит, он такими новоявленными глупостями, в силу своего преклонного возраста, не занимается

[Teror4uks]

А можешь посоветовать чем воспользоваться? Просто я уже зе*ался с этой библиотекой , в проекте есть 4 плей листа куда добавляются видео записи с опр разрешением(воспроизводиться на 4 разных панелях), всё проигрывается, но вот заставить при поставленной галочке зацикливать видео никак не получается, а если и выходит, то ошибки при доступе к памяти...

[Alegun]

Посмотрите вот такой "сырой" пример, правда он на обычном МР завязан, но может поможет