Passaggio Path per inserimento Immagine

giovedì 12 giugno 2008 - 11.55

AleMac Profilo | Newbie

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

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

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

>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
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 !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5