Author Topic: Play movie.avi fullscreen  (Read 5093 times)

Offline Hemlos

  • To boldy go where no pixel has gone before!
  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 1635
  • Particle Hawk
    • View Profile
« Last Edit: 2008-Oct-29 by Hemlos »
Volume_of_Earth(km^3) = 4/3*3.14*POW(6371.392896,3)

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Re: Play movie.avi fullscreen
« Reply #1 on: 2008-Oct-29 »
Code: GLBasic [Select]
playfile("test.avi",1)
SHOWSCREEN
MOUSEWAIT
END

FUNCTION foo:
ENDFUNCTION
INLINE
}
        extern "C" int __stdcall mciSendStringA(const char*,int,int,void*);
        namespace __GLBASIC__
{
ENDINLINE


FUNCTION playfile: file$, If_fullscreen = TRUE
local a$, full$
IF If_fullscreen = True THEN full$ = "fullscreen"
a$="play "+file$+" "+full$;
INLINE
mciSendStringA(a_Str.c_str(),0,0,GLBASIC_HWND());
ENDINLINE
ENDFUNCTION

Does it work?
I dont test it :D

Doesnt work for me.... Vista?!
« Last Edit: 2008-Oct-29 by Schranz0r »
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline Hemlos

  • To boldy go where no pixel has gone before!
  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 1635
  • Particle Hawk
    • View Profile
Re: Play movie.avi fullscreen
« Reply #2 on: 2008-Oct-29 »
I made a working example for full screen.
Get the MCI library from here:
http://www.glbasic.com/forum/index.php?topic=2502.0
The library has play pause resume stop and volume.

I removed the hotwait function and made the code more optimized
« Last Edit: 2008-Oct-29 by Hemlos »
Volume_of_Earth(km^3) = 4/3*3.14*POW(6371.392896,3)

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Re: Play movie.avi fullscreen
« Reply #3 on: 2008-Oct-29 »
cool!
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard

Offline Hemlos

  • To boldy go where no pixel has gone before!
  • Global Moderator
  • Prof. Inline
  • *******
  • Posts: 1635
  • Particle Hawk
    • View Profile
Re: Play movie.avi fullscreen
« Reply #4 on: 2008-Oct-29 »
please let me know if it works, i want to get this working fullscreen for all windows
Volume_of_Earth(km^3) = 4/3*3.14*POW(6371.392896,3)

Offline Schranz0r

  • Premium User :)
  • Administrator
  • Prof. Inline
  • *******
  • Posts: 5021
  • O Rly?
    • View Profile
Re: Play movie.avi fullscreen
« Reply #5 on: 2008-Oct-29 »
yopp, that works for me!
I <3 DGArray's :D

PC:
AMD Ryzen 7 1700 @3.9GHz, 16GB HyperX Fury 3000MHz Ram, ASUS ROG GTX 1060 STRIX 6GB, Windows 10 Pro 64Bit, MSi Tomahawk B350 Mainboard