Le plus bizarre bug de ma vie…. !!!
Publié : mer. 12/sept./2007 20:44
Quand j’écris ça dans l’EditeurGadjet de mon programme
Et qu’avec ce texte qui mesure avec un Len() 176 caractères.
Et si je je supprime ou ajoute une lettre l’erreur disparaît !!
voilà la partie ou ce produit l'erreur:

Y’a l’erreur invalid memory access qui se produit…Mode(affichage);#fenetre;500;400;"sanzo"
pause();3000
Donne(libre);"c'est quoi votre âge?";"mettez votre âge ici";"vous faites...";(âge)
Message(libre);"votre âge est";(âge)
Et qu’avec ce texte qui mesure avec un Len() 176 caractères.
Et si je je supprime ou ajoute une lettre l’erreur disparaît !!
voilà la partie ou ce produit l'erreur:
Code : Tout sélectionner
If KeyboardReleased(#PB_Key_F5)
tt$ = GetGadgetText(#Editor_0)
;MessageRequester("",Str(Len(tt$)))
*bufg = AllocateMemory(StringByteLength(tt$))
*crypt = AllocateMemory((StringByteLength(tt$)*2)+64)
NomFichier$ = "temp"
PokeS(*bufg,tt$,StringByteLength(tt$))
Base64Encoder(*bufg,MemorySize(*bufg),*crypt,MemorySize(*crypt))
If CreateFile(0,NomFichier$)
WriteData(0,*crypt,MemorySize(*crypt))
CloseFile(0)
FreeMemory(*bufg)
;FreeMemory(*crypt)
sefd$ = ReplaceString( GetPathPart(ProgramFilename()) + "temp" , " " , "|")
RunProgram("noyau_proxs",sefd$,path,#PB_Program_Wait)
Delay(1000)
Else
MessageRequester("Info","Erreur")
EndIf
EndIf


