Convertire pdf in base64

di Anonimizzato27429 il
4 risposte
/
Anonimizzato27429
Utente anonimizzato
Buonasera,

ho necessità di convertire un file pdf in base64 per allegarlo a una fattura elettronica tramite visual basic 6. Ho cercato in rete ma senza risultati. Qualcuno può aiutarmi?

4 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Cosa hai cercato in rete che non hai trovato? Ci fai un esempio?
  • /
    Anonimizzato27429
    Utente anonimizzato
    Salve oregon
    Ho trovato questo:

    Sub TestConvert()
    Dim bytes
    Dim B64String
    With CreateObject("ADODB.Stream")
    .Open
    .Type = ADODB.adTypeBinary
    .LoadFromFile "C:\Users\Admin\Desktop\Test.pdf"
    bytes = .Read
    .Close
    End With
    B64String = EncodeBase64(bytes)
    End Sub

    Private Function EncodeBase64(bytes) As String
    Dim objXML As MSXML2.DOMDocument60
    Dim objNode As MSXML2.IXMLDOMElement

    Set objXML = New MSXML2.DOMDocument60
    Set objNode = objXML.createElement("b64")

    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = bytes
    EncodeBase64 = objNode.Text

    Set objNode = Nothing
    Set objXML = Nothing
    End Function

    Sulla riga ".Type = ADODB.adTypeBinary" mi da errore di run-time 424 "Necessario oggetto"
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Il codice nel forum va postato tra tag CODE.

    Comunque, si vede che non usi molto il VB6 ...

    Per quelle librerie esterne devi aggiungere i riferimenti. Da menu Progetto -> Riferimenti seleziona

    Microsoft ActiveX Data Objects 2.8 Library
    Microsoft XML, v6.0
  • /
    Anonimizzato27429
    Utente anonimizzato

    oregon ha scritto:

    Il codice nel forum va postato tra tag CODE.
    Sorry!

    Comunque funziona! Grazie mille davvero!
Devi accedere o registrarti per scrivere nel forum
4 risposte