Newsgroup: it.comp.lang.visual-basic
Titolo: Help > ASP e DLL

Ciao a tutti,
è la prima volta che posto un messaggio in questo newsgroup.
Spero che qualcuno mi dia una mano a risolvere il problema.
Premetto che ho iniziato da poco a utilizzare VB.
Allora vi dico il problema.
Sto realizzando delle pagine in .asp che pescano i dati da un database.
Per alcune informazioni ho la necessità di creare dei grafici al volo e così
ho deciso di provare a farmi una dll che dopo aver ricevuto una matrice
contenente i valori, crea un grafico al volo, me lo salva in formato .bmp
(al momento non sono ancora riuscito a salvarlo in .gif, .jpg, o altro) e me
lo mostra all'interno della pagina.
Per la realizzazione della dll ho proceduto così:
- Aperto VB 6 > Nuovo Progetto > DLL ActiveX
Linkato il componente del Ms Chart da
- Progetto > Componenti > Microsoft Chart Control 6
-Nominato il Progetto VB in GraficoIxiber
- Inserito un form chiamato Form2 dove ho messo il controllo MsChart
chiamato "graf2" ed un controllo Image chiamato Image3
-Inserita una classe dal Nome "CreaGrafico"
ed all'interno di questa ho inserito il codice seguente
############################
Sub Grafico()
Dim x, y As Long
Dim num As Long
Dim row As Long
   For x = 1 To 13
    Form2.graf2.row = x
    Form2.graf2.RowLabel = x
   Next x
    num = Form2.graf2.ColumnCount
    row = Form2.graf2.RowCount
On Error GoTo errGrafico
For x = 1 To num
   Form2.graf2.Column = x
    For y = 1 To row
        Form2.graf2.row = y
        Form2.graf2.Data = Int((100 * Rnd) + 1)
    Next y
Next x
Form2.graf2.EditCopy
Form2.Image3.Picture = Clipboard.GetData()
SavePicture Form2.Image3.Picture, "C:\grafico\temp\grafico.bmp"
errGrafico:
    Exit Sub
End sub
##################
Dopo ho salvato tutto, e creato la dll. Nella pagina asp ho inserito il
seguente codice:
<%
Set ObjReference = Server.CreateObject("GraficoIxiber.CreaGrafico")
'Chiamata alla sub della Dll
ObjReference.Grafico()
%>
Ma il risultato che ricevo quando lancio la pagina è:
------------------------------------
GraficoIxiber errore "800a01a8"
Object required
grafico.asp, riga 12
------------------------------------
La riga 12 corrisponde alla chiamata della Sub.
La prova l'ho fatta con il Personale Web Server.
Sicuramente c'e' qualche errore ma non riesco a capire.
Grazie a tutti.
Ix

 ------------------------------------
Domanda stupida (il messaggio dovrebbe essere diverso), hai registrato la
dll?
Ciao

 Ciao
Ciao

 Ciao
Grazie per la segnalazione... non avrei ricontrollato ancora...
Ciao

 Un problema di permessi?? Che significa??
Ok, ho risolto!!! :)))))
Il problema erano i permessi sulla cartella di esecuzione.
Non ricordavo che anche su PWS si dovessero settare i permessi.
Grazie comunque!!!
Ciao Ix

 wrote in message
news:D9M17.9817$eB4.3...@news.infostrada.it...


 ...se scopri qualcosa fammi sapere:)
beh.. ti dirò.. io penso di aver trovato un hack ma non credo sia legale
p.s. è inutile che insisti. non te lo dico :)
p.p.s con il createobject remoto sul tuo pc si potrebbe fare ma il pc deve
stare acceso.. con un sistema complesso di controlli magari fai un cross-pc
di quelli da denuncia :)
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

Fibia FBI ha scritto:
[snip]
[censura]
Ingegnoso ... :) 
La vedo pero' un po' male come prestazioni ... :(
ciao, hal

 ha scritto nel messaggio
news:vyl27.28220$cd.1...@news1.tin.it...


 ...se scopri qualcosa fammi sapere:)
Se scopro qualcosa ti faò sapere.
Ciao Ix

 La vedo pero' un po' male come prestazioni ... :(
eheh..
battezzo questa soluzione "il morto che dorme sotto il ponte" :)
