fplayform.pas

IntraWeb电影程序 B/S类型的演示 Delphi+Internet 开发的电影服务器 系统登录电影网站的用户名和密码都是admin 观看电影的最低要求: 请确保你的系统已经安装媒体播放

unit FplayForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FBaseform, IWVCLComponent, IWBaseLayoutComponent,
  IWBaseContainerLayout, IWContainerLayout, IWTemplateProcessorHTML,
  IWCompRectangle, IWCompButton, IWVCLBaseControl, IWBaseControl,
  IWBaseHTMLControl, IWControl, IWCompEdit, IWGrids, IWDBGrids;

type
  TPlayForm = class(TBaseForm)
    PlayFilm: TIWRectangle;
    ComGrid: TIWDBGrid;
    procedure IWAppFormRender(Sender: TObject);
    procedure ComGridColumns1Click(ASender: TObject; const AValue: String);
    procedure ComGridColumns0Click(ASender: TObject; const AValue: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PlayForm: TPlayForm;

implementation
    uses ServerController,FMainForm,FlistForm;
{$R *.dfm}
procedure TPlayForm.IWAppFormRender(Sender: TObject);
begin
  inherited;
 if UserSession.IsRegUser then
  PlayFilm.Text:=PlayFilms(Usersession.PlayFlim,usersession.Film,Usersession.PlayFilmNum)
 else
  PlayFilm.Text:='请注册后才可以观看电影!';

 UserSession.PlayFilmNum:=0;
end;

procedure TPlayForm.ComGridColumns1Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
  If AValue ='MainForm' then  begin
   if not ShowForm('MainForm') then TMainForm.Create(WebApplication).Show; end
 else
   begin
   UserSession.FilMType:=AValue;
   if not ShowForm('ListForm') then TListForm.Create(WebApplication).Show;
   end;
end;

procedure TPlayForm.ComGridColumns0Click(ASender: TObject;
  const AValue: String);
begin
  inherited;
  UserSession.PlayFilmNum:=StrToInt(AValue);
end;

initialization
 RegisterClass(TPlayForm);
end.