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
» A propos des attributs de fichier
par Oscaribout Aujourd'hui à 1:53

» Problème de math
par Marc37 Hier à 23:04

» Problème de math
par braveen Hier à 21:40

» I Love You
par papydall Hier à 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Hier à 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Programme portable

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



Nombre de messages : 5953
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Programme portable   Sam 28 Fév 2015 - 18:24

Je ne veux pas parler ici d'un programme qui ne pèse pas lourd (il y en a Very Happy ), mais d'un exécutable autonome qui ne nécessite pas d'adjoindre des fichiers annexes.
L'idée est d'intégrer au programme principal les fichiers binaires annexes: petite dll, imagettes, icônes etc. sous forme de lignes de datas en hexadécimal, et de reconstituer ces fichiers sur place au moment de l'exécution. Ça évite donc le transport de plusieurs fichiers, au risque d'en oublier un.
Il est bien évident qu'il ne s'agit ici que de fichiers binaires peu volumineux (sous forme hexa leur volume est multiplié par deux). Je ne conseillerais pas d'essayer d'intégrer kgf.dll, à moins d'avoir des idées suicidaires...

L'essentiel est constitué de deux petites subs:
- Bin2Data, utilisé en dehors du programme principal, qui convertir le fichier binaire en lignes de datas en hexadécimal et écrit le tout dans un fichier texte.
Ce fichier texte est ensuite lu dans un éditeur et incorporé par copier/coller dans le programme principal, en y ajoutant des repères de début et de fin.
(le fichier texte peut ensuite être détruit).
- Data2Bin, dans le programme, qui lit les lignes de datas et reconstitue le fichier binaire à un emplacement choisi, pour utilisation par le reste du programme.

Je pensais en particulier au programme de dessin ci-contre, qui utilise Mouse.dll de Nardo.
Cette dll fait environ 40k octets, et génère 1024 lignes de datas, c'est beaucoup, mais bon, il faut ce qu'il faut.

Les subs avec exemple d'utilisation (pour l'anecdote, j'avais fait précédemment un long baratin et joint la totalité des datas, et j'ai eu droit à 'Message trop long...' et paf, j'ai perdu la totalité du texte Sad . Donc là, échaudé, je ne mets qu'une petite partie des datas)
Code:
DIM f$,fr$,fb$
f$ = "C:\PANORAMIC\Mouse.dll": ' fichier dll d'origine
fr$ = "Z:\Mouse.txt": ' fichier texte provisoire des datas, à supprimer ensuite
fb$ = "Z:\Mouse.dll": ' fichier dll résultat (utilisé par le programme cible)

' Conversion d'un fichier binaire en suite de DATAs
Bin2Data(f$,fr$)
PRINT "Terminé phase 1 !"

' Conversion de la suite de DATAs en fichier binaire (restore)
Data2Bin("Mouse.dll","F",fb$)
PRINT "Terminé phase 2 !"
END
' ==============================================================================
SUB Bin2Data(f$,fr$)
' Conversion d'un fichier binaire en suite de DATAs (dans fichier texte fr$)
DIM_LOCAL a$,sz%,i%,j%,ncl%,rs%
ncl% = 40: ' octets par ligne, arbitraire
FILEBIN_OPEN_READ 8,f$: sz%=FILEBIN_SIZE(8)
FILE_OPEN_WRITE 9,fr$
j% = INT(sz%/ncl%): rs% = sz%-j%*ncl%
FOR i% = 1 TO j%
    FILEBIN_HEXA_READ 8,ncl%,a$: FILE_WRITELN 9,"DATA "+CHR$(34)+a$+CHR$(34)
NEXT i%
IF rs%>0 THEN FILEBIN_HEXA_READ 8,rs%,a$: FILE_WRITELN 9,"DATA "+CHR$(34)+a$+CHR$(34)
FILEBIN_CLOSE 8: FILE_CLOSE 9
END_SUB
' ==============================================================================
SUB Data2Bin(Seqd$,Seqf$,fb$)
' Conversion de la suite de DATAs en fichier binaire (restore)
' Seqd$ = repère de début, Seqf$ = séquence de fin (= "F")
' fb$ = chemin du fichier binaire résultat
DIM_LOCAL a$
RESTORE: READ a$: WHILE a$<>Seqd$: END_WHILE
FILEBIN_OPEN_WRITE 9,fb$
    READ a$
    WHILE a$<>Seqf$: FILEBIN_HEXA_WRITE 9,LEN(a$)/2,a$: READ a$: END_WHILE
FILEBIN_CLOSE 9
END_SUB
' ==============================================================================
DATA "Mouse.dll"
DATA "4D5A50000200000004000F00FFFF0000B80000000000000040001A00000000000000000000000000"
DATA "000000000000000000000000000000000000000000010000BA10000E1FB409CD21B8014CCD219090"
DATA "546869732070726F6772616D206D7573742062652072756E20756E6465722057696E33320D0A2437"
...
...
DATA "00000000000000000000000000000000000000000000000000000000000000000000000000000000"
DATA "00000000000000000000000000000000000000000000000000000000000000000000000000000000"
DATA "00000000000000000000000000000000000000000000000000000000000000000000000000000000"
DATA "F"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Programme portable   Sam 28 Fév 2015 - 19:01

Est-ce que tu as essayé de simplement renommer un fichier binaire en TXT ou BMP ? En générant l'exécutable sous forme "application", ce fichier sera alors inclus. Et lors de l'exécution, tu devrais pouvoir l'utiliser, soit directement en donnant son nom modifié, soit en le copiant à partir de son nom modifié vers un dossier temporaire et de l'utiliser là. A ce régime, tu peux inclure des DLLs, même KGF.dll, et de reconstituer l'environnement d'exécution au démarrage.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 5953
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Programme portable   Sam 28 Fév 2015 - 19:12

J'avoue à ma grande honte que je n'ai jamais compilé d'exécutable sous forme d'application mais toujours sous forme exe... Effectivement ce que tu dis doit être possible (si je comprends bien, d'après ce que tu dis ça n'accepte en fichiers associés que les txt ou bmp)... à voir...

Par contre je ne comprends pas du tout comment on désigne les fichiers associés.
Si je lance ma compilation en 'Application', le compilateur me liste un tas de fichiers txt, jpg ou bmp qui seront joints et qui n'ont rien à voir avec le source en question... je ne vois pas du tout où il va chercher tout ça scratch et ça finit d'ailleurs par une erreur sur un fichier jpg scratch et il me génère un exécutable inutilisable.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Programme portable   Sam 28 Fév 2015 - 19:20

Il inclut automatiquement tous les fichiers TXT, BMP et JPG qu'il trouve dans le dossier. Il les propose dans une liste (mémo ?), et tu peux en rajouter ou en enlever. Puis tu valides cette liste.

Il est donc conseillé d'avoir un dossier dans lequel tout est réuni, mais seulement ce qui est nécessaire pour le programme en question.

Je viens de faire l'essai: ça ne marchera pas avec l'extension BMP, car il vérifie la validité du format BMP avant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 5953
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Programme portable   Sam 28 Fév 2015 - 19:24

Merci pour le tuyau, effectivement je faisais ça dans le répertoire des sources, alors là il y a du monde !

J'avoue que je n'arrive pas à grand chose (allez, disons-le, à rien) avec cette méthode, je ne dois pas savoir m'y prendre...

A priori ça ne marche pas.
Je mets dans un répertoire Test.bas:
Code:
DIM mm$
mm$ = "Mouse.dll"
EXECUTE_WAIT "CMD.exe /c REN Mouse.jpg "+mm$: ' rename
DLL_ON mm$
END
et Mouse.dll renommé en Mouse.txt ou en Mouse.jpg
Je compile en application Test.exe, avec Mouse.txt (ou Mouse.jpg)
et à l'exécution j'ai toujours une erreur de chargement dll (et pas de dll créée évidemment)

Et si je compile directement avec Mouse.dll, je n'ai pas d'erreur à la compilation, mais même résultat.

Après essais, je dirai que pour moi, a priori, ce système ne marche pas, et donc que je maintiens mes subs là-haut.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Programme portable   

Revenir en haut Aller en bas
 
Programme portable
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Augmenter l'autonomie du 3790T "à pied" avec une alim externe portable
» cafe renverser sur clavier ordi portable
» Mon PC portable perd de la mémoire
» ordinateur portable qui se bloque
» HotKeys : des raccoucis claviers facilement (logiciel portable)

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: