компилируется как: 
  
 call c:\MiniGUI\Batch\Compile.bat GrippMail /l tip 
  
 --------- дальше собственно код -------- 
  
 local oMail, cUrl, oUrl, oClient, txt 
  
 cUrl := "pop://gripptest:gripptest@26.188.255.166" 
  
 if empty( alltrim( cUrl ) ) 
   MsgInfo( "Invalid (empty) URL: " + cUrl ) 
   Return Nil 
 endif 
  
 oUrl := tURL():New( cUrl ) 
  
 if empty( oUrl ) 
   MsgInfo("oUrl -- Invalid URL : [ " + cUrl + " ]") 
   Return Nil 
 else 
   MsgInfo("oUrl created!") 
 endif 
  
 oClient := TIpClientPop():new( oUrl ) 
  
 if empty( oClient ) 
   MsgInfo("oClient -- Invalid URL : [ " + cUrl + " ]") 
   Return Nil 
 else 
   MsgInfo("oClient created!") 
 endif 
  
 oClient:nConnTimeout := 2000    //:= 20000 
 oUrl:cUserid := strtran( oUrl:cUserid, "&at;", "@" )  
  
 if oClient:Open() 
  
   if empty( oClient:cReply ) 
     MsgInfo( "Connecting to " + oUrl:cProto + "://" + oUrl:cServer + CRLF + ; 
                 "Connection status: <connected>" ) 
   else 
     MsgInfo( "Connecting to " + oUrl:cProto + "://" + oUrl:cServer + CRLF + ; 
                "Connection status: " + oClient:cReply ) 
   endif 
  
   txt := "oClient:isOpen = " + iif( oClient:isOpen, ".T.", ".F." ) 
   MsgInfo( txt ) 
  
   // в моем случае (пока) дает "-1" и "0" 
   txt := "oClient:nLength = " + ltrim(str( oClient:nLength )) + CRLF + ; 
          "oClient:nRead = " + ltrim(str( oClient:nRead )) 
   MsgInfo( txt ) 
  
   // в моем случае дает "+ОК " + (кол-во писем) + (кол-во октетов)(длина) 
   txt := "oClient:Stat() = " + oClient:Stat() 
   MsgInfo( txt ) 
  
   // дает как строку (для всех писем через CRLF): 
   // ("номер письма" "длина") (типа "1 32452" + CRLF ) 
   txt := "oClient:List() = " + CRLF + oClient:List() 
   MsgInfo( txt ) 
  
   txt := "Количество писем в ящике ( oClient:countMail ): " + ; 
          ltrim(str( oClient:countMail ))     // почему-то дает на 1 больше 
   MsgInfo( txt ) 
  
   // запрашивает "unique ID" (без параметра - _всех_ писем) 
   // возвращает строку (разделенную CRLF - если _всех_ писем) 
   // (внутри подстроки - в виде 
   //   "1 MD50000000001:MSG:18386:30041174:1176554496" ) 
   txt := "oClient:UIDL( ) = " + CRLF + oClient:UIDL( ) 
   MsgInfo( txt ) 
   // для одного письма возвращает только UIDL ( "MD5..." ) 
   txt := "oClient:UIDL( 1 ) = " + CRLF + oClient:UIDL( 1 ) 
   MsgInfo( txt ) 
  
   // METHOD Read( nLen ) CLASS tIPClientPOP 
   // ... 
   // RETURN ::Retrieve( Val( ::oUrl:cFile ), nLen ) 
  
   txt := 'valtype( oClient:Read( 1 ) ) = "' + valtype( oClient:Read( 1 ) ) + '"' 
   MsgInfo( txt ) 
  
   // пытаемся получить текст определенного письма (1-го) 
   txt := "oClient:Read( oClient:UIDL( 1 ) ) = " + CRLF + ; 
          "--- start --" + CRLF + ; 
          oClient:Read( oClient:UIDL( 1 ) ) + CRLF + ; 
          "--- finish ---" 
   MsgInfo( txt ) 
   // ? выдает то же, что и по List() 
   // ? как прочитать конкретное письмо, имея его UIDL ?? 
  
   /* 
   // через Retrieve (2-е письмо, первые 100 байт) 
   txt := "oClient:Retrieve( 2, 100 ) = " + CRLF + ; 
          "--- start --" + CRLF + ; 
          oClient:Retrieve( 2, 100 ) + CRLF + ; 
          "--- finish ---" 
   MsgInfo( txt ) 
   // "Касперский Мэйл-Диспетчер" возбудился - 
   //   т.е. письмо действительно получили 
   // но... полученное через Retrieve - пустая строка (??) видать, это объект 
   */ 
  
   /* 
   // через Retrieve (2-е письмо, все целиком сколько ни есть) 
   txt := "oClient:Retrieve( 2 ) = " + CRLF + ; 
          "--- start --" + CRLF + ; 
          oClient:Retrieve( 2 ) + CRLF + ; 
          "--- finish ---" 
   MsgInfo( txt ) 
   // "Касперский Мэйл-Диспетчер" возбудился - 
   //   т.е. письмо действительно получили 
   // но... полученное через Retrieve - пустая строка (??) видать, это объект 
   */ 
  
   // через Retrieve (2-е письмо, все целиком сколько ни есть) - смотрим тип 
   txt := 'valtype( oClient:Retrieve( 2 ) ) = "' + ; 
          valtype( oClient:Retrieve( 2 ) ) + '"' 
   MsgInfo( txt ) 
   // тип - "С" 
      
   // ... тут эксперимент прервал, ибо жрать охота и домой пора 
  
   // закрываем сессию (обязательно!) 
  
   oClient:Quit()    // см. HBTIP\POPCLI.PRG 
   // а так - не вылетает! (все завершается чисто... вроде бы...) 
  
   oClient:Close() 
  
   MsgInfo( "Session closed." + CRLF + "Done: " + ; 
            iif( empty( oClient:cReply ), ; 
                 "(no goodbye message)", ; 
                 'goodbye message "' + oClient:cReply + '"' ) ) 
  
 else 
  
   if empty( oClient:cReply ) 
     MsgInfo( "Can't open URI " + cUrl ) 
   else 
     MsgInfo( "Can't open URI " + cUrl + CRLF + ; 
              'oClient:Reply = "' + oClient:cReply + '"') 
   endif 
  
 endif 
  
 MsgInfo( "That's all folks!" ) 
  
 oMail := .F. 
 cUrl := .F. 
 oUrl := .F. 
 oClient := .F. 
  
 ---------- конец собственно кода -------------

/* from xHarbour Language Reference Guide (bundled with xHarbour) 
    Class Reference -> TIpClientPop 
  
    GAL - only reformatting and commenting 
 */ 
  
 // The example outlines the steps required for retrieving all 
 // eMails from a POP mail server and how to decompose 
 // incoming mail messages. 
  
 ////#include "minigui.ch"   // GAL 
  
 /// GAL (from "\MiniGUI\Harbour\doc\xhb-diff.txt") 
 #ifndef __XHARBOUR__ 
    #include "xhb.ch" // add xHarbour emulation to Harbour 
 #endif 
  
 PROCEDURE Main 
  
   LOCAL oPop, oPart, aParts, oTIpMail, aEmails, i 
  
   // GAL 
   Local cTmp, aTemp, nMsgs, aItem 
         cSaveFolder := CurDrive() + ":\" + CurDir() + "\tmp\" // куда сохранять 
  
   set color to "w/b, n/w" 
   cls 
  
   //oPop := TIpClientPop():new( "pop://mailaccount:password@pop.server.com" ) 
   oPop := TIpClientPop():new( "pop://gtest:gtest@26.188.212.164" ) 
  
   IF .NOT. oPop:open() 
     ? "Connection error:", oPop:lastErrorMessage() 
     clear type 
     inkey(0) 
     QUIT 
   ELSE 
     //// GAL 
     ? "Connection OK" 
     cTmp := oPop:List() 
     if ! empty( cTmp ) 
       cTmp := strtran( cTmp, chr(13)+chr(10), "|") 
       aTemp := Hb_atokens( cTmp, "|") 
       if empty( atail( aTemp ) )         // List() returns value greater on 1 
         aTemp := asize( aTemp, len( aTemp ) - 1 ) 
       endif 
       nMsgs := len( aTemp ) 
       ? "nMsgs = " + str( nMsgs ) 
     else 
       ? "No mails" 
     endif 
     ? "oPop:countMail() = " + str( oPop:countMail() )    // return as "List()" 
                                                          // (greater on 1) 
     //// 
  
     //aEMails := oPop:retrieveAll()     GAL commented 
  
     //// GAL 
     aEmails := array( nMsgs ) 
     for i:=1 to nMsgs 
       aItem := Hb_atokens( aTemp[ i ], ' ') 
       oPop:Reset() 
  
       //cTmp := oPop:Retrieve( val( aItem[1] ), val( aItem[2] ) ) 
  
       cTmp := oPop:Retrieve( val( aItem[1] ) ) 
                           // as in POPCLN.PRG - "RetrieveAll()" (without 2nd) 
       aEmails[ i ] := TIpMail():new() 
       aEmails[ i ]:FromString( cTmp ) 
  
 /* тут вылетает 
  
 Called from HB_REGEX(0) 
 Called from TIPMAIL:GETFIELDOPTION(195) in .\mail.prg 
 Called from TIPMAIL:FROMSTRING(432) in .\mail.prg 
 Called from MAIN(70) in test2.prg 
  
 --- см. в Roberto'вской (! там правильно по NN строк) HBTIP 
  
 TIPMAIL:GETFIELDOPTION(195) 
       aMatch := HB_Regex( ";\s*" + cOption +"\s*=\s*([^;]*)", cEnc, .F. ) 
  
 TIPMAIL:FROMSTRING(432) 
     // se if we have subparts: 
 431 IF At( "multipart/", Lower( ::GetFieldPart( "Content-Type" ) ) ) > 0 
 432   cSubBoundary := ::GetFieldOption( "Content-Type", "Boundary" ) 
  
 */ 
     next i 
     //// 
  
     oPop:close() 
     clear type 
     inkey(0) 
     //QUIT    // GAL    досюда доходит нормально 
                   // (если не "разбирать" письма через :FromString(), а просто надо список) 
   ENDIF 
 

PROCEDURE main()  
    LOCAL oPop, nCount, lAutoQuit := .t.  
    LOCAL cLogin := "Using APOP"  
      
    oPopCli := TipClientPOP():New( "pop://user:pass@127.0.0.1", .f. )  
    oPopCli:nConnTimeout := 12500  
  
    IF ! oPopCli:OpenDigest()  
       oPopCli:Quit()  
       cLogin := "Using USER/PASS"  
       IF ! oPopCli:Open()  
          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 )