Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Using Opendialog to select AVI.

Posted on 2001-07-26
10
Medium Priority
?
240 Views
Last Modified: 2010-04-04
Hello,

I am using a modified sample that is provided in D4 help to show a video clip.
If I list the in the File Name, Properties of TMediaPlayer the name of the
desired selection then that one plays. While NOT Running Clicking on the form allows me to select
the xx.avi.

With modifications my unit looks like:

unit VideoPlayerUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, MPlayer, StdCtrls;

type
  TVideoPlayer = class(TForm)
    VideoPlayer1: TMediaPlayer;
    Animate1: TAnimate;
    Close: TButton;
    procedure FormActivate(Sender: TObject);
    procedure CloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VideoPlayer: TVideoPlayer;

implementation

{$R *.DFM}

procedure TVideoPlayer.FormActivate(Sender: TObject);
begin
  Videoplayer1.Play;
end;

procedure TVideoPlayer.CloseClick(Sender: TObject);
begin
  Application.Terminate;
end;

end.

Form as text:

object VideoPlayer: TVideoPlayer
  Left = 288
  Top = 141
  Width = 473
  Height = 459
  Caption = 'Video Player'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 120
  TextHeight = 16
  object VideoPlayer1: TMediaPlayer
    Left = 56
    Top = 8
    Width = 253
    Height = 30
    AutoOpen = True
    DeviceType = dtAVIVideo
    Display = Animate1
    FileName = 'C:\Documents and Settings\Delphi3\Desktop\GLOBE.AVI'
    TabOrder = 0
  end
  object Animate1: TAnimate
    Left = 24
    Top = 48
    Width = 321
    Height = 321
    Active = False
    StopFrame = 12
  end
  object Close: TButton
    Left = 368
    Top = 56
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 2
  end
end


 

Is it possible to show a video that is not named in the File Name, Properties of TMediaPlayer but select it  with OpenDialog1 and the program is running?

I need an example or a snip.

Thanks,

Delphi3
0
Comment
Question by:delphi3
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
  • 2
  • +1
10 Comments
 
LVL 27

Expert Comment

by:kretzschmar
ID: 6322775
?

If opendialog1.execute then
  TMediaplayer1.Filename := opendialog1.filename;
0
 
LVL 4

Author Comment

by:delphi3
ID: 6322910
kretzschmar,

It must not work that way because if I remove the name of the file stored in the object insector then I get a message that it wants apath to the file back in again.
Then if Iclick on the button to activate this procedure:


procedure TVideoPlayer.SelectClick(Sender: TObject);
begin
  if Opendialog1.Execute then
    Videoplayer1.Filename := Opendialog1.Filename;
  Videoplayer1.Play;
end;

And there is no chage to the one selected.

Delphi3


Delphi3
0
 
LVL 5

Expert Comment

by:scrapdog
ID: 6323248
I don't know if this solves your problem, but I think it would be better if you did this:

procedure TVideoPlayer.SelectClick(Sender: TObject);
begin
  if Opendialog1.Execute then begin
     Videoplayer1.Filename := Opendialog1.Filename;
     Videoplayer1.Play;
  end;
end;



0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 27

Expert Comment

by:kretzschmar
ID: 6323917
>And there is no chage to the one selected.
to which selected?
0
 
LVL 4

Author Comment

by:delphi3
ID: 6324054
scrapdog,  and kretzschmar,

Scrapdog, Still even with this change it makes no difference. Programmatically there is no difference. Is there??
To state the errors more explicitly and trying it both  ways:
 
With the FileName empty  in the Properties of theTMediaPlayer on the start up the message
appears reads:
Error:
Project VideoPlayerProject 1.exe raised exception class EMCIDeviceError with the message 'the MCI device
you are using does not support the command.', Process stopped. Use Step or Run to continue. [OK]

With the FileName having the name filled  in the Properties of theTMediaPlayer on the start up the selection
plays BUT no selection from the openDialog1 makes that selection appear.

Delphi3
0
 
LVL 5

Expert Comment

by:scrapdog
ID: 6324128
>Scrapdog, Still even with this change it makes no
>difference. Programmatically there is no difference.
>Is there??

The difference is that the video doesn't play when the user hits "cancel" in the Open Dialog.
0
 
LVL 4

Author Comment

by:delphi3
ID: 6324180
Scrapdog,
Thanks, for the correction about my  programming statement. .Earlier however,  I thought it  was 'the solution' that might make it work, but obviously it does not.


So I  am still in need of help getting this to work.


Delphi3
0
 
LVL 4

Author Comment

by:delphi3
ID: 6324973
scrapdog,  and kretzschmar,

I have discovered my help in the D4 help.

Here is the solution:

var
  VideoPlayer: TVideoPlayer;

implementation

{$R *.DFM}

procedure TVideoPlayer.FormActivate(Sender: TObject);
begin
  Videoplayer1.Play;
end;

procedure TVideoPlayer.SelectClick(Sender: TObject);
begin
  OpenDialog1.DefaultExt := 'AVI';
  OpenDialog1.Filename := '*.avi';
  if OpenDialog1.Execute then
  begin
    Videoplayer1.Filename := OpenDialog1.Filename;
    Videoplayer1.Open;
  end;
  Animate1.Repaint;   // set Color to ClMenu in the object Inspector.
end;

procedure TVideoPlayer.CloseClick(Sender: TObject);
begin
  Application.Terminate;
end;

end.

Form as text:

object VideoPlayer: TVideoPlayer
  Left = 288
  Top = 141
  Width = 427
  Height = 389
  AutoSize = True
  Caption = 'Video Player'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 120
  TextHeight = 16
  object VideoPlayer1: TMediaPlayer
    Left = 32
    Top = 0
    Width = 253
    Height = 30
    AutoOpen = True
    DeviceType = dtAVIVideo
    Display = Animate1
    FileName = 'C:\Documents and Settings\Delphi3\Desktop\ShoVideo\clock.avi'
    TabOrder = 0
  end
  object Animate1: TAnimate
    Left = 0
    Top = 40
    Width = 321
    Height = 321
    Active = False
    Color = clMenu
    ParentColor = False
    StopFrame = 12
  end
  object Select: TButton
    Left = 344
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Select'
    TabOrder = 2
    OnClick = SelectClick
  end
  object Close: TButton
    Left = 344
    Top = 104
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 3
    OnClick = CloseClick
  end
  object OpenDialog1: TOpenDialog
    Left = 368
    Top = 208
  end
end
 



What about the points? I could leave the solution here for others. But since you are outstanding 'pro's' you have any idea how to leave it here and still get rid of the points.

Delphi3


0
 
LVL 27

Accepted Solution

by:
kretzschmar earned 0 total points
ID: 6326013
ask at community support for keeping this q into the paq
0
 
LVL 2

Expert Comment

by:Lunchy
ID: 6326540
Points reduced for adding Q to PAQ.

Lunchy
Friendly Neighbourhood Community Support Moderator

0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This course is ideal for IT System Administrators working with VMware vSphere and its associated products in their company infrastructure. This course teaches you how to install and maintain this virtualization technology to store data, prevent vuln…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
Suggested Courses

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question