Hi
Petr Chornyj wrote:
>
> IF ! oPopCli:OpenDigest()
> oPopCli:Quit()
> IF ! oPopCli:Open()
> cLogin := "Using USER/PASS"
> RETURN
> ENDIF
> ENDIF
>
Should be
IF ! oPopCli:OpenDigest()
oPopCli:Quit()
cLogin := "Using USER/PASS"
IF ! oPopCli:Open()
RETURN
ENDIF
ENDIF
Another question about Read()
This code is cryptic and not documented (at least in xHarbour Guide
Reference ).
Very hard to understand from tiptest.prg how it works.
We can easy replace
oPop:Read()
to
oPop:List()
oPop:oUrl:cFile := "-1"
oPop:Read()
=>
oPop:Delete(1)
oPop:Quit()
oPop:oUrl:cFile := "2"
oPop:Read(200)
=>
oPop:Retrieve(2, 200)
How about delete Read()?
Regards, Petr
P.S. Anybody can extend TIPClientPop() with method Read()
CREATE CLASS TIPClientPopWithReadMethod FROM TIPClientPop
METHOD Read( nLen )
ENDCLASS
METHOD Read( nLen ) CLASS TIPClientPopWithReadMethod
RETURN "It's easy"
--
View this message in context:
http://old.nabble.com/SF.net-SVN%3A-harbour-project%3A-13048--trunk-harbour-tp26556610p26560324.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
