Luis Yo lo leo invocando a esta function, y ya lo regresa convertido a base64
cNewArc:=xlee(cAcrZip)
//----------------------------------- Funcion para Leer ZIP ------------------------------------//
function xlee(hsource)
local hTarget
local cBuffer := Space(4000)
local nBytes, nFile := 0, nTotal := 0
local nTotSize := 0
local nBufsize:=4000
local xfile:=""
hSource = FOpen( hsource)
while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0
xfile:=xfile+left(cbuffer,nBytes)
end
FClose( hSource )
FClose( hTarget )
xfile:=StrToBase64(xfile)
return xfile
↧