Memory-Fehler "PureDishelper" [Gelöst]

[kwai chang caine]

Hallo an alle

Seit einer Stunde habe ich einen Fehler Packete zu lesen, wenn ich ein zweites Mal in zwei verschiedenen Funktionen.

Ich hatte die Idee zu versuchen, zu lesen, zweimal hintereinander zu sehen, ob der Fehler habe meine Funktion oder "PureDispHelper"

Und wenn man Kopie der gleichen Befehl zweimal hintereinander erhalte man, warum dieser Fehler Ihrer Meinung ?

Code: Alles auswählen

dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1)
dhFreeString(Result)
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1)

Invalid memory access (read error at adress 167853909)

Danke viele

[Kiffi]

Hello kwai chang caine,

what kind of type is 'Area'? Really a string?

Greetings ... Kiffi

[kwai chang caine]

Hello my good KIFFY
I wait you, like a dog wait his master,
but without shaking the tail

Yes is a string, what is funny is that the first instruction that works fine
And at the second instruction (Two line after) they are an error with exactly the same instruction

This is the code a little more complete :

Code: Alles auswählen

Structure SessionTGC 
 Nom.s[5] 
 Adresse.l[5] 
EndStructure 

Global Dim TabSessions.SessionTGC(5) 

Procedure CreateSession() 
    
 Define Count.l 
 Define SessionEnCours.l 
 Define Name.l 
 SessionTGC = dhCreateObject("Extra.Sessions") 
 dhGetValue("%d", @Count, SessionTGC, ".count") 
  
 For Sess = 1 To Count 
  
  dhGetValue("%T", @Name, SessionTGC, ".item(%d)", Sess) 
  dhGetValue("%o", @SessionEnCours, SessionTGC, ".item(%d)", Sess) 
  TabSessions(Sess)\Nom = PeekS(Name) 
  TabSessions(Sess)\Adresse = SessionEnCours 
  dhFreeString(Name) 
  dhFreeString(SessionEnCours) 
  
 Next 
    
EndProcedure 

Procedure AdresseSession(NomSessionChoisie.s) 

 For i = 1 To 5 
  
  If UCase(Trim(TabSessions(i)\Nom)) = UCase(Trim(NomSessionChoisie)) 
   ProcedureReturn TabSessions(i)\Adresse 
  EndIf 
  
 Next 
  
 ProcedureReturn 0 
  
EndProcedure 

Define Result.l 
Define Session.l 
NomSessionChoisie.s = "A19"

CreateSession() 
Session = AdresseSession(NomSessionChoisie.s) 
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1) 

; The Variable Result is good 

dhFreeString(Result) 
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1) 
; Error at this line 

[kwai chang caine]

And with this is exactly the same problem
Yet the adress is the same for each time

Code: Alles auswählen

Structure SessionTGC 
 Nom.s[5] 
 Adresse.l[5] 
EndStructure 

Global Dim TabSessions.SessionTGC(5) 

Procedure CreateSession() 
    
 Define Count.l 
 Define SessionEnCours.l 
 Define Name.l 
 SessionTGC = dhCreateObject("Extra.Sessions") 
 dhGetValue("%d", @Count, SessionTGC, ".count") 
  
 For Sess = 1 To Count 
  
  dhGetValue("%T", @Name, SessionTGC, ".item(%d)", Sess) 
  dhGetValue("%o", @SessionEnCours, SessionTGC, ".item(%d)", Sess) 
  TabSessions(Sess)\Nom = PeekS(Name) 
  TabSessions(Sess)\Adresse = SessionEnCours 
  dhFreeString(Name) 
  dhFreeString(SessionEnCours) 
  
 Next 
    
EndProcedure 

Procedure AdresseSession(NomSessionChoisie.s) 

 For i = 1 To 5 
  
  If UCase(Trim(TabSessions(i)\Nom)) = UCase(Trim(NomSessionChoisie)) 
   ProcedureReturn TabSessions(i)\Adresse 
  EndIf 
  
 Next 
  
 ProcedureReturn 0 
  
EndProcedure 

Define Result.l 
Define Session.l 
NomSessionChoisie.s = "ERA191"

CreateSession() 
Session = AdresseSession(NomSessionChoisie.s) 
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1) 

; The Variable Result is good 
Session = AdresseSession(NomSessionChoisie.s) 
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1) 
; Error at this line 

[kwai chang caine]

I found the error ......during i wait your answer, i thinking :

And if i reboot my PC
Nom, i have no error

Excuse me for disturb you
I believed, i have do again an error of code

I never thought of a hard problem

I wish you a very good day.

[ts-soft]

Can you test the code with the puredisphelper_include.pbi?

[kwai chang caine]

Hello TS-Soft.
I am proud to tell you about

A great congratulation for your splendid lib, that save my life
I had a very great need it for my job
Congratulation again

Well, I have found another thing.
It's not for reboot the computer, that the error disappears, but if i close the IBM emulator

My big code, or there is surely a mistake, create the error, and like the second simple code make the same error
It's locked, i can't do anything

The alone solution is close the EXTRA emulator, and open it again and my little simple code (Whatever I have given you) works fine again.

I run my big bad code, and it's again locked ..........
If you have a solution .......

Perhaps a dhFreeString() is missing ???
What you think about that ??

Can you test the code with the puredisphelper_include.pbi?

Where is this include ????

[kwai chang caine]

I found another strange things.
If i launch the emulator with the session A.edp (Its a file configuration)
The simple code works fine.

If i launch the emulator with a RunProgram.
The simple code write the 2 line in the debugger board, but an error appears at the last line Debug PeekS(Result)

Code: Alles auswählen

Structure SessionTGC 
 Nom.s[5] 
 Adresse.l[5] 
EndStructure 

Global Dim TabSessions.SessionTGC(5) 

Procedure CreateSession() 
    
 Define Count.l 
 Define SessionEnCours.l 
 Define Name.l 
 SessionTGC = dhCreateObject("Extra.Sessions") 
 dhGetValue("%d", @Count, SessionTGC, ".count") 
  
 For Sess = 1 To Count 
  
  dhGetValue("%T", @Name, SessionTGC, ".item(%d)", Sess) 
  dhGetValue("%o", @SessionEnCours, SessionTGC, ".item(%d)", Sess) 
  TabSessions(Sess)\Nom = PeekS(Name) 
  TabSessions(Sess)\Adresse = SessionEnCours 
  dhFreeString(Name) 
  dhFreeString(SessionEnCours) 
  
 Next 
    
EndProcedure 

Procedure AdresseSession(NomSessionChoisie.s) 

 For i = 1 To 5 
  
  If UCase(Trim(TabSessions(i)\Nom)) = UCase(Trim(NomSessionChoisie)) 
   ProcedureReturn TabSessions(i)\Adresse 
  EndIf 
  
 Next 
  
 ProcedureReturn 0 
  
EndProcedure 

Define Result.l 
Define Session.l 
NomSessionChoisie.s = "HOST"

CreateSession() 
Session = AdresseSession(NomSessionChoisie.s) 
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1) 
dhFreeString(Result) 
Debug PeekS(Result)
; The Variable Result is good 
Session2 = AdresseSession(NomSessionChoisie.s) 
dhGetValue("%T", @Result, Session,".Screen.Area(%d, %d, %d, %d, %m, %d)", 18, 2, 18, 20, 1) 
dhFreeString(Result) 
; Error at this line 
Debug PeekS(Result)

I don't understand anything

[ts-soft]

Can you test the code with the puredisphelper_include.pbi?

Where is this include ????

Is in the Download: http://www.purebasic.fr/english/viewtop ... 224#191224
See in the PureDisphelper_Include dir in the package! The include Version
have more functions and better frees the memory, i think

greetings
Thomas

[kwai chang caine]

Thanks a lot, for this link.
I go out of my job now
But monday i return to the job

And i try this include and search this error memory
I wish you a good week end, you and the goog KIFFY.

I give you and KIFFY two big french kiss