Canversione BASE64 di un file JPEG

[PM1]

Ecco il codice per codificare con Base64 un "testo":
http://www.nonhostile.com/howto-enco...base64-vb6.asp

Quello che invece devo ottenere è di mettere in una variabile l'intero codice del file JPEG dopo averlo codificato BASE64.

Come faccio a codificare il codice del file JPEG anziché la stringa di testo dell'esempio?
Come apro il file JPEG? con il semplice Open for Input?

Grazie anticipatamente per l'aiuto. Il problema da risolvere è probabilmente molto stupido ma non ci sono proprio arrivato!

[oregon]

Devi aprire il file con la

Open ... For Binary ...

e leggere il file con la

Get #

Ovviamente, leggerai il file dividendolo in porzioni da passare tante volte alla funzione ...

Lo stesso per la decodifica ... andra' usata la Put # per scrivere ...

[PM1]

Ok, ci provo subito.
Grazie!

[Diegus]

una domanda a tal proposito visto ke tempo fa postai una cosa simile anche io:
ma per caricare l'immagine in un controllo Image devo poi per forza salvarla dopo averla decodificata?
Esiste un altro modo per assegarla ad Image.Picture=?

[PM1]

Image.Picture = loadpicture("nome file")

Più o meno è questo quello che uso per caricare un'immagine da file in un controllo "image".
Spero di esserti stato utile. :master:
Ciao.

[Diegus]

ehm non proprio...io intendevo se preso l'array di byte in uscita dalla decodifica posso in qualke modo assegnarlo al controllo Image senza dover salvare l'Immagine ottenuta...

Non so se sono stato + chiaro....

[PM1]

Chiarissimo! Purtroppo le mie conoscenze si esauriscono al caricamento da file.