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]
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