**
** wwresponsestring.fxp
**
 SET PROCEDURE TO wwResponse ADDITIVE
ENDPROC
*
DEFINE CLASS wwResponseString AS wwResponse
 coUtput = ""
 PROTECTED cfIlename
 cfIlename = ""
 PROTECTED ldUmptofile
 ldUmptofile = .F.
 PROTECTED chTmlfilename
 chTmlfilename = ""
 PROTECTED ohTmlfile
 ohTmlfile = .NULL.
 nbUffersize = 10000
*
     FUNCTION getoutput
      LPARAMETER llNoclear
      LOCAL lcFile, lcOutput
      IF thIs.ldUmptofile
           thIs.ohTmlfile.deStroy()
           thIs.ohTmlfile = .NULL.
           thIs.ldUmptofile = .F.
           lcOutput = fiLe2var(thIs.chTmlfilename)
           ERASE (thIs.chTmlfilename)
           IF llNoclear
                thIs.coUtput = lcOutput
           ELSE
                thIs.coUtput = ""
           ENDIF
           RETURN lcOutput
      ENDIF
      IF llNoclear
           RETURN thIs.coUtput
      ENDIF
      lcOutput = thIs.coUtput
      thIs.coUtput = ""
      RETURN lcOutput
     ENDFUNC
*
     FUNCTION getoutputnoclear
      RETURN thIs.geToutput(.T.)
     ENDFUNC
*
     FUNCTION WRITE
      LPARAMETER tcText, tlNooutput
      IF tlNooutput .OR. thIs.lnOoutput
           RETURN tcText
      ENDIF
      IF thIs.ldUmptofile
           thIs.ohTmlfile.faStwrite(@tcText)
      ELSE
           IF LEN(thIs.coUtput)<thIs.nbUffersize
                thIs.coUtput = thIs.coUtput+tcText
           ELSE
                thIs.ldUmptofile = .T.
                thIs.ohTmlfile = CREATEOBJECT('wwResponseFile', SYS(2023)+ ;
                                 "\"+SYS(2015)+TRIM(TRANSFORM(RAND()*1000,  ;
                                 '999'))+".tmp")
                thIs.chTmlfilename = thIs.ohTmlfile.cfIlename
                thIs.ohTmlfile.faStwrite(thIs.coUtput+tcText)
           ENDIF
      ENDIF
      RETURN ""
     ENDFUNC
*
     FUNCTION SEND
      LPARAMETER tcText, tlNooutput
      RETURN thIs.wrIte(@tcText,tlNooutput)
     ENDFUNC
*
     FUNCTION FastWrite
      LPARAMETER tcText, tlNooutput
      IF thIs.ldUmptofile
           thIs.ohTmlfile.faStwrite(@tcText)
      ELSE
           IF LEN(thIs.coUtput)<thIs.nbUffersize
                thIs.coUtput = thIs.coUtput+tcText
           ELSE
                thIs.wrIte(@tcText)
           ENDIF
      ENDIF
      RETURN ""
     ENDFUNC
*
     FUNCTION FastSend
      LPARAMETER tcText, tlNooutput
      RETURN thIs.faStwrite(@tcText,tlNooutput)
     ENDFUNC
*
     PROCEDURE CLEAR
      IF thIs.ldUmptofile
           thIs.ohTmlfile.deStroy()
           thIs.ohTmlfile = .NULL.
           IF  .NOT. EMPTY(thIs.chTmlfilename)
                ERASE (thIs.chTmlfilename)
           ENDIF
      ENDIF
      thIs.ldUmptofile = .F.
      thIs.ohTmlfile = .NULL.
      thIs.coUtput = ""
     ENDPROC
*
     PROCEDURE Rewind
      thIs.clEar()
     ENDPROC
*
     PROCEDURE DESTROY
      IF thIs.ldUmptofile
           IF  .NOT. ISNULL(thIs.ohTmlfile)
                thIs.ohTmlfile.deStroy()
           ENDIF
           ERASE (thIs.chTmlfilename)
      ENDIF
     ENDPROC
*
     PROCEDURE INIT
      LPARAMETER lcReserved
     ENDPROC
*
ENDDEFINE
*
DEFINE CLASS wwResponseStringNoBuffer AS wwResponse
 coUtput = ""
*
     FUNCTION getoutput
      LPARAMETER llNoclear
      LOCAL lcFile, lcOutput
      IF llNoclear
           RETURN thIs.coUtput
      ENDIF
      lcOutput = thIs.coUtput
      thIs.coUtput = ""
      RETURN lcOutput
     ENDFUNC
*
     FUNCTION getoutputnoclear
      LOCAL lcFile
      RETURN thIs.coUtput
     ENDFUNC
*
     FUNCTION WRITE
      LPARAMETER tcText, tlNooutput
      IF tlNooutput .OR. thIs.lnOoutput
           RETURN tcText
      ENDIF
      thIs.coUtput = thIs.coUtput+tcText
      RETURN ""
     ENDFUNC
*
     FUNCTION SEND
      LPARAMETER tcText, tlNooutput
      RETURN thIs.wrIte(@tcText,tlNooutput)
     ENDFUNC
*
     FUNCTION FastWrite
      LPARAMETER tcText, tlNooutput
      thIs.coUtput = thIs.coUtput+tcText
      RETURN ""
     ENDFUNC
*
     PROCEDURE Rewind
      thIs.clEar()
     ENDPROC
*
     PROCEDURE CLEAR
      thIs.coUtput = ""
     ENDPROC
*
     PROCEDURE INIT
      LPARAMETER lcReserved
     ENDPROC
*
ENDDEFINE
*