Play movie.avi fullscreen

Previous topic - Next topic

Hemlos

Bing ChatGpt is pretty smart :O

Schranz0r

#1
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?!
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

Hemlos

#2
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
Bing ChatGpt is pretty smart :O

Schranz0r

I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard

Hemlos

please let me know if it works, i want to get this working fullscreen for all windows
Bing ChatGpt is pretty smart :O

Schranz0r

yopp, that works for me!
I <3 DGArray's :D

PC:
AMD Ryzen 7 3800X 16@4.5GHz, 16GB Corsair Vengeance LPX DDR4-3200 RAM, ASUS Dual GeForce RTX™ 3060 OC Edition 12GB GDDR6, Windows 11 Pro 64Bit, MSi Tomahawk B350 Mainboard