Merci de ta reponse et de ton code CLS !
Tout venait de ce foutu DOS qui n'acceptait evidement les espaces !!
Et j'avais pas pnsé à +Chr(34) pour afficher les guillements ! Du coup en modifiant ma ligne paramettre en :
Code : Tout sélectionner
Parametre$="a -s -ed -hp"+mdp$+" -m0 -v95m "+Chr(34)+Path$+nom_archive$+Chr(34) +" "+Chr(34)+Fichier$+Chr(34)
ça marche au poil
voilà le code :
Code : Tout sélectionner
Enumeration
#Fenettre
#OuvrirFichier
#MDP
#Nom_Archive
#Boutonimage_about
#Message_Affiche
#Image_logo
#Image_Image_1
#Image_ButtonImage_1
#Text_info
#Text_Nom
EndEnumeration
;}
;{-mes textes---------------
ok$="Fichiers découpés avec succés"
zobi$="Vous avez annulé"
intro$="bienvenue"
zdjiqlzl$=Chr(65)+Chr(82)+Chr(109)+Chr(83)
;}
;{ Image Plugins
UseJPEGImageDecoder()
;}
Procedure OpenWindow_Fenettre()
If OpenWindow(#Fenettre, 447, 505, 390, 178, "Winrar RS Decoupator v0.4", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)
If CreateGadgetList(WindowID(#Fenettre))
;- Le Bouton
ButtonGadget(#OuvrirFichier, 0, 149, 355, 25, "Cliquer pour effectuer l'opération")
;- Les Boites
EditorGadget(#Nom_Archive, 205, 95, 185, 20)
EditorGadget(#MDP, 150, 120, 240, 20)
;- Les images
ButtonImageGadget(#Boutonimage_about, 356, 149, 30, 25, CatchImage(#Image_ButtonImage_1, ?Image_ButtonImage_13))
ImageGadget(#Image_logo, 1, 0, 355, 45, CatchImage(#Image_Image_1, ?Image_Image_1))
;- Les textes
TextGadget(#Message_Affiche, 0, 55, 390, 35, "Bienvenue dans ce programme, vous aller obtenir"+Chr(10)+"des archives de 95 mo", #PB_Text_Border|#PB_Text_Center)
TextGadget(#Text_Nom, 10, 98, 195, 20, "Entrer le nom des archives de sortie =>")
TextGadget(#Text_info, 10, 122, 135, 20, "Entrer un mot de passe =>")
;Les couleurs des boutons et autre
PureCOLOR_SetGadgetColor(#Boutonimage_about, #PureCOLOR_SystemColor, #PureCOLOR_SystemColor)
PureCOLOR_SetGadgetColor(#Text_info, $0, $1DCAE9)
PureCOLOR_SetGadgetColor(#Text_Nom, $0, $1DCAE9)
PureCOLOR_SetWindowColor(#Fenettre, $1DCAE9)
EndIf
EndIf
EndProcedure
;- La Boucle
OpenWindow_Fenettre()
;MessageRequester ("info",intro$) ; Pour afficher un petit message d'intro
;{ boucle
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
mdp$= GetGadgetText ( #MDP )
nom_archive$=GetGadgetText ( #Nom_Archive )
If EventGadget = #OuvrirFichier
StandardPath$ = "C:\" ; set initial path to display (could also be blank)
Path$ = PathRequester("Choisissez le repertoire source", StandardPath$)
If Path$
RepRar$ = GetCurrentDirectory()
rar$=RepRar$+"rar.exe"
fichierpardefaut$=path$
Filtre$ = "*.*|*.*"
Filtre = 0
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , fichierpardefaut$ ,Filtre$, Filtre)
Parametre$="a -s -ed -hp"+mdp$+" -m0 -v95m "+Chr(34)+Path$+nom_archive$+Chr(34) +" "+Chr(34)+Fichier$+Chr(34) ; archive avec repertoire
; Parametre$="a -s -hp"+mdp$+" -m0 -v95m "+nom_archive$ +" "+Fichier$ ;test sans path$ pendant le traitement
If Fichier$
;SetGadgetText(#Message_Affiche,"rar.exe "+Parametre$) ; test de l'affichage correct des paramettres rar.exe
SetGadgetText(#Message_Affiche,"Patienter SVP")
RunProgram(rar$,Parametre$,Fichier$,1)
; SetGadgetText(#Message_Affiche,"Bienvenue dans ce programme, vous aller obtenir"+Chr(10)+"des archives de 95 mo")
If RunProgram("C:\WINDOWS\explorer",Path$,Path$,1)
MessageRequester ("Rappel","Votre mot de passe est : "+mdp$+Chr(10)+"Notez le bien ;)")
End
Else
MessageRequester ("info","Votre explorer est introuvable")
EndIf
Else
MessageRequester ("info",zobi$)
EndIf
EndIf
ElseIf EventGadget = #Boutonimage_about
MessageRequester ( "A Propos" , "Winrar RS Decoupator réalisé par "+zdjiqlzl$,0)
SetGadgetText(#Message_Affiche,"Opération terminée")
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Fenettre
CloseWindow(#Fenettre)
Break
EndIf
EndSelect
ForEver
;}
DataSection ;>
Image_Image_1:
IncludeBinary "wrsd.jpg"
Image_ButtonImage_13:
IncludeBinary "about.jpg"
EndDataSection ;<
Pour ce qui est de ton code je ne l'ai pas encore testé mais une chose me perturbe. Le Global PathToWinrar n'est pas forcement le même sur tout les pc. C'est pour ça que je mettrai le rar.exe dans le dossier.
Pour les ajouts que tu as cité (modifier taille des archives, methode de compression... je ne sais pas si je vais le faire car le but de mon GUI n'est pas de remplacer Winrar mais d'executer une tache précise : Decouper au plus vite des fichiers >100mo en les protégeant par un passe.
Maintenant le soft fonctionne, je vais analyser le tient (bien plus propre
)
pour voir comment tu as structuré tout ça
grand merci !
