Example how to put de email from classe tpop3 in a database

[JoseCarlos]

Hi

I test de class TPop3 and it works fine but i am with difficulty to separate the information for places them in dbf . The data of the email arrive all meetings and are with difficulty of separate them.

Somebody can help me with an example ?

[JoseCarlos]

Anybody knows ?

[StefanHaupt]

Jose,

you can save the email into a ascii-file and then parse this file into an array. This array you can easily save in a dbf.

This is a sample to do it, depending on the fileformat you have change it, to fit your needs.

Code: Select all

oFile := TTxtFile():New (aFile[i])
IF oFile != nil

  DO WHILE !oFile:lEof()          // lesen bis Dateiende
       cTmp := oFile:ReadLn()      // Zeile lesen

       IF !EMPTY (cTmp)                  // Leer ??

         IF AT (":",cTmp) > 0            // Neuer Abschnitt ?
           cSection := ParseStr (1,":",cTmp)
           cData := ALLTRIM (ParseStr (2,":",cTmp))
           cData := IIF (EMPTY (cData), "", cData)  // nil-Werte abfangen

           DO CASE
           CASE "RETURN" $ UPPER (cSection)
             aMsg[RETURN_PATH] := cData
           CASE "DATE" $ UPPER (cSection)
             cData+=ParseStr(3,":",cTmp)   // Uhrzeit ber

[JoseCarlos]

Stefan

Thank's for answering

Funtion "ParseStr" was not found. It could describes it?

[StefanHaupt]

Jose,

You replace ParseString with StrToken that comes from fivewin

FUNCTION PARSESTR ( <nOccurrence>, <cSepChar>, <cText> )
RETURN (StrToken( <cText>, <nOccurrence> ,<cSepChar> ) )

Stefan

[JoseCarlos]

Thank's Stefan