Playing videos within Lazarus

[Student043]

Dear all,

Does someone know how to play videos within players? For example, if you open the program(OnFormShow), the video automatically starts.

Thank you in advance.

Regards,

Student043

[balazsszekely]

Did you see this:
http://www.freepascal.org/~michael/articles/lazvlc/lazvlc.pdf

[Student043]

Hello,

No, i didn't read that, but I don't a "Mediaplayer". Just a command like

var
  afsound:Tprocess;
  fl:string;

begin
  isPlaying := false;
  fl := Application.Location;
  fl := copy(fl,1,Pos('/project1.app',fl)-1);
  afsound := Tprocess.create(nil);
  afsound.CommandLine := 'afplay ' + '''' + fl + '/Test.mp3' + '''';
  afsound.Execute;
  afsound.Free;           

Thank you in advance.

Regards,

Student043

[Mike.Cornflake]

Have a look around here:
http://wiki.lazarus.freepascal.org/Video_Playback_Libraries

I recommend http://wiki.lazarus.freepascal.org/TMPlayerControl