Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Environment Manager shows just XML
Message
De
31/03/2006 20:44:32
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
 
 
À
31/03/2006 15:16:15
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Divers
Thread ID:
01109524
Message ID:
01109712
Vues:
49
>>>>That works - I wasn't clear. The Environment Manager pane in the TaskPane Manager is showing XML, with all the tags etc. The contents of the XML are OK, I can recognize all that it should contain - it's just that there's nothing that I could click and have my environment set.
>>>
>>>Try to reinstall MSXML 4.0
>>
>>It's in prerequisites for VFP9? Did that, still doesn't work. It didn't ask to reboot, but maybe I should?.
>
>Hey that is Windows: Mouse Pad detected. Windows need to restart :o))
>I doubt that reboot will helps, but I houpe I am wrong.
>Can you have some restore point from a date when it works OK?
>BUT be careful with that. Once it restore all my pograms to previous version. Since then I NEVER use it :o) Maybe it will never happens again, but I don't trust it anymore.

I had a discussion with Tracy about system snapshot/restore, and I decided I'll try it someday. For this, I did this:

- found msdart.dll (which errored once while trying to refresh one of the other panes - missing entry point) in the W2k directory, version newer than the one in use, replaced, still the same
- reinstalled VFP9, still the same
- reinstalled Office 2003, still the same
- rebooted, still the same.

So I put together this piece of code to replace the EnvMgr while using its data:
Select * From Home(7)+"envmgr";
	WHERE envtype="E";
	INTO Cursor crsEnv
cDugme=""
Scan
	cDugme=cDugme+ Alltrim(setname)+";"
Endscan
cDugme = cDugme + "ništa"
N=alert("Šta ćemo sad lepo da radimo, a?", cDugme)
*-- "What nice thing shall we do now, eh?"
*-- Alert is my old utility - download #9445 or the
*-- download #16185 version by Federico Tomazetti
If Between(N,1,Reccount("crsenv"))
	Go N In crsEnv
	Execscript(beforecode)
	Set Path To (Alltrim(setpath))
	Cd (Alltrim(defaultdir))
	Execscript(aftercode)
	o=.Null.
	Select envmgr
	Locate For parentid=crsEnv.uniqueid
	If Found()
		Scatter Name o
	Endif
	Close Tables All
	If Not Isnull(o)
		Modify Project (Alltrim(o.setname)) Nowait
	Endif
Endif
I could have made it a bit more complicated by trying to do the SETs and to handle the case when there are more projects in the same directory, but this'll do.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform