{****************************************************************************
Jyväskylän Yliopisto
Tietotekniikan laitos
GKOSyksy1999Harjoitustyö

                      MachoMyyrä ja Taistelu Silakkka VIII
                      -------------------------------------


        Videos.pas
        Näyttää videon DefaultMediaPlayer komponentin välityksellä

        Tarvittavat tiedostot:
        Videos.pas
        Videos.dfm
        Videos.PX
        Videos.DB
        DefaultMediaPlayer

        version : 0.1
        by : Saku Kukonlehto
        date : 5.11.1999
        comments:
        -tehty perusrunko, jossa on tietokanta, josta voi valita haluamansa
         videon

        version : 0.2
        by : Saku Kukonlehto
        date : 28.11.1999
        comments:
        -laitettu näyttämään videon DefaultMediaPlayer:in Komponentin kautta,
         siellä tarkastus onko videota vai ei.


*******************************************************************************}

unit Videos;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls, jpeg, Grids, DBGrids, Db, DBTables,
  Mask, DBCtrls, DefaultMediaPlayer, MPlayer;

type
  TFormVideos = class(TForm)
    ButtonPlay: TButton;
    ButtonRewind: TButton;
    ButtonExit: TButton;
    StatusBarvideo: TStatusBar;
    Panel1: TPanel;
    ButtonPick: TButton;
    QueryVideos: TQuery;
    DataSourceVideos: TDataSource;
    DBGridVideos: TDBGrid;
    QueryVideosVideo_names: TStringField;
    QueryVideosAvi_videos: TStringField;
    MediaPlayer: TDefaultMediaPlayer;
    procedure ButtonPlayClick(Sender: TObject);
    procedure ButtonRewindClick(Sender: TObject);
    procedure ButtonExitClick(Sender: TObject);
    procedure ButtonPlayMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ButtonPickClick(Sender: TObject);
    procedure DBGridVideosCellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
  private
    Tarkastus : Boolean;
    procedure tiet_avaaminen(const Kysym:String) ;
    { Private declarations }
  public
    { Public declarations }
end;

var
  FormVideos: TFormVideos;

implementation

{$R *.DFM}

procedure TFormVideos.ButtonPlayClick(Sender: TObject);
begin
  if tarkastus = False then exit;
  MediaPlayer.Play;
end;

procedure TFormVideos.ButtonRewindClick(Sender: TObject);
begin
  if tarkastus = False then exit;
  MediaPlayer.Rewind;
end;

procedure TFormVideos.ButtonExitClick(Sender: TObject);
begin
  Close;
end;

procedure TFormVideos.ButtonPlayMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StatusBarVideo.AutoHint:=True;
end;

procedure TFormVideos.ButtonPickClick(Sender: TObject);
begin
  ButtonPlay.Hide;
  ButtonRewind.Hide;
  tiet_avaaminen('select * from videos');
  DBGridVideos.Visible:=True;
end;

procedure TFormVideos.tiet_avaaminen(const Kysym:String);
begin
  QueryVideos.Close;
  QueryVideos.SQL.Clear;
  QueryVideos.SQL.Add(Kysym);
  QueryVideos.Open;
end;

procedure TFormVideos.DBGridVideosCellClick(Column: TColumn);
var Nimi,C:string;
begin
  Tarkastus := False;
  C := '';
  C := QueryVideosVideo_names.AsString;

  tiet_avaaminen('select * from videos where video_names="'+c+'"');

  nimi := QueryVideosAvi_Videos.AsString;
  if ( nimi <> '' ) then begin
    DBGridVideos.Visible := False;
    MediaPlayer.NaytaVideo(nimi);
    Tarkastus := True;
  end;
end;

procedure TFormVideos.FormCreate(Sender: TObject);
begin
  Tarkastus := False;
end;

end.