FUNCTION ReturnEncodedDBF ******************************************** * Creates an encoded string from the * currently selected cursor and sends it ******************************************** LOCAL lcDBF, loIP, llHasMemo, lcEncodedString IF EMPTY(ALIAS()) RETURN .F. ENDIF SET CLASSLIB TO d:\westwind\classes\wwIPStuff ADDI oIP = CREATEOBJECT('wwIPStuff') lcDBF = RIGHT(SYS(2015), 8) + ".dbf" COPY TO (lcDBF) lcMemo = FORCEEXT(lcDBF, "fpt") llHasMemo = FILE(lcmemo) lcEncodedString = oIP.EncodeDBF(lcDBF, llHasMemo) THIS.Send(lcEncodedString) ERASE (lcDBF) ERASE (lcMemo) ENDFUNC