Passaggio Path per inserimento Immagine

giovedì 12 giugno 2008 - 11.55

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

AleMac Profilo | Newbie

11 messaggi | Data Invio: gio 12 giu 2008 - 11:55

Salve a tutti,
Riguardo al post:

http://www.dotnethell.it/tips/Crystal-Reports-BLOB.aspx

mi potreste dare una mano per convertilo in vb6, sto usando CR 8.

Grazie
Ale

freeteo Profilo | Guru

6.542 messaggi | Data Invio: gio 12 giu 2008 - 17:52

672_CR-img-vb6.zip

ciao,
ti allego l'esempio tradotto, come vedi è praticamente uguale solo che usa sintassi e oggetti di vb6

ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

AleMac Profilo | Newbie

11 messaggi | Data Invio: ven 13 giu 2008 - 11:59

Grazie mille freeteo!!
Problema risolto!!

Ho un po' modificato la GetFile, perchè mi dava dei problemi, dato che l'oggetto CR...Viewer è in un form separato(segue codice modificato):

Public Function GetFileImage(path As String) As Byte()
Dim nf As Integer

nf = FreeFile
Open path$ For Binary As #nf

GetFileImage = Space$(LOF(nf))
Get #nf, , GetFileImage

Close #nf

End Function

'/frmStampa
strPathImg = daEnv.rsQ_Loop!PathImg 'Path del file img
daEnv.rsQ_Scrittura!STP_PathImage = GetFileImage(strPathNotaBolletta)

Grazie di nuovo
Ale

freeteo Profilo | Guru

6.542 messaggi | Data Invio: ven 13 giu 2008 - 14:50

>Grazie mille freeteo!!
>Problema risolto!!
ok, perdona per il codice ma di vb6 non faccio niente da molti anni e quindi sono abbastanza "anchilosato" sul codice...

ciao.

Matteo Raumer
[MCAD .net]
http://blogs.dotnethell.it/freeteo

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !