FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Un petit "coucou" à tous les Panoramiciens !
par Yannick Aujourd'hui à 23:06

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 22:44

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Aujourd'hui à 16:52

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 14:16

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Synedit Parameters

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2, 3, 4, 5  Suivant
AuteurMessage
silverman

avatar

Nombre de messages : 471
Age : 45
Localisation : Picardie
Date d'inscription : 19/03/2015

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 18:21

Vu que c'est un chemin de fichier passé en paramètre, ça veut dire qu'il ne sera pas exécuté puisque c'est un paramètre. Tu peux remplacer les espaces par un caractère interdit pour les noms de fichiers, le ? par exemple, transmettre, et à la reception remplacer les ? par des espaces. Facile et panoramic pur jus! Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 25 Juin 2017 - 18:33

Effectivement.

A force d' avoir la tête dans le guidon, on ne voit plus ce qui parait simple.
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 18:56

Citation :
Je sais Klaus mais le but est de faire du tout Panoramic.
Et, devoir embarquer KGF qui pèse lourd pour juste une fonction c' est un peu dommage.
Alors, il te reste la solution brutale: introduire un paramètre bidon de "séparation" entre les paramètres réels. Et tu concatènes tout jusqu'à l'apparition du premier paramètre séparateur, et ainsi de suite.
Exemple:
Code:
execute/wait "MonProgramme.exe|Mon source.bas & un autre source.bas & 123"
Le programme devra attacher ensemble les pamamères 1 et 2, le 3 sert de séparateur, puis attacher en semble les paramètres 4, 5 et 6, le 7 sert de séparateur, et finalement on a 123. Ca devrait marcher dans tous les cas, et tu choisis librement ton caractère de séparation.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 19:22

drunken drunken drunken

C'est insoluble, cette affaire et ça devient compliqué.

Klaus a écrit:
Une solution possible: utiliser la fonction
Code:
res% = DLL_call2("GetShortName",adr(long$),adr(court$))
Yannick a écrit:
Je sais Klaus mais le but est de faire du tout Panoramic.
Et, devoir embarquer KGF qui pèse lourd pour juste une fonction c' est un peu dommage.

Et pourquoi pas une petite dll spéciale juste pour ce besoin ?

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 19:45

Citation :
Et pourquoi pas une petite dll spéciale juste pour ce besoin ?
Je vais le faire. Mais Jack a dit que c'est dans la ToDo-List, et ce ne sera donc valide que peu de temps.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 19:58

Ou bien Yannick attend,
Et en attendant il passe les paramètre par un fichier et utilise la sub nom_court de Papydall pour les système Windows.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 25 Juin 2017 - 20:26

Ne vous emballez pas. Laughing

Je vais trouver une solution Panoramic.
Silverman me l' a soufflé plus haut.

En attendant, le zip sur mon webdev doit être fonctionnel. 
J' y ai intégré la sub de Paydall.
Il est inutile de faire une dll rien que pour çà.
Si un jour il faut découper KGF il vaut mieux que ce soit par thème et pas pour une seule
fonction dont il est possible de se passer.
Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 20:35

Dans mon WebDav, il y a maintenant une nouvelle DLL dans le dossier DLLs:
KGF_ShortName.dll

Elle contient une seule fonction:
Code:
res% = dll_call2('GetShortName',adr-long$),adr(court))

A appeler comme suit:
Code:
dim res%, court$, long$
long$ = ".../Mon fichier avec espaces.bas"
court$ = string$(255," ")
res% = dll_call2('GetShortName',adr-long$),adr(court))
court$ = trim$(court$)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 25 Juin 2017 - 20:56

@ Klaus,
Merci pour cette MiniKgf.
Laughing

@ Jean Claude,
J' aimerai savoir si le dernier zip fonctionne chez toi. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 21:17

Ben non.

Le problème de la ligne 99 pour Syneditparameters, lui il a disparu. c'est déjà ça cheers

Pour le reste, le passage de paramètres ne fonctionne pas comme tu l'a bien expliqué:
Citation :
Execute_Wait "C:\Users\Jean Claude\Desktop\MonExecutable.exe"+"|"+Par1$+" "+Par2$+" "+Par3$

le souci est que tu as un espace dans Par2$ et qu' un espace est une séparation de paramètre.
donc c' est comme si tu avais :
Par1$ = "1250"
Par2$ = "C:\Users\Jean"
Par3$ = "Claude\Desktop\Param.inf"
Par4$ = "1"

Or, l' outils attend "1" en Par3$ et qu' il reçoit "Claude\Desktop\Param.inf"
Saisis tu le pb ?

donc j'ai toujours le message "impossible de charger le fichier en ligne..."

Mais tu as la solution de passer les paramètres par un fichier en attendant que le problème soit résolu OU d'utiliser la mini DLL que Klaus est entrain de te concocter.
Au passage, Klaus est vraiment sympa, il répond toujours positif... c'est à souligner.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 25 Juin 2017 - 21:22

Je suis en train de mettre en place la solution de Silverman 
qui est tout panoramic.
Wink

dans la version que tu viens de charger, je passe par la sub shotname de Papydall
mais apparemment l' appel change selon la version de windows.
Mad

Je vais y arriver, c' est pas un tas d' octet qui va m' arrêter, boudiou !
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 21:34

Je viens de me rendre compte que j'ai zappé les 3 derniers messages.

@Yannick,

Citation :
@ Jean Claude,
J' aimerai savoir si le dernier zip fonctionne chez toi.

Si le dernier ZIP est celui de fin d'après midi (vers 17h30, heure française pas celle du forum), alors ce que je viens d'écrire est valable.

@Klaus,
Tu es tellement rapide..., mais je pense que ta "KGF_ShortName.dll" ne sera pas inutile.
je suis un peu honteux de t'avoir entraîné à créer quelque chose que Yannick ne souhaite pas choisir.
En tous cas, merci, tu es super sympa.

Yannick a écrit:
Je vais y arriver, c' est pas un tas d' octet qui va m' arrêter, boudiou !
Et y manquerait plus que ça... crévindiou ! lol!



A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 25 Juin 2017 - 21:51

Je viens de mettre sur mon webdev un enième zip de BasicEditor.
J' ai pris la solution de Silverman en remplaçant les chr$(32) par des chr$(124)
puis l' inverse.

Jean Claude, toujours prêt ?
Laughing

Ceci dit, pour les petits programmes destinés à windows et qui ne nécessite qu' elle,
j' ai chargé la petit dll de Klaus.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10129
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Synedit Parameters   Dim 25 Juin 2017 - 22:28

J'ai mis une version améliorée de KGF_GetShortName.dll sur le WebDav, dossier DLLs. Elle fournit maintenant ne nom même si le fichier n'existe pas. C'est une nouveauté.

Voici une démo:
Code:
' test_GetShortName_nouveau.bas

label ouvrir

dim res%, court$, long$

dll_on "KGF_ShortName.dll"

width 0,800
button 1 : top 1,10 : left 1,10 : caption 1,"Ouvrir" : on_click 1,ouvrir
alpha 2 : top 2,10 : left 2,width(1)+20
open_dialog 3

end

ouvrir:
  long$ = file_name$(3)
  if long$="_" then return
  court$ = string$(255," ")
  res% = dll_call2("GetShortName",adr(long$),adr(court$))
  court$ = trim$(court$)
  caption 2,court$
  select res%
    case 0
      message "Le nom ou le chemin est invalide"
    case 1
      message "Ce fichier n'existe pas"
    case 2
      message "Ce fichier existe"
  end_select
  return
  

Ainsi, cette fonction peut être utilisée pour passer un nom de source, de fichier de données ou de fichier exécutable, via les commandes EXECUTE et/ou EXECUTE_WAIT, sans se préoccuper de la gymnastique des guillemets dont l'usage devient superflu.

Cette dll peut cohabiter avec une DLL chargée par DLL_ON en utilisant la commande LIBARY, de la manière suivante:
Code:
LIBRARY 1,"KGF_ShortName.dll"   : ' déclaration de la DLL
FUNCTION "GetShortName","GetShortName",1,"II","StdCall"

On peut alors l'appeler simplement comme ceci:
Code:
res% = GetShortName(adr(court$),adr(long$))
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Lun 26 Juin 2017 - 10:06

bonjour à tous,

@Klaus,
Cette dll apporte un vrai plus de confort.
Citation :
cette fonction peut être utilisée pour passer un nom de source, de fichier de données ou de fichier exécutable, via les commandes EXECUTE et/ou EXECUTE_WAIT, sans se préoccuper de la gymnastique des guillemets dont l'usage devient superflu.

@Yannick,

J'ai deux bonnes et deux mauvaises nouvelles Sad Mais pas de panique, rien de grave.

Au premier essai: c'est comme d'hab, impossible d'aller dans les paramètres "Impossible to load file...."
C'est la première mauvaise nouvelle.

La bonne nouvelle: j'ai trouvé (par hasard) la raison.
Si je lance BasicEditor.exe sans charger de code et que je vais direct au paramètre ça marche !  cheers
Alors j'ai déplacé le code qui me sert de test dans le dossier "BasicEditor" et là tous les Plug-in fonctionnent parfaitement avec les bons retours.

Donc le problème de l'espace dans mon nom est résolu. Je me demande si on a pas passé le weekend à chercher sur une mauvaise piste. scratch  Embarassed

La deuxième mauvaise nouvelle, qui a aussi sa solution.
Je te la décrit quand même, ça peut rendre service: à la fermeture de l'éditeur, si, et seulement si, on a utilisé un Plug_in la fermeture par la croix rouge provoque ça:

Puis ça:


Tu as 2 solutions: soit tu trouves le bug, bonjour le plaisir... Very Happy
Soit tu neutralises la croix rouge (c'est ce que j'ai fait dans le mien, en utilisant une sub de Papydall, encore lui  Very Happy )

Je te file la sub si tu choisis la deuxième solution.
Code:
SUB Desactive_X(NumForm)
    Dim_local hWnd,hMenu,result%,flag%,SC_CLOSE : SC_CLOSE = hex("F060")
    dll_on "user32" : hWnd = handle(NumForm) : hmenu = dll_call2("GetSystemMenu",hWnd,0) : flag% = 1
    result% = dll_call3("EnableMenuItem",hMenu, SC_CLOSE, flag%) : dll_off
END_SUB          

A toi de bosser  Very Happy  Razz ....


Dernière édition par Jean Claude le Lun 26 Juin 2017 - 12:20, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Re   Lun 26 Juin 2017 - 12:03

Je comprends pas bien ton histoire de premier essai.
Pourrais tu me décrire étape par étape ce que tu fais quand cela ne fonctionne pas.

Pour l' erreur de fermeture, je pense que cela devrait se résoudre.
J' ai une piste.


Edit : fausse piste.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Lun 26 Juin 2017 - 12:17

Salut Yannick,
Tu n'as pas bien lu ou es-tu mal réveillé. Razz  lol!


En résumé:
Je ne peux pas utiliser les Plug-in si j'ai chargé un code-source de test qui n'est pas dans le répertoire BasicEditor.
Si je déplace code-source de test dans le répertoire BasicEditor tous les Plug-in fonctionnent à merveille.

C'est un problème de chemin. Tu dois pouvoir reproduire le problème chez toi.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 26 Juin 2017 - 12:39

Effectivement.
Je viens de voir çà.
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 26 Juin 2017 - 12:52

J' ai bien trouvé le problème mais là c' est un casse tête.

Le chemin de base de l' exécutable est récupéré par dir_current$.
Si tu charges un fichier depuis le bureau et que tu lances l' outils, dir_current$ ne renvoie pas
le chemin de l' outils mais celui du fichier chargé.

C' est pas très normal puisque l' exécutable est indépendant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 26 Juin 2017 - 13:04

@ Jean Claude,

Je mettrai un zip dans la journée mais en attendant et pour t' éviter de tout recharger,
il suffit d' ajouter : dir_change Path$
dans les procédures :

OpenPanoLang()
OpenSyneditParameters()
OpenPanoSelectColor()
OpenPanoCode()
OpenPanoString()

et ce juste derrière la déclaration des variables locales
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Lun 26 Juin 2017 - 13:45

Bon, je vois que tu as la solution.

J'attendrai le ZIP, j'ai d'autres chats à fouetter. Very Happy

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 26 Juin 2017 - 13:49

Pauvres chats...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 26 Juin 2017 - 23:26

J' ai mis à jour le zip de BasicEditor pour les tests.

Y' a même un bonus pour les utilisateurs de Windows... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5062
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Synedit Parameters   Mar 27 Juin 2017 - 9:46

Salut à tous,

@Yannick,

Et bien, ça fonctionne pas mal tout ça Very Happy

Plus de bug à la fermeture, le problème des chemins est résolu. cheers

Mais ! geek  Tu ne crois tout de même pas que je ne vais pas t'embêter. Very Happy

Il y a un souci avec la recherche, mais je n'arrive pas à le reproduire à tous les coups.



Sinon à propos de cette fenêtre de recherche, il faudrait que tu t'arranges pour quelle reste en premier plan.
J'ai voulu agrandir en plein écran pendant que cette fenêtre était ouverte, du coup elle s'est retrouvée en arrière plan.

Jolies les petites icônes dans le menu... king

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7998
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 27 Juin 2017 - 10:08

Je vais regarder ce bug ou plutôt la ligne 369... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Synedit Parameters   

Revenir en haut Aller en bas
 
Synedit Parameters
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 4 sur 5Aller à la page : Précédent  1, 2, 3, 4, 5  Suivant
 Sujets similaires
-
» Synedit Parameters
» V3.31 du 28/08/2014 - Synedit: aide contextuelle par F1
» SYNEDIT (gestion des signets)

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: