Information générale
Catégorie:
Installation et configuration
Versions des environnements
Why cant u use activex controls? Arent u still referencing the controls on the local box and that particluar win registry as well?
>This approach means the app can't use ActiveX controls, etc but for the apps I've done, this hasn't been an issue.
>
>
>
>LOCAL lcexe, lnpos, lccurdir
>lcexe = SYS(16)
>lnpos = ATC('XAsset.EXE',lcexe) - 2
>lccurdir = SUBSTR(lcexe,1,lnpos)
>SET DEFAULT TO (lccurdir)
>
>
>PUBLIC mdrive, mdir, mexe, msqlhprobe, mconnectstr
>mdrive = " "
>mdir = " "
>mexe = " "
>msqlhprobe = 0
>mconnectstr = " "
>
>
>* Start an app in a directory and using info
>* in a database (asset in this case)to go to another drive/directory and run an exe for an app.
>* Have an exe/dbf like this for every app ; the contents of the dbf could be different for each server.
>
>set talk off
>set resource off
>USE ASSET shared noupdate
>
>* establish a connection to sql server to force load of odbc dlls that are in vfp60lib directory
>mconnectstr = ALLTRIM(CONNECTSTR) + ''
>msqlhprobe = sqlstringconnect(mconnectstr)
>
>* 05/05/2002 added alltrim on appdrive
>mdrive = ALLTRIM(APPDRIVE)
>mdir = ALLTRIM(APPDIR)
>mexe = ALLTRIM(APPEXE)
>USE
>CLOSE ALL
>
>
>mpath = mdrive + "\" + mdir
>SET DEFAUL TO (mpath)
>release mdrive, mdir, mpath
>DO (mexe)
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement