Come trovare le informazioni del sistema

Nei sistemi Win32, esiste l’API GetVersionEx che restituisce le informazioni nella struttura OSVERSIONINFO. Quindi possiamo guardare i valori di tutti i vari campi della struttura ed analizzare tutto (o quasi!!) del sistema operativo in esecuzione.

Il Framework 2005 ci fornisce la classe Environment. Questa classe contiene un metodo chiamato OSVersion che restituisce l’oggetto OperatingSystem. Quest’oggetto può essere utilizzato per fornire informazioni sulla versione del sistema.

Come ottenere l’oggetto OperatingSystem

La classe OperatingSystem contiene tre proprietà: 

1. Platform: restituisce il valore del PlatformID.Ha tre differenti valori.

• Win32NT àWindows NT

• Win32Windows à Windows 95 o superiore

• Win32S à Win32s è in esecuzione su una versione a 16-di Windows.

2.      CSD: questa proprietà indica il numero Corrected Service Diskette del sistema operative o in alter parole la stringa che rappresenta la service pack installata.

3. Version: Restiruisce la versione. Questa classe è vuota, ma la classe Version standard usata per indicare la versione di qualsiasi assembly in .NET definisce un insieme di valori indicati come Major.Minor.Revision.Build. La classe Version contiene, infatti, 4 proprietà che restituiscono completamente le informazioni del sistema operativo.

• Major – Numero della Major Version

• Minor - Numero della Minor Version

• Revision - Numero della Revision

• Build - Numero della Build

Cosa significano questi valori???

Combinando tre dei valori restituiti otterremo l’esatta versione del sistema operative utilizzato. Nella tabella seguente elenco i possibili risultati che possiamo ottenere dalla combinazione dei valori ottenuti.

Nel codice seguente invece una breve descrizione Following a small sample from the class that shows the use of Environment class in System namespace.

Dim os As OperatingSystem = Environment.OSVersion
' Prendiamo le informazioni della versione
Dim vs As Version = os.Version
Private Me.m_nMajorVer = vs.Major
Private Me.m_nMinorVersion = vs.Minor
Private Me.m_nRevision = vs.Revision
Private Me.m_nBuildNumber = vs.Build
' Prendiamo le informazioni della service pack
Private Me.m_strServicePack = os.ServicePack

Ciao

Ivan

Molto spesso abbiamo bisogno di inserire oggetti (immagini, file di testo, filmati Flash, ecc …) e di richiamarli in fase di esecuzione. Il problema può essere risolto in due modi:

1 – Portandoci dietro il file originale;

2 – Includendo il file nel nostro progetto e compilarlo con esso.

La prima soluzione non staremo qui a spiegarla e presteremo molta attenzione alla seconda soluzione.

Il framework .NET (già dalla versione 1.1) ci permette di memorizzare, all'interno di un progetto, qualsiasi tipo di file.
Per fare ciò è necessario:

1) importare il file all'interno del progetto utilizzando il menù Project\Add Existing Items;

2) selezionare il file all'interno del Solution Explorer e impostare tra le proprietà la Build Action come Embedded Resource;

In questo modo il nostro file EXE verra compilato direttamente don il progetto.

A questo punto non ci rimane altro che richiamare il file in fase di esecuzione. Per fare questo possiamo utili il codice seguente:

Private bmStop As Bitmap

Dim a As Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
bmStop = New Bitmap(a.GetManifestResourceStream( "NamSpaceRadice.NomeFile.Est"))

NameSpaceRadice è il nome del namespace root dell'assembly mentre NomeFile.Est è il nome del file inserito nel progetto.

N.B.

Il metodo GetManifestResourceStream genera un'eccezione se il file e di dimensioni superiori ai 2GB

Ciao

Ivan

Inviare e-mail nel Framwork 2.0 è quasi la stessa cosa della versione 1.0. Ci sono solo un paio di varianti.

La prima differenza è ne fatto che tutte le funzionalità sono incluse nel nuovo namespace System.Net.Mail e non più nel System.Web.Mail.

L'altra è da cercare nel codice seguente:

MailMessage oMsg = new MailMessage();
//Imposta il mittente
oMsg.From = new MailAddress("ivan.gentile@sbsoft.it", "Ivan Ufficio");
//La proprietà .To è una collezione di destinatari,
//quindi possiamo addizionare quanti destinatari vogliamo.
oMsg.To.Add(new MailAddress("ivan.gentile@libero.it","Ivan Casa"));
//Imposto oggetto
oMsg.Subject = "Prova E-Mail via .Net";
//Imposto contenuto
oMsg.Body = "Ci sono riuscito!!!";
oMsg.IsBodyHtml = true;
//Imposto il Server Smtp
SmtpClient oSmtp = new SmtpClient("smtp.server.com");
//Possiamo impostare differenti metodi di spedizione.
//Imposta consegna diretta.
oSmtp.DeliveryMethod = SmtpDeliveryMethod.Network;
//Alcuni Server SMTP richiedono l'accesso autenticato
NetworkCredential oCredential = new NetworkCredential("username","password");
oSmtp.UseDefaultCredentials = false;
oSmtp.Credentials = oCredential;
//Spediamo la mail
oSmtp.Send(oMsg);

Consiglio di impostare tutto in un blocco Try Catch dal momento che i motivi che generano eccezzioni sono diversi come: indirizzo e-mail errato, errori di autentificazione, problemi di rete, ecc...

Per chi volesse utilizzare questo codice in ASP.Net:

Dim oMsg As MailMessage = New MailMessage()

oMsg.To.Add(ivan.gentile@sbsoft.it)

oMsg.From = New MailAddress(ivan.gentile@sbsoft.it)

oMsg.Subject = "Prova"

oMsg.Body = "FATTO!!!"

Dim oSmtp As SmtpClient = New SmtpClient("smtp.server.com")

oSmtp.Send(oMsg)

Ivan

Può accadere che si abbia la necessità di disabilitare la pressione del pulsante "Start"!

In che caso?? .... Bella domanda!!

Mbhe! Forse accade solo a me!! ... comunque ognuno può usarla quando e come meglio crede.

Apriamo un nuovo form con una Label ed un semplice Button ed inseriamo il seguente codice:

               Private Declare Function FindWindowEx Lib "user32" _

                        Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, _

                        ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer

               Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Integer, _

                         ByVal fEnable As Integer) As Integer

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

               Label1.Text = "Enabled"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

               Dim bEnable As Boolean

               If Label1.Text = "Enabled" Then

                              Label1.Text = "Disabled"

                              bEnable = False

               Else

                              Label1.Text = "Enabled"

                              bEnable = True

               End If

               Dim lHwnd As Integer

               lHwnd = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)

               lHwnd = FindWindowEx(lHwnd, 0&, "Button", vbNullString)

               Call EnableWindow(lHwnd, bEnable)

End Sub

Ovviamente, come dice il mio amico Brunetti, il linguaggio non ha importanza siamo in .NET!!

Ciao

Ivan

In questi giorni abbiamo sviluppato un softwarino che premendo un pulsante si collegava alla pagina web della nostra società. Si è creata così l'esigenza di inserire da codice il link alla nostra Home Page nel menù dei Preferiti.

Così ho pensato che potesse servire anche ad altri e ho inserito di seguito la funzioncina che ho scritto sia in VB.Net che in C#.

VB.NET 

Private Sub Add_Preferiti(ByVal Titolo As String, ByVal Url As String)

      If (Titolo <> "") And (Url <> "") Then

            Dim CartellaFavoriti As String

            CartellaFavoriti = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

            Dim Oggetto As System.IO.StreamWriter=System.IO.File.CreateText(CartellaFavoriti & "\" & _

                               Titolo & ".url")

            Oggetto.WriteLine("[InternetShortcut]")

            Oggetto.WriteLine("URL=" & Url)

            Oggetto.Close()

      Else

            MessageBox.Show("Attenzione! Inserire tutti i campi.", "Avviso", MessageBoxButtons.OK, _

                                      MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, _

                                     MessageBoxOptions.DefaultDesktopOnly)

      End If

End Sub

C# 

private void Add_Preferiti(string Titolo, string Url)

{

      if ((Titolo != "") && (Url != ""))

      {

         string Cartellapreferiti;

         Cartellapreferiti = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites);

         System.IO.StreamWriter Oggetto=System.IO.File.CreateText(Cartellapreferiti & "\\" & Titolo & _

                                          ".url");

        Oggetto.WriteLine("[InternetShortcut]");

        Oggetto.WriteLine("URL=" & Url);

        Oggetto.Close();

      }

      else

      {

         MessageBox.Show("Attenzione! Inserire tutti i campi.", "Avviso", MessageBoxButtons.OK, _

                                        MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, _

                                       MessageBoxOptions.DefaultDesktopOnly);

      }

}

Ciao

Ivan

Qualche tempo fa, ho letto in un forum che qualcuno cecava una soluzione per riazzerare il campo contatore, dopo aver eliminato il contenuto di una tabella in SQL Server.
E' veramente molto semplice!
... è anche possibile fare ripartire il contatore da un certo numero o dal numero max che ha raggiunto.
Si pensi al caso in cui si voglia ripristinare una tabella dopo aver eliminato un certo numero di record.

Supponiamo che Amico sia il nome della nostra tabella e IdAmico quello del campo contatore.
Analizziamo tutte le situazioni:

1 - Fare ripartire da 1 il contatore:

                                  DBCC CHECKIDENT ('Amico', RESEED, 1);

2 - Fare ripartire il contatore da un certo valore (Esempio 20):

                                  DBCC CHECKIDENT ('Amico', RESEED, 20);

3 - Fare ripartire il contatore dal massimo valore raggiunto (ovviamente se la tabella non è vuota!!):

                DECLARE @MaxVal int SET @MaxVal = (SELECT MAX(IdAmico) FROM Amico)

                DBCC CHECKIDENT ('Amico', RESEED, @MaxVal)

Ovviamente per esguire questo monando bisogna avere tutte le autorizzazioni sul database, altrimenti il darà nessun risultato.

Ciao

Ivan

Non so a quanti di voi è successo (probabilmente sono solo io l'imbranato!!) ma se dovesse servire qui spiego come fare.

Tutto nasce dal famoso BACKUP/RECOVERY dei database in SQL.

Per creare una copia di BACKUP del database, SQL server mette a disposizione un generatore automatico di script, permettendoci anche di salvarlo in un file o nella clipboard.

Lo script generato non è altro che un istruzione SQL che, come tale, può essere mandata in esecuzione da codice come qualsiasi altra istruzione (INSERT, DELETE ....).

Supponiamo che il nostro database si chiami STO_PER_MORIRE e di volerne creare una copia di BACKUP nella nostra cartella dei progetti C:\Documents and Settings\Ivan\Documenti\Visual Studio 2005\Projects\Backup\Copia e di voler chiamare la copia del database Copia.bak.

Allora basta generare la nostra query con il wizard di SQL server, copiarla nel codice VB, C# o ASP.net ed eseguirla.

ATTENZIONE! Ricordate che la parola chiave "GO" non è del linguaggio SQL, quindi può essere cancellata.

Riporto il codice VB.net per comodita, ma è uguale in tutti gli altri.

Public Sub Esegui_query(ByVal Con_connessione As Integer)

      Try

      Dim Nome_db as String = "STO_PER_MORIRE"

      Dim Path_backup as String = "C:\Documents and Settings\Ivan\Documenti\Visual Studio 2005" _

                                          & "\Projects\Backup\Copia"

      Dim Nome_backup as String = "Copia.bak"

      Dim Query as String

      Query = "BACKUP DATABASE [" & Nome_db & "] TO DISK = N'" & Path_backup & "\" _

                 & Nome_backup & "' WITH NOFORMAT, INIT, NAME = N'" & Nome_db & "-Full " _

                 & "Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 10"

      Using db As New SqlConnection(StringaConnessione)

            Dim comando As New SqlCommand(Query, db)

            db.Open()

            comando.ExecuteNonQuery()

      End Using

      Exit Try

      Catch Ex As Exception

            'TODO:Errore

      End Try

End Sub

Ovviamente l'operazione di RECOVERY si sviluppa allo stesso modo.

Ciao

Ivan

I colori di un immagine possono essere convertiti in scale di grigio facendo un calcolo dei valori effettivi del contrasto e della luminosità. Questi valori vengono utilizzati per generarne uno di grigio.

Di seguito vi riporto il codice per farlo. 

Il valore reale della luminosità di un pixel si calcola con la seguente formula:

Y = 0.3*ROSSO + 0.59*VERDE + 0.11*BLU

Questo valore della luminosità può essere convertito in scale di grigio usando

Color.FromArgb(Y,Y,Y).

[C#]

public Bitmap ConvertiScalediGrigio (Bitmap sorgente)

{

  Bitmap bm = new Bitmap(sorgente.Width,source.Height);

  for(int y=0;y

  {

    for(int x=0;x

    {

      Color c= sorgente.GetPixel(x,y);

      int luma = (int)(c.R*0.3 + c.G*0.59+ c.B*0.11);

      bm.SetPixel(x,y,Color.FromArgb(luma,luma,luma));

    }

  }

  return bm;

}

[VB]

Public Function ConvertiScalediGrigio (ByVal sorgente As Bitmap) as Bitmap

  Dim bm as new Bitmap(sorgente.Width, sorgente.Height)

  Dim x

  Dim y

  For y=0 To bm.Height

    For x=0 To bm.Width

      Dim c as Color = sorgente.GetPixel(x,y)

      Dim luma as Integer = CInt(c.R*0.3 + c.G*0.59 + c.B*0.11)

      bm.SetPixel(x,y,Color.FromArgb(luma,luma,luma)

    Next

  Next

  Return bm

End Function

Sotto riporto un immagine per dimostrarvi il funzionamento.

Ciao

Ivan