Discussion :

[jurassic pork]

hello,

JP
Si vous avez une idée pour afficher la fenêtre FFplay dans un champ windev, de telle façon que la vidéo continue de jouer pendant le déplacement de la fenêtre, je suis preneur. Car le système de région que j'utilise ne marche pas avec la version 100J de WD26.
Au besoin je peux sauvegarder le code source en format texte pour vous permettre de le récupérer en WD16, si vous me donnez une adresse mail où envoyer un zip.
Pour me joindre utilisez "objreader at gmail dot com"

je veux bien regarder si je trouve quelque chose par rapport au projet mais comme je n'ai que WD16 , il faudrait me transmettre les sources en mode texte (j'ai transmis mon adresse à objreader). Par contre il y a peut-être un souci avec le source des fenêtres.
Ami calmant, J.P

[Patrice Terrier]

JP

Le format compatible GIT n'est guère lisible, j'ai essayé de télécharger une version 16 mais sans succès.
Je vais donc faire du copier coller mais c'est long, merci PC_SOFT !!!!

J'ai retrouvé une version 16 sur l'un des mes vieux disque de sauvegarde...

[jurassic pork]

je crois que j'ai trouvé une astuce pour ne pas tout copier coller :

imprimer le dossier en format pdf ( je pourrais faire du copier coller à partir de ce pdf) et en plus je pourrais voir les champs des fenêtre

[Patrice Terrier]

JP

J'ai bientôt fini, je me suis farci le copier-coller de l'interface et des différentes procédures dans WD16.
Je pense pouvoir vous envoyer le tout d'ici ce soir...

[Patrice Terrier]

Le ZIP est parti, n'oubliez pas de mettre FFplay.exe dans le répertoire EXE du projet.

Pas de dépendances externes hormis les appels à l'API bas niveau en mode procédural.
Ce code devrait marcher exactement de la même façon en C/C++ natif, avec la vitesse en plus.

[jurassic pork]

Ok merci, désolé pour le dérangement. J'ai bien reçu le projet. J'ai eu des soucis avec les fonctions GetWindowLongPtrA et SetWindowLongPtrA qui n'étaient pas trouvées dans le user32 mais en les remplaçant par GetWindowLongA et SetWindowLongA maintenant j'arrive à exécuter le projet. Il ne me reste plus à voir si je peux faire quelque chose pour mettre la fenêtre ffplay dans un champ windev . Suite au prochain épisode.

Ami calmant, J.P

[Patrice Terrier]

GetWindowLongPtrA et SetWindowLongPtrA sont des API standards !!!

Le projet est conçu pour fonctionner en 64-bit, il ne peuvent en aucun cas être remplacé par GetWindowLongA et etWindowLongA qui fonctionnent uniquement en 32-bit.

Voir la doc Microsoft
https://docs.microsoft.com/en-us/win...windowlongptra

[Voroltinquo]

Bonjour,

J'ai bientôt fini, je me suis farci le copier-coller de l'interface et des différentes procédures dans WD16.
Je pense pouvoir vous envoyer le tout d'ici ce soir...

Pourquoi ne pas utiliser l'éditeur de dossier de prog ? (Fichier/Imprimer le dossier dans le menu, Accueil/Imprimer le dossier dans le ruban)

[jurassic pork]

hello,

GetWindowLongPtrA et SetWindowLongPtrA sont des API standards !!!

Le projet est conçu pour fonctionner en 64-bit, il ne peuvent en aucun cas être remplacé par GetWindowLongA et etWindowLongA qui fonctionnent uniquement en 32-bit.

Voir la doc Microsoft
https://docs.microsoft.com/en-us/win...windowlongptra

Effectivement j'avais passé le projet en 32 bits donc attention si on utilise le projet en 32 bits.

Sinon comme je l'avais écrit dans un message précédent, on peut mettre la fenêtre ffplay dans un champ image. Cela simplifie la gestion des fenêtres et le déplacement est fluide .

Voici comment procéder.
1 - Ajouter un champ image (Image1) qui se superpose au champ Player_Template dans la fenêtre principale. Il servira de conteneur à la fenêtre FFPlay

2 - Dans l'initialisation de la fenêtre principale ajouter un élément entier système hContainer dans la structure PROP et initialiser cet élément avec le handle du champ Image1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
gP.hMain = Handle()
gP.hContainer = Handle(Image1)

3 - Dans la procédure WindowInit ne plus utiliser l'événement FocusChange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 WindowInit()
// To handle the caption focus state
// Event("FocusChange", MyWindow, WM_NCACTIVATE)
// To handle system command
Event("WinRestore", MyWindow, WM_SYSCOMMAND)

4 - Simplifier la procédure ResizeWindow de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
PROCEDURE ResizeWindow(LOCAL hWnd is system int)
IF gP.IsIconize = 0 THEN
    IF IsWindow(gP.hPlayer) THEN
        SetWindowPos(gP.hPlayer, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_ASYNCWINDOWPOS | SWP_NOMOVE | SWP_NOSIZE)// | 0x0020)//SWP_DRAWFRAME)        
        MoveWindow(gP.hPlayer, 0, 0, Image1..Width, Image1..Height, True)
    END
END
hWnd = 0

5 - Modifier la procédure StartPlayer de la manière suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
PROCEDURE StartPlayer(LOCAL sVideo is string)
// If a video is already playing, then close it in order to play the new video
IF (IsWindow(gP.hPlayer)) THEN
    SendMessageW(gP.hPlayer, WM_CLOSE, 0, 0)
    gP.hPlayer = 0
    Sleep(200)
END
 
 
EndTimerSys(1)
// Fire the player
hWnd is system int = CreatePlayerProcess(sVideo)
 
 
IF hWnd THEN
    OldStyle is unsigned int = GetWindowLongPtr(hWnd, GWL_EXSTYLE)
    SetWindowLongPtr(hWnd, GWL_EXSTYLE, OldStyle | WS_EX_TOOLWINDOW)
    SetWindowLongPtr(hWnd, GWL_STYLE, WS_POPUP)
    SetWindowLongPtr(hWnd, GWL_HWNDPARENT, gP.hMain)    
    gP.hPlayer = hWnd
    // on met Image1 comme parent de FFPlay
    API("user32","SetParent",gP.hPlayer ,gP.hContainer)
    ResizeWindowJP(gP.hPlayer)
    ShowWindow(gP.hPlayer, SW_SHOW)
    BringWindowToTop(gP.hPlayer)
    Player_Template..Visible=False
    WindowRedraw(gP.hMain)
    IF gP.hConsole THEN        
        MultitaskRedraw(WIN_Main)    
    END
    TimerSys(TimerProc, 5, 1)
END

6 - Simplifier la procédure TimerProc de la faon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PROCEDURE TimerProc()
IF gP.IsIconize THEN RETURN
 
 
IF gP.hPlayer THEN
    IF IsWindow(gP.hPlayer) THEN            
        IF gP.duration THEN ReadSeekerPos()
 
    ELSE // FFplayer has been closed ...
        gP.hPlayer = 0
        IF BTN_Pause..Visible THEN BTN_Pause..Visible = False
        IF BTN_Step..Visible THEN BTN_Step..Visible = False
        IF BTN_Mute..Visible THEN BTN_Mute..Visible = False
        IF BTN_Quit..Visible THEN BTN_Quit..Visible = False
        LIB_Duration = DURATION_NUL; LIB_Seeker = DURATION_NUL; gP.duration = 0; gP.seeker = 0; Gauge..Value = 0
        BringWindowToTop(gP.hMain)
        Player_Template..Visible=True
    END
END
CenterDialog()

7 - Dans les événements de redimensionnement de la fenêtre principale, je pense que ce n'est plus la peine de faire un WindowRedraw(gP.hMain)

Voilà, si je n'ai rien oublié cela devrait fonctionner.

Ami calmant, J.P

[Patrice Terrier]

J.P

Voici mon premier retour,.

C'est effectivement beaucoup plus fluide !

Dans la version WD16, j'ai oublié de rendre BTN_Restore invisible au démarrage.

En cas d'utilisation de BTN_Iconize, puis restore depuis la barre des tâches le contenu n'est pas réaffiché.
Il faut modifier la procédure WinRestore en conséquence.

Lors du redimensionnement de la fenêtre par les côtés, l'affichage clignote énormément (d'où l'utilité de la région dans la version d'origine)

[Patrice Terrier]

J.P

Concernant la procédure FocusChange,
celle-ci est nécessaire pour maintenir l'aspect de la barre de titre, qui doit être identique lorsque gP.hMain ou gP.hPlayer prennent tour à tour le focus, et donner l'illusion d'un seul et même process.

Je propose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
FUNCTION FocusChange(LOCAL uMsg is unsigned int, LOCAL wParam is unsigned int, LOCAL lParam is system int)
 
OnOff is boolean = LOINT(wParam)
FromPlayer is int = HIINT(wParam)
 
nFocus is int = 1
IF GetForegroundWindow() = gP.hMain THEN nFocus = 2
IF GetForegroundWindow() = gP.hPlayer THEN nFocus = 2
 
IF nFocus <> gP.wasFocus THEN
    IF nFocus = 2 THEN //GetForegroundWindow() = gP.hMain then// OR API(USER32, "WindowFromPoint", &p) = gP.hPlayer THEN
        Caption_bar..BrushColor = RGB(105,105,105)
        Caption_Main..Color = RGB(255,255,255)
    ELSE
        Caption_bar..BrushColor = RGB(153,153,153)
        Caption_Main..Color = RGB(192,192,192)
    END
END
gP.wasFocus = nFocus
 
//IF OnOff THEN
//	IF IsWindow(gP.hPlayer) THEN
//		IF FromPlayer = WM_NCACTIVATE THEN
//			SetWindowPos(gP.hPlayer, HWND_TOP, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_ASYNCWINDOWPOS | SWP_NOMOVE | SWP_NOSIZE)
//			SetWindowPos(gP.hMain, gP.hPlayer, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_ASYNCWINDOWPOS | SWP_NOMOVE | SWP_NOSIZE)
//		ELSE
//			SetWindowPos(gP.hPlayer, gP.hMain, 0, 0, 0, 0, SWP_NOACTIVATE | SWP_ASYNCWINDOWPOS | SWP_NOMOVE | SWP_NOSIZE)
//		END
//	END
//END
uMsg = uMsg; wParam = wParam; lParam = lParam
RESULT 1 // <---- Pour éviter que la barre de titre ne se réaffiche par dessus mon Skin

et à la fin de TimerProc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
FocusChange(0,0,0)
CenterDialog()

[Patrice Terrier]

J'ai réussi à faire une version qui est compatible avec le déplacement des fenêtres de WD26 révision 100j (comment faire simple quand on peut faire compliqué).

Que ceux qui sont intéressés lève le doigt

[JeAn-PhI]

bonjour,

je veux bien continuer les tests

[Patrice Terrier]

J.P JeAn-Phi

J'ai posté dans la section contribution, une mise-à-jour qui je l'espère devrait fonctionner avec toutes les versions WinDev, de la 16 à la 26, y compris la version buggée 100j.

Je sais pas ce qu'ils attendent pour corriger la 100j