petr_ch wrote:
>
> Revision: 13048
>
> http://harbour-project.svn.sourceforge.net/harbour-project/?rev=13048&view=rev
> Author: petr_ch
> Date: 2009-11-28 20:18:26 +0000 (Sat, 28 Nov 2009)
>
> Log Message:
> -----------
> 2009-11-28 22:15 UTC+0200 Petr Chornyj (myorg63 at mail.ru)
> * harbour/contrib/hbtip/popcli.prg
> ..
>
Little sample for using ::OpenDigest() and ::Rset()
PROCEDURE main()
LOCAL oPop, nCount, lAutoQuit := .t.
LOCAL cLogin := "Using APOP"
oPopCli := TipClientPOP():New( "pop://user:p...@127.0.0.1", .f. )
oPopCli:nConnTimeout := 12500
IF ! oPopCli:OpenDigest()
oPopCli:Quit()
IF ! oPopCli:Open()
cLogin := "Using USER/PASS"
RETURN
ENDIF
ENDIF
QOut( cLogin )
nCount := oPopCli:countMail()
IF nCount > 1
QOut( "Before DELE ", nCount )
oPopCli:Delete( 1 )
QOut( "After DELE ", oPopCli:countMail() )
oPopCli:Rset()
QOut( "After RSET ", oPopCli:countMail() )
ENDIF
oPopCli:Close( lAutoQuit )
Regards,
Petr
--
View this message in context:
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-13048--trunk-harbour-tp26556610p26556666.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
