17.01.2014, 11:02
|
Прохожий
|
|
Регистрация: 14.09.2013
Сообщения: 8
Версия Delphi: Delphi 7
Репутация: 10
|
|
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.
Админ: Пользуемся тегами для оформления кода!
|