[Gambas-user] [CRASH REPORT] CherchMail

[Rolf-Werner Eilert]

Am 13.03.23 um 09:39 schrieb BB:
> @Rolf
> 
> The brackets around literal strings indicates that they are translatable.

Ah ok, I never had a translatable project, just projects for myself, so 
I've never got in touch with this. Interesting! Thanks for the hint!

Rolf

> 
> b
> 
> On 13/3/23 7:00 pm, Rolf-Werner Eilert wrote:
>> Am 11.03.23 um 20:10 schrieb Philippe Valarcher:
>>> Hello,
>>>
>>> Damned, my program crashed Gambas that way :
>>>
>>> Public Function RunPOP(i As Integer) As 
>>> String                                  'alimentation des comptes en 
>>> mails
>>>
>>>     Dim Ligne As Integer, n As Integer, Emails As Integer
>>>     Dim newLast As String, phrase1 As String, phrase2 As String, 
>>> monText As String
>>>
>>>     Module1.serveurPop(i)
>>>     Try Module1.POP.Open 'ouverture de la connexion pop
>>>
>>>     Emails = Module1.POP.count
>>>
>>>     If Emails > 0 Then
>>>        newLast = Module1.POP[Module1.POP.count - 1].UniqueID
>>>        If newLast > MailRecu[i].theLast Then
>>>           If chkBeep.value Then PlayBeep()
>>>        Endif
>>>        monText = 
>>> txtRun.Text                                                ' texte 
>>> des notifications
>>>        phrase1 = ("Serveur : ")
>>>        phrase2 = ("Nombre de Courriel(s) : ")
>>>        monText = Replace(monText, "%p1", phrase1)
>>>        monText = Replace(monText, "%p2", phrase2)
>>>        monText = Replace(monText, "%u", Module1.pop.user)
>>>        monText = Replace(monText, "%s", Module1.pop.host)
>>>        monText = Replace(monText, "%m", CStr(emails))
>>>        AddLog(("Nombre de courriels sur le serveur") & " : " & " [ " 
>>> & Module1.pop.host & " ] " & " : " & Emails)
>>>
>>>        grvw[i].Rows.Count = Module1.POP.Count
>>>
>>>        For n = 0 To Emails - 1
>>>           newLast = Module1.POP[n].UniqueID
>>>           tbstp[i + 1].Text = Accounts[i].Nom & " + " & 
>>> Module1.POP.Count
>>>           ' grvw[i].Columns.Count = 5
>>>
>>>           grvw[i][Ligne, 0].Text = CStr(Module1.POP[n].Message.Sender)
>>>           grvw[i][Ligne, 1].Text = CStr(Module1.POP[n].Message.Subject)
>>>           grvw[i][Ligne, 2].Text = CStr(Module1.POP[n].Message.To)
>>>           grvw[i][Ligne, 3].Text = 
>>> CStr(Module1.POP[n].Message.Headers["Date"])
>>>           grvw[i][Ligne, 4].Text = CStr(Module1.POP[n].Size)
>>>
>>>           Ligne += 1
>>>           MailRecu[i].index = Module1.POP[n].Index
>>>           nbrMail += 1
>>>        Next
>>>
>>>        MailRecu[i].theLast = Module1.POP[Emails - 1].UniqueID
>>>        grvw[i].Tooltip = ("Double-Cliquer sur un message pour le 
>>> visionner")
>>>
>>>     Else
>>>        tbstp[i + 1].Text = Accounts[i].Nom
>>>        With grvw[i]
>>>           .Clear
>>>           .Refresh
>>>           .Rows.Count = 0
>>>           .Columns.Count = 0
>>>           .Tooltip = ""
>>>        End With
>>>     Endif
>>>
>>>     Try Module1.POP.Close
>>>     Try Module1.POP = Null
>>>
>>>     Return monText
>>>
>>> Catch
>>>     TimeRemain = TimeInterval
>>>     Tray.icon = Picture["./icônes/mail.png"]
>>>     Message.Title = ("Horreur!")
>>>     Message(gb.CrLf & ("Une erreur : ") & " RunPOP " & Error.Text & 
>>> gb.CrLf & "Code : " & Error.Code)
>>>
>>> End
>>>
>>> Public Sub tbstp_MouseDown()
>>>
>>>     Module1.son(Module1.shade)
>>>
>>> End
>>> Cette fontion provoque une erreur de segmentation, si je commente les 
>>> cinq lignes avec grvw[i] ça ne plante pas?
>>
>>
>> I tried to answer in French, but my English is better :)
>>
>> What springs into my eye is this:
>>
>> grvw[i].Tooltip = ("Double-Cliquer sur un message pour le visionner")
>>
>> and this:
>>
>> Message(gb.CrLf & ("Une erreur : ") & " RunPOP " & Error.Text &
>> > gb.CrLf & "Code : " & Error.Code)
>>
>> What do you use brackets for in connection with strings? I have never 
>> seen that before.
>>
>> Second of all, is grvw a tableview? You spend a lot of effort in 
>> calling a bunch of its functions to clear, refresh, then set again and 
>> so on. Why not using the tableview's Data event and leave the whole 
>> work to the tableview?
>>
>> I might be wrong here, but it looks as if the tableview expects to be 
>> "not empty/void", such things are easily overseen and have driven me 
>> nuts in the past. This is one point I would start looking for the error.
>>
>> Regards
>> Rolf
>>
>>
>> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
> 
> ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
>