Message pas sympa de PB

[SPH]

Salut,

J'ai un message d'"erreur" quand j'essaye de lancer certains codes PB.
Cette erreur (pas tout à fait) est celle ci :

Ne peut exécuter le fichier avec le débogueur interne. Veuillez essayer l'autonome.

Je suis sur PureBasic 6.11 LTS (Windows - x64)

-

Merci

[Naheulf]

Sauf si je me trompe de message d'erreur, PB met cette erreur lorsque le programme est déjà déboqué par le débogueur interne.
Donc en gros tu as recompilé et exécuté le programme une première fois. Puis, tu l'as (recompilé et) exécuté une seconde fois alors que l'exécutable de la première exécution est toujours en train de tourner.

[SPH]

Cela m'arrive avec un total nouveau code que j'essaye.
Par exemple :

Code : Tout sélectionner

;Download the "Blessed Day" font first
;http://www.fontspace.com/billy-argel/blessed-day

RandomSeed(123456-21)

CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows: #sys = "win": #size = 84 ; Different Sizes to get the same Width()
CompilerCase #PB_OS_MacOS  : #sys = "mac": #size = 113 ; Different Sizes to get the same Width()
CompilerEndSelect

#font = 0
#image = 0

text$ = "Thomas"

LoadFont(#font, "Blessed Day", #size, #PB_Font_HighQuality)
CreateImage(#image, 300, 300, 24, $93BFEB)
StartDrawing(ImageOutput(#image))
DrawingMode(#PB_2DDrawing_Transparent)
DrawingFont(FontID(#font))

; Drawing single chars
cursor = 20
*char.Character = @text$
While *char\c
  DrawText(cursor, 20, Chr(*char\c), Random($FFFFFF))
  cursor + TextWidth(Chr(*char\c))
  *char + SizeOf(Character)
Wend

;Drawing full text
cursor = 20
DrawText(cursor, 153, text$, $000000)

StopDrawing()
UsePNGImageEncoder()
SaveImage(#image, "fonttest_single_" + #sys + ".png", #PB_ImagePlugin_PNG)

(je l'ai eu sur le site anglais et je voulais l'essayer)

Une idée de ce qu'est le débugueur "autonome" ? (et comment corriger ça)

-

Thx

[SPH]

Tandis que ce code (new pour ma machine) tourne sans le message :

Code : Tout sélectionner

EnableExplicit

#Window = 0
Enumeration
    #Menu
    #PopupMenu
EndEnumeration

Global flag


Procedure WinCallback(hWnd, Msg, wParam, lParam)
    Select Msg
    	Case #WM_ENTERMENULOOP
    		flag + 1
            If wParam
                Debug "Context menu open"
            Else
                Debug "Main menu open"
            EndIf
        Case #WM_EXITMENULOOP
        	;         	If flag
			;             EndIf
        	flag -1
        	Debug flag
        	If wParam
                Debug "Context menu closed"
            Else
                Debug "Main menu is closed"
            EndIf
    EndSelect
    ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

Procedure EventsPopupMenu()
    DisplayPopupMenu(#PopupMenu, WindowID(#Window))
EndProcedure


If OpenWindow(#Window, 0, 0, 320, 240, "Menu", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateMenu(#Menu, WindowID(#Window))
        MenuTitle("File")
        MenuItem(1, "New")
    EndIf

    If CreatePopupMenu(#PopupMenu)
        MenuItem(2, "Copy")
    EndIf
    SetWindowCallback(@WinCallback())
    BindEvent(#PB_Event_RightClick, @EventsPopupMenu())
    
	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_Menu
				Select EventMenu()
					Case 1
						flag + 1
					Case 2
						flag + 1
				EndSelect
			Case #PB_Event_CloseWindow
				CloseWindow(0)
				End
		EndSelect
	ForEver
EndIf

[Ar-S]

Regarde si dans ton gestionnaire de tâches, si pbccompiler0 ou un truc du genre, tourne alors que tu as quitter le programme. Il ne s'est peut pas "tué" comme il faut.

[SPH]

Non non, pas de pbcompiler0 dans le gestionnaire.
-


===

Hummm, peut être l'antivirus !

[SPH]

Je me demande quand même ce que veux dire : "Veuillez essayer l'autonome" !!

[Fred]

pb d'antivirus ?

[SPH]

pb d'antivirus ?

... Peut être...
Mais même sur un code comme ça :

Code : Tout sélectionner

x=3
Debug x

j'ai un message de PB.

A noter que j'ai en effet un message de Norton qui me dit "Auto-Protect a terminé le traitement des menaces"

PS : norton qui doit bientôt devenir inactif puisque ma période d'essai se termine et que je ne veux pas renouveler.
A voir donc, dans quelques jours...