Problem with MediaPlayer

[Guest_imported]

How is it possible to change the FileName at run-time, so that the video is changed by clicking a button?

I used this code, but the video in the Panel didn't change to the next videoclip.

procedure TsomeForm.NextClick(Sender: TObject);
var
videofile:string;
begin
{Prepare for video}
Videofile:= X;
If FileExists(Videofile)
then MediaPlayer1.filename:= Videofile;
end;


X is a proper file name e.g. C:\xyz\xyz.mpeg

Your help will be greatly appreciated.

 

[Ronin441]

  If FileExists(Videofile) then begin
    MediaPlayer1.Close;
    MediaPlayer1.filename:= Videofile;
    MediaPlayer1.Open;
  end;

It is the act of opening the file that makes the media player look at its filetype and figure out how to play it (playing a .wav is obviously different from playing an .mpeg), and actually refresh itself into an appropriate form. -- Doug Burbidge mailto:dougburbidge@yahoo.com

http://home.iprimus.com.au/dougburbidge/