Início
Olá a todos,
Partilho exemplo para codificar ficheiro no formato Base64.
Abraço
Partilho exemplo para codificar ficheiro no formato Base64.
- Código:
Public Function ConvertFileToBase64(strFilePath As String) As String
'Alvaro Teixeira (ahteixeira) 2018 para MaximoAccess
'Origem: https://medium.com/cainhill/how-to-use-vba-to-convert-a-file-to-base-64-d124c9b2958a
'Requer referencia Microsoft XML library
Const UseBinaryStreamType = 1
Dim streamInput: Set streamInput = CreateObject("ADODB.Stream")
Dim xmlDoc: Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Dim xmlElem: Set xmlElem = xmlDoc.createElement("tmp")
streamInput.Open
streamInput.Type = UseBinaryStreamType
streamInput.LoadFromFile strFilePath
xmlElem.DataType = "bin.base64"
xmlElem.nodeTypedValue = streamInput.Read
ConvertFileToBase64 = Replace(xmlElem.Text, vbLf, "")
Set streamInput = Nothing
Set xmlDoc = Nothing
Set xmlElem = Nothing
End Function
Abraço
- Anexos
ConverterFicheiroParaBase64.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (28 Kb) Baixado 112 vez(es)