[Gambas-user] segmentation fault (11)

[philippe valarcher]

Bonjour,

this function causes a segmentation error (11) and I do not understand why.
Can we help?


Public Function TestServeur() As Boolean 'test des paramètres de compte


Dim POP1 As Pop3Client

Dim rep As Boolean


rep = False

POP1 = New Pop3Client

POP1.host = txtServer.Text

POP1.User = txtUser.text

POP1.Password = txtPass.text

POP1.port = txtPort.text

POP1.Encrypt = IIf(chkSSL.value, 1, 0)


Try POP1.Open


If Not Error Then

POP1.Close

Message.Warning(("La connexion au serveur ") & " < " & POP1.host & " > " &
(" est efficiente."))

rep = True

Else

Message.Warning(("La connexion au serveur ") & " < " & POP1.host & " > " &
(" a échouée."))

rep = False

Endif

POP1 = Null

Return rep


End



Cordialement.

Philippe Valarcher
valaquarus at gmail.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20190215/4891bb16/attachment.html>