Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BUG - Exception code=C0000005
Message
De
19/03/2003 10:31:48
 
 
À
19/03/2003 02:02:21
Mauricio Marques
Moshe & Bottmann Associados
São Paulo, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00766931
Message ID:
00767582
Vues:
19
I tested this as best I could from your description below, but I don't see the problem. Here is my code:
clear 
LOCAL aobj[1], xx as form
DELETE FILE testxx.sc?
CREATE FORM testxx NOWAIT
=ASELOBJ(aobj,1)
xx = aobj[1]
xx.Name = "MyForm"
xx.WindowType = 0
xx.autocenter = .t.
xx.addobject('txt1','textbox')
xx.addobject('cmd1','commandbutton')
xx.cmd1.Top = 30
text to lctext noshow 
local nome_form
nome_form = thisform.name
modify window &nome_form. nozoom nogrow
thisform.refresh()
endtext
xx.WriteMethod('init',lcText)
text to lcText noshow 
* wait "" timeout .1
thisform.release
clear events
endtext
xx.txt1.writemethod('gotfocus',lcText)
KEYBOARD 'Y' CLEAR
RELEASE WINDOW 'Form Designer'
erase testxx.pj?
CREATE PROJECT testxx nowait
TEXT TO lcText NOSHOW
	do form testxx
	read events
endtext
DELETE FILE testxx.prg
=STRTOFILE(lcText,'testxx.prg',0)
_vfp.ActiveProject.files.add('testxx.prg')
_vfp.ActiveProject.Debug = .f.
if !_vfp.ActiveProject.Build('testxx.exe',)
	?'build failed'
	return 
endif
_vfp.ActiveProject.close
lcRuncmd ="! /n "+SET("Default")+CURDIR()+'testxx.exe -c'
for lni = 1 to 50
	@ 2,2 say lni
	&lcRuncmd
endfor
clear dlls 
return
This will run the exe 50 times no problem for me. If you could try my code, and let me know if you see the fatal exception, that would be great. If it doesn't crash, and you could make changes to my code to make it crash and repost the code, that would be great also.

You said you are using XP and Windows 2000. A quick question, are you and your users configured with regional language settings other than English, perhaps "Portuguese (Brazil)"?

Hopefully we can get this sorted out, and thanks!

>Ok, now it's 04:00am at Brazil. And i'm trying to reproce the problem.
>Now i need sleep. eehehehehehehe
>
>This piece of code was in a form that i used since fox 3.0
>----------------------------------------------------
>Form.Init()
>
>...code...
>
>local nome_form
>nome_form = thisform.name
>modify window &nome_form. nozoom nogrow
>
>thisform.refresh()
>----------------------------------------------------
>
>It's a ridiculous code but if your main.prg calls this form you could reproce the problem.
>
>Not once, but 10 ou 50 times.
>Put a command at GOTFOCUS to autoclose the form.
>
>Make a EXE and starts call this program.
>
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE
>call MAIN.EXE Ops, a error...
>call MAIN.EXE
>call MAIN.EXE
>
>If you call 50 times could be that 4 or more erros fire.
>It's not a constant.
>
>Sometimes more, sometime less...
>
>After remove and change this old code at my init form event the error persistis. Something else also produce this problem.
>
>But it's a example to reproduce the error.
>
>I hope you find a fix to this bug.
>
>[]s moshe@moshe.com.br
Jim Saunders
Microsoft
This posting is provided “AS IS”, with no warranties, and confers no rights.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform