jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
 | | Sujet: KGL de Klaus Jeu 6 Juin 2024 - 1:18 | |
| Cette fois, je me suis lancé dans la fabrication d'un utilitaire. Un gestionnaire de films video : J'ai essayé avec l'objet Movie... pathétique ! J'ai découvert la méthode de Klaus avec sa dll = fabuleux ! Alors, voici où j'en suis dans l'élaboration de ce programme :  - Code:
-
rem ' Programme de gestion de films vidéo - jjn4 - 04/06/2024 =================
dim res%, MP%, f$ , NP$ , RC$
NP$=" Gestion de films video - par jjn4 - 05/06/2024 - Cliquez sur un "
NP$=NP$+"titre dans la liste bleue pour regarder une video"
RC$=dir_current$+"\"
label clic
rem Préparatifs initiaux ======================================================
width 0,1365 : height 0,720 : caption 0,NP$
color 0,0,0,255
dll_on "KGF.dll"
rem Affichage de la façade ====================================================
picture 100 : rem Emplacement du film
width 100,860 : height 100,681
if dir_exists("Data")=1
dir_change "Data"
end_if
if file_exists("Famille-feuilleton.jpg")=1
file_load 100,"Famille-feuilleton.jpg"
end_if
picture 110 : rem Commentaire n°1
left 110,865 : top 110,5 : width 110,30 : height 110,300
if file_exists("Deco-1.jpg")=1
file_load 110,"Deco-1.jpg"
end_if
list 120 : rem Affichage des films mp4 en stock dans le répertoire
left 120,900 : top 120,5 : width 120,440 : height 120,300
font_size 120,24 : font_name 120,"Arial" : font_color 120,0,0,255
color 120,97,255,253 : on_click 120,clic
picture 130 : rem Commentaire n°2
left 130,865 : top 130,310 : width 130,30 : height 130,365
if file_exists("Deco-2.jpg")=1
file_load 130,"Deco-2.jpg"
end_if
list 140 : rem Affichage des différentes séquences du film sélectionné
left 140,900 : top 140,310 : width 140,440 : height 140,365
color 140,155,255,55 : on_click 140,clic
dir_change RC$ : rech()
end : ' Début des routiines ===================================================
sub choix() : rem Choix du film à regarder ====================================
dim_local v1ch$
if item_index(120)>0
v1ch$=item_index$(120)
hide 100
MP% = dll_call5("CreateMultiPlayer",handle(0),0,0,width(0)-20,height(0)-80)
f$=RC$+v1ch$
res% = dll_call2("LoadFileIntoMultiPlayer",MP%,adr(f$))
res% = dll_call1("PlayMultiPlayer",MP%)
end_if
end_sub
clic: : rem Gestion des on-click ==============================================
select number_click
case 120 : choix()
case 140 : docu()
end_select
return
sub docu() : rem Liste des séquences incluses dans le film ====================
end_sub
sub rech() : rem Recherche des films disponibles ==============================
dim_local v1re$
v1re$=file_find_first$
while v1re$<>"_"
if right$(v1re$,4)=".mp4"
item_add 120,v1re$
end_if
v1re$=file_find_next$
end_while
file_find_close
end_sub
C'est super, mais le problème qui se pose, c'est quand on choisit un deuxième film dans la liste, il s'implante en dessous du premier et les deux co-fonctionnent. Et les histoires de dll, ça n'est pas dans mon domaine de connaissance. Ma question, c'est donc : comment arrêter le déroulement de la lecture d'un film de façon à passer à un autre ?  Il y a sans doute dans la dll de Klaus un truc qui est prévu pour cela. Mais je ne vois pas comment trouver la réponse...  Merci d'avance pour la réponse du spécialiste qui lira ma question !  | |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 10:31 | |
| Bonjour à tous @JJN4 KGF.DLL :
Tu as la fonction StopMultiPlayer qui devrait faire l'affaire. La syntaxe : - Code:
-
res% = dll_call1("StopMultiPlayer",MP%) MP% est le player à stopper. A tester ! Bonne continuation !
Dernière édition par Marc le Jeu 6 Juin 2024 - 11:07, édité 1 fois | |
|
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 10:41 | |
| Merci pour ta prompte réponse. J'ai essayé, alors c'est mieux, ça arrête le déroulement du film, mais ça ne l'efface pas, et si on clique sur un autre film, ça le déclenche en dessous de celui qui est arrêté. Comment peut-on l'effacer de l'écran ? | |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 10:45 | |
| @JJN4 - Citation :
- Comment peut-on l'effacer de l'écran ?
Essaie la fonction DeleteMultiPlayer. Syntaxe : - Code:
-
res% = dll_call1("DeleteMultiPlayer",MP%)
| |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 11:06 | |
| ... suite à mon précédent post @JJN4 Voici un extrait de la documentation de Klaus :  Lien pour télécharger la documentation de KGF.DLL. http://klauspanoramic.infinityfreeapp.com/KGFchm.zipUne fois installée, si tu n’as pas les pages qui s’affichent correctement, déverrouille le fichier dans les propriétés :  | |
|
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| |
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 12:27 | |
| J'ai essayé l'adresse que tu indiques : http://klauspanoramic.infinityfreeapp.com/KGFchm.zipCela ne donne absolument rien, impossible de télécharger quoi que ce soit. J'ai fait un essai au hasard avec ResizeMultiPlayer : - Code:
-
res% = dll_call1("ResizeMultiPlayer",MP%,400,250) Apparemment, cela ne doit pas marcher comme ça, car cela me donne une erreur : Not correct arithmetic expression. | |
|
Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 13:09 | |
| | |
|
jjn4
Nombre de messages : 2747
Date d'inscription : 13/09/2009
| | Sujet: Re: KGL de Klaus Jeu 6 Juin 2024 - 14:01 | |
| Ah, ça y est, j'ai réussi à obtenir KGF.chm. Waou !!! Il y a une quantité fabuleuse de trucs, là-dedans ! Je vais regarder tout ça.  Merci pour ce dernier conseil, ça y est, ça marche ! Je vais tester tout ça...  | |
|
Calendrier