Dear friends, I need hbtipssl.lib. It is not in the official Harbour distribution. I already searched this forum but I haven't found a clear answer.
EMG
-env:HB_TIP_OPENSSL=yes
hbtip.hbp
#include "Fivewin.ch"
FUNCTION MAIN()
GETMAIL( cServer, cUser, cPassword )
RETURN NIL
STATIC FUNCTION GETMAIL( cServer, cUser, cPassword )
LOCAL lOk := .F.
LOCAL oCli
oCli = TIPClientPOP():New( "pop://" + cUser + ":" + cPassword + "@" + cServer )
oCli:oUrl:cUserid = cUser
oCli:nDefaultPort = 995
oCli:lSSL = .T.
? oCli:Open()
? oCli:CountMail()
oCli:Close()
RETURN lOk
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 46 guests