Código: Selecionar todos
cFile:=memoread("foto.jpg")
cContent := strtohex(cFile)
replace campo with cContent
Código: Selecionar todos
cFile := campo
memowrit('meuarquivo',hextostr(cFile))
Código: Selecionar todos
Function Base64Decode( cFile, cData )
Local oEncoder
Local nHandle
Local result := .t.
oEncoder := TIPEncoder():New( "base64" )
if (nHandle := FCreate(cFile)) != -1
cData := oEncoder:Decode(cData)
FWrite(nHandle, cData)
FClose(nHandle)
else
result := .f.
endif
return result
Function Base64Encode( cFile, cData )
Local oEncoder
Local cBuffer := Space(1024)
Local nHandle
Local nLen
Local result := .t.
oEncoder := TIPEncoder():New( "base64" )
if (nHandle := FOpen(cFile)) != -1
cData := ""
nLen := FRead( nHandle, @cBuffer, 1024 )
do while nLen > 0
if nLen < 1024
cData += Substr( cBuffer, 1, nLen )
else
cData += cBuffer
endif
nLen := FRead( nHandle, @cBuffer, 1024 )
enddo
cData := oEncoder:Encode(cData)
FClose(nHandle)
else
result := .f.
endif
return result