Uso dell'Application State

[katrina]

Una volta inserite delle variabili in Application, è possibile usarle non in una pagina, ma in una classe?

Io ho provato:
Public class prova
inherits page

function () as object
return Application("var")
end function

ma l'errore é:
"Riferimento a un oggetto non impostato su istanza di oggetto."
In altre parole Application è a nothing.

Grazie.

[cassano]

lai istanziata prima ???

[katrina]

Nel Global.asax ho scritto:

Application("var")="stringa di prova"

nella sub di Application_Start.

E' questo che intendi?

[Legnetto]

Prima di tutto valuta sempre che l'oggetto che stai per utilizzare non sia Nothing perchè, se il server è a corto di risorse(ram)le prime cose che spiana sono le Application e, anche se scade la sessione vengono cancellate(insieme alle varibili di sessione).
Detto questo una volta effettuato il controllo di cui sopra, dovresti fare la conversione dell'oggetto che stai recuperando.
Cioè:

CType(Application("var"), String)

Dopo aver fatto questo, come giustamente ti ha chiesto cassano, se l'hai istanziata non dovresti aver problemi, altrimenti devi prima assegnarle un valore.
Ciao
Legnetto

[katrina]

La conversione di tipo l'avevo già provata,ma non funziona comunque!
Non capisco proprio quale sia il problema.
Credevo che le variabili di applicazione fossero "semplici" come quelle di sessione:le crei quando assegni loro in valore e poile sui dove ti serve.

Non è che per caso devo importare qualche namespace (tipo HTTPApplicationState o HTTPContext)?
Anche se ci ho provato ma poi non so che farmene...
:master:

[katrina]

(...)Credevo che le variabili di applicazione fossero "semplici" come quelle di sessione:le crei quando assegni loro in valore e poile sui dove ti serve.(...)

Scusate i refusi,dovuti alla fretta.
Ovviamente volevo scrivere:
(...)Credevo che le variabili di applicazione fossero "semplici" come quelle di sessione:le crei quando assegni loro un valore e poi le usi dove ti serve.(...)

[Legnetto]

In effetti le variabili application sono esattamente come le hai descritte solo che in genere funzionano.....
Io importo nei file.vb sia per le classi che per i code questi namespace.

Imports System
Imports System.IO
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Configuration
Imports System.Data
Imports System.Data.Common
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Resources
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Threading
Imports System.Web
Imports System.Web.Caching
Imports System.Web.Security
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Drawing

con questi funziona di sicuro, anche se quello interessato dovrebbe essere se non sbaglio "System.Web.UI".
Ciao
Legnetto

[katrina]

Ho provato con le importazioni dei namespaces che mi hai suggerito, ma non ha funzionato.
Tra l'altro credo che System.Web.UI si riferisca solo all'interfaccia.

Ho risolto, invece, in questo modo:

GLOBAL.ASAX--------------------------------------------------------

'Creo una variabile di applicazione:

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)

Application.Add("stringa", "evviva!")

end Sub

CLASS1.VB-----------------------------------------------------------

Imports System.Web.HttpApplication
Imports System.Web.HttpApplicationState
Imports System.Web.HttpContext


Public Class Class1
Inherits System.Web.UI.Page


Function leggi() As String

'Così riesco a ottenere un riferimento allo stato della mia applicazione e
'quindi anche alle variabili che contiene

Dim myHttpContext As HttpContext = HttpContext.Current

Dim myHttpApplication As HttpApplication = myHttpContext.ApplicationInstance

Dim state As HttpApplicationState = myHttpApplication.Application


Return CType(state.Item("stringa"), String)


End Function
End Class


WEBFORM1.ASPX.VB------------------------------------------------------

Public Class WebForm1
Inherits System.Web.UI.Page




Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim class1obj As New Class1

'Il form contiene solo una textbox TextBox1
TextBox1.Text = class1obj.leggi()


End Sub

End Class

[Legnetto]

L'importante è risolvere...
Ciao