project BLF > class TDocumentLink > method ReadHandler

Internal usage

program code (program1/tdocumentlink.p)

viBytes = vhWebdavSocket:get-bytes-available().
if viBytes > 0
then do:
    set-size (vmResponse) = viBytes + 1.
    vhWebdavSocket:read( vmResponse,1,viBytes,1).
    vcWebdavResponse = get-string (vmResponse,1).
    set-size (vmResponse) = 0.
end.