Discussion :

[mutin56]

Bonjour à tous


J'ai lu sur ce forum qu'il était possible de portabiliser une application à l'aide de BINDER, cette solution, me permettrait de fournir directement sur clé USB un programmme autonome.

J'ai utilisé BINDER, en suivant à la lettre les explications mais quelque chose a du m'échapper car cela ne fonctionne pas comme prévu.

Je précise que mon application en plus des forms "normale" a besoin d'un contrôle DATA.

Les composants détectés par BINDER pour être installés sont : DAO350.DLL et MSVCRT40.DLL.

Lors du lancement de l'exécutable autonome une fenètre "Rapport de démarrage" dont le contenu est :

"Ouverture E:\VisualBasic\InstallationXP\Bindé\Projet1.exe
Nb Modules 3
e:\visualbasic\installationxp\bindé\quick32.dll
Fichier non écrit
c:\windows\system32\dao350.dll
Fichier non écrit
c:\windows\system32\msvcrt40.dll
Fichier non écrit
Enregistrement c:\windows\system32\dao350.dll
Erreur enregistrement
Enregistrement c:\windows\system32\msvcrt40.dll
Erreur enregistrement"

et rien d'autre se passe

Auriez vous l'amabilité de m'aider ?
Par avance merci

[SfJ5Rpw8]

Je n'ai pas encore eu le temps de tester binder...

mais Delbeke t'aideras surement la dessus ..

en attendant tu peu préciser ta version de windows ..?

[ThierryAIM]

Le rapport de démarrage me fait penser à un problème de droits d'écriture dans le répertoire système...

Petite question, qui n'a rien à voir avec le problème, mais ce programme fonctionne avec une base Access97 ?

[mutin56]

La version de Windows sous laquelle je développe est XP.

La base est une simple feuille de calcul Excel97

[Delbeke]

Apparemment la clé usb est verouillée en écriture.
Par ailleurs, je vois que tu utilises dao. toutes les dlls nescessaires ne sont dans l'exe bindé. J'ai founi un fichier include pour les ajouter au projet.

[Delbeke]

Pour éviter que le progrmme ne tente d' extraite le fichier QuickDll32.Dll sur la clé usb, il va faloir modifier le programme binder.
Dans frmMain, fonction Bind, localise

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
  Compressed = False
  Registered = False
  CopyMode = 0
  DestFileName = "[app]\" & GetFileFullTitle(FileName)
  strModule = IIf(Compressed, "1", "0") & "|" & _
              IIf(Registered, "1", "0") & "|" & _
              CStr(CopyMode) & "|" & _
              CStr(GetFileDate(FileName)) & "|" & _
              CStr(Vers.Major) & "|" & _
              CStr(Vers.Minor) & "|" & _
              CStr(Vers.BuildMajor) & "|" & _
              CStr(Vers.BuildMinor) & "|" & _
              DestFileName
  'UpdateResData OutPutFileName, "SETUP", 1, ResByte()
  UpdateResData "SETUP", 1, ResByte()

modifie cette ligne

Code :

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

DestFileName = "[app]\" & GetFileFullTitle(FileName)

en

Code :

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

DestFileName = "[sys]\" & GetFileFullTitle(FileName)

recompile Binder
relance binder
recharge ton projet
ajoute DAO36.BNd (bouton inclure)
et rebind le tout

[mutin56]

Merci pour tout cela, je fais les essais.