gmovie.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit Gmovie;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, ExtCtrls, Menus, MediaPlayer_TLB, StdCtrls, LMDCustomComponent,
  LMDSendKeys;

type
  TGMovief = class(TForm)
    Timer1: TTimer;
    MediaPlay1: TMediaPlay;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GMovief: TGMovief;
  w_yingyuan, yingyuan_path: string;
  play_count, duan_start, duan_end: integer;
  yingyuan_start: double;
implementation
uses main;
{$R *.DFM}

procedure TGMovief.Timer1Timer(Sender: TObject);
begin
  {if (duan_Start<>0)and(duan_end<>0) then
  if round(MediaPlay1.CurrentPosition) = duan_end then
    MediaPlay1.CurrentPosition := duan_start;}

  if w_yingyuan = '打开影院' then
  begin
  MediaPlay1.Visible := true;
    label1.Visible:=false;
{    Panel1.Align:=alNone;
    Panel1.Top:=0;
    Panel1.Left:=0;
    Panel1.Height:=2;
    Panel1.Width:=2;
    Panel1.Enabled:=false;}
  //  Panel1.Visible := false;
    //showmessage(yingyuan_path);
 //   showmessage(yingyuan_path);
    MediaPlay1.FileName := yingyuan_path;
    //ActiveMovie1.Stop;
  end;


  if w_yingyuan = '影院起点' then
  begin
    w_yingyuan := '';
//    showmessage(floattostr(yingyuan_start));
//    MediaPlay1.CurrentPosition:=0;
    MediaPlay1.CurrentPosition := yingyuan_start;
    MediaPlay1.Refresh;
  end;

  if w_yingyuan = '播放影院' then
  begin
    w_yingyuan := '';
    MediaPlay1.PlayCount := play_count;
    //showmessage('start:'+inttostr(duan_start)+'  end:'+inttostr(duan_end));
    if duan_start > 0 then
      MediaPlay1.CurrentPosition := duan_Start;
    try
    MediaPlay1.Play;
    except
    mediaplay1.Stop;
    MediaPlay1.Visible := false;
    label1.Visible:=true;
    exit;
    end;
    MediaPlay1.Visible := true;
    label1.Visible:=false;
    //MediaPlay1.Run;
  end;

  if w_yingyuan = '暂停影院' then
  begin
    w_yingyuan := '';
    MediaPlay1.Pause;
  end;

  if w_yingyuan = '继续影院' then
  begin
    w_yingyuan := '';
    MediaPlay1.play;
  end;

  if w_yingyuan = '停止影院' then
  begin
    w_yingyuan := '';
    MediaPlay1.Stop;
    MediaPlay1.CurrentPosition := 0;
  end;

  if w_yingyuan = '退出影院' then
  begin
    w_yingyuan := '';
    Timer1.Enabled := false;
    if MediaPlay1.FileName <> '' then
    begin
      MediaPlay1.Stop;
     //  MediaPlay1.send
      MediaPlay1.Free;
    end;
    confirmclose := true;
    Close;
    confirmclose := false;
  end;

  w_yingyuan:='mediaplaying';
end;

procedure TGMovief.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.