|
#1
|
|||
|
|||
WMP в Delphi
Не могу разобраться с программой! Вроде бы все компиляцию проходит, НО видеофайл не проигрывается. Хочу чтобы проигрывание зависело от текста вводимого в edit! Вот мой код!
Код:
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. Последний раз редактировалось Admin, 17.01.2014 в 19:59. |