Backup dei DB in SqlServer

Tramite questo script è possibile eseguire il backup di tutti i databasi di SqlServer, meno quelli di sistema ovviamente.


DECLARE @name VARCHAR(50) -- Nome del Database
DECLARE @path VARCHAR(256) -- Cartella destinazione file di backup
DECLARE @fileName VARCHAR(256) -- Nome file di backup
DECLARE @fileDate VARCHAR(20) -- Data file di backup (accodata a @fileName)
DECLARE @SqlStatment VARCHAR(MAX) -- Statement T-SQL che esegue il backup

SET @path = 'F:\TEST\'

SELECT @fileDate = CONVERT(VARCHAR(20),GETDATE(),112)

DECLARE db_cursor CURSOR FOR
SELECT name
FROM master.dbo.sysdatabases
WHERE name NOT IN ('master','model','msdb','tempdb')
ORDER BY name

OPEN db_cursor
FETCH NEXT FROM db_cursor INTO @name

WHILE @@FETCH_STATUS = 0
BEGIN
PRINT 'Elaborazione backup ' + @name + ' in corso...' + CHAR(13)

SET @fileName = @path + @name + '_' + @fileDate + '.BAK'

SET @SqlStatment = 'BACKUP DATABASE ' + @name + ' TO DISK = ''' + @fileName +
''' WITH NOFORMAT, INIT, NAME = N''' + @name + ' - Completo Database Backup''' + ', SKIP, NOREWIND, NOUNLOAD, STATS = 10'

EXEC (@SqlStatment)
PRINT CHAR(13) + 'Elaborazione backup ' + @name + ' terminata!' + CHAR(13)

FETCH NEXT FROM db_cursor INTO @name
END

CLOSE db_cursor
DEALLOCATE db_cursor

ricavare tipo dei campi dal database

Per ricavare il tipo dei campi dal database basta eseguire la seguente procedura

public sub RicavaCampi()
Dim dtType As DataTable = getTables()
For Each row As DataRow In dtType.Rows
If Not row(2).Equals("sysdiagrams") Then
Dim res(3) As String
res(2) = row(2) 'nome della tabella
If res(2).Equals("Categories") Then
Dim dtCol As DataTable = _Connection.GetSchema("Columns", res)
If dtCol.Rows.Count > 0 Then
dim colName as string
dim colType as string
For Each col As DataRow In dtCol.Rows
colName = col("COLUMN_NAME")
colType = col("DATA_TYPE")
Next
End If
End If
End If
Next
end sub



Public Function getTables() As DataTable
_Connection.Open()
If Not IsNothing(_Connection) Then
Dim restriction(3) As String
restriction(3) = "BASE TABLE"
Dim dtTables As DataTable = _Connection.GetSchema("Tables", restriction)

Return dtTables
Else
Throw New Exception("Nessuna Connessione attiva...")
End If
_Connection.Close()
End Function

Connessione a SqlServer da remoto

E' possibile collegarsi ad un DB SQL Server da remoto tramite la seguente stringa di connessione:


Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;

E' fondamentale settare il firewall affinchè abiliti l'accesso alla porta 1433.

Convertire un campo DB da float a datetime

Per convertire un campo di un database dal formato float (18.9831) a formato orario (18.59) basta utilizzare la seguente procedura

convert(datetime, (select dateadd(second, op_orachia * 3600, '2000-01-01 00:00:01'))) as OraChiamata

Personalizzazione di una ComboBox con DataTemplate

Windows Presentation Foundation contiene numerosi controlli volti a caricare informazioni e ad interagire con l'utente che rispecchiano nello stile e nelle funzionalità gli elementi Win32. La libertà è comunque massima così come la personalizzazione nell'interfaccia. Tipica è l'esigenza di una ComboBox che deve essere arricchita non limitandosi al semplice testo, ma mostrando anche immagini per ogni elemento.
L'uso di una ComboBox è piuttosto semplice, così come il suo popolamento mediante una collezione di ComboBoxItem:

ComboBox SelectedIndex="0">
ComboBoxItem> Yellow /ComboBoxItem>
ComboBoxItem> Green /ComboBoxItem>
/ComboBox>

Solitamente però, si utilizzano le funzionalità di binding per caricare automaticamente i dati, anche in formato XML:

Canvas>
Canvas.Resources>
XmlDataProvider x:Key="colors" XPath="/items/item">
x:XData>
items xmlns="">
item color="Red" />
item color="Yellow" />
item color="Blue" />
item color="Green" />
/items>
/x:XData>
/XmlDataProvider>
/Canvas.Resources>
ComboBox SelectedIndex="0" ItemsSource="{Binding Source={StaticResource colors}}"
DisplayMemberPath="@color" />
/Canvas>

Con la proprietà ItemsSource indichiamo qual è la sorgente da utilizzare, mentre con DisplayMemberPath specifichiamo qual è il path (in questo caso l'attributo) da mostrare come testo per ogni item. Possiamo però personalizzare e decidere in dettaglio l'aspetto di ogni item inserendo qualsiasi Visual presente in WPF: controlli, immagini e perfino video. Per fare ciò con la proprietà ItemTemplate possiamo indicare, definendo come risorsa o inline per la solo ComboBox, un DataTemplate da utizzare per ogni item.

ComboBox SelectedIndex="0" IsEditable="true" TextSearch.TextPath="@color"
ItemsSource="{Binding Source={StaticResource colors}}">
ComboBox.ItemTemplate>
DataTemplate>
StackPanel Margin="2" Orientation="Horizontal">
Rectangle Width="25" Height="25" Fill="{Binding XPath=@color}" />
TextBlock FontSize="15" Text="{Binding XPath=@color}" />
/StackPanel>
/DataTemplate>
/ComboBox.ItemTemplate>
/ComboBox>

All'interno di un template lo scope di binding è relativo al singolo item che stiamo caricando, perciò ci è concesso fare riferimento direttamente agli attributi dell'elemento item della sorgente. Nell'esempio disegniamo un rettangolo e una scritta relativi al colore corrente. Una menzione particolare la meritano le proprietà IsEditable e TextSearch.TextPath. La prima indica che la ComboBox è editabile e l'utente può immettere del testo di ricerca. La seconda è una attached property sull'oggetto TextSearch e ci permette di indicare qual è la proprietà sulla quale fare lookup per ogni ricerca che l'utente effettua. E' importante impostare questo path perché personalizzando il layout degli item il motore non è in grado di sapere qual è il testo rappresentativo dell'elemento. Il risultato di questa personalizzazione è il seguente, dove digitando "G" viene automaticamente suggerita la voce "Green".

Aggiungere un Font alle risorse

Per aggiungere un font alle risorse è sufficiente aggiungerlo in una cartella del progetto, e dal controllo settare

FontFamily="Resources\#Onuava"

in questo modo verrà utilizzato questo font anzichè quello di default

Update in SQL, come inserire una datetime

L'update di un campo in SQL si fa così:

UPDATE	Nome_Tabella
SET	Nome_Colonna = Nuovo_Valore
WHERE	Nome_Colonna = Un_Valore

Per aggiornare più colonne:

UPDATE	Nome_Tabella
SET	Nome_Colonna1 = Nuovo_Valore1
	, Nome_Colonna2 = Nuovo_Valore2
	, Nome_Colonna3 = Nuovo_Valore3
WHERE	Nome_Colonna = Un_Valore

Per inserire un valore DateTime:

UPDATE	Nome_Tabella
SET	Nome_Colonna = convert(datetime,'31122099')
WHERE	Nome_Colonna = Un_Valore

Progetto Setup, impostare TextBox Criptato

Tools
The only tool you need is ORCA. ORCA is a Microsoft utility for modifying and validating Windows Installer packages. It is a database tool created for setup authors and administrators who work with the Windows Installer Service. This utility is a part of the Windows Installer SDK download along with other MSI related tools.
You can use ORCA to open and modify MSI packages.
To download and install ORCA, follow these steps:
Visit the SDK Platform Site page to download the Windows Installer SDK. The link to Windows Installer SDK should be on the left hand side frame on the above site.
Click on that link to go to the next page to download Windows Installer SDK, which includes ORCA.
After downloading and installing Windows Installer SDK, go to \Program Files\Microsoft SDK\Bin folder on the machine to look for Orca.msi.
Run Orca.msi by double clicking on it, which is the setup to install ORCA on your machine.
After installing ORCA on your machine, you will be able to right click on any MSI package and open it in ORCA.
Using the code
The first thing to do, is generate our VS.NET setup project and identify our future password textbox. You can see Edit2Property in our example that is EDITA2.


Now, we start to modify the MSI to enable our password text changing attributes for our textbox EDITA2.
First of all, we've to start ORCA and open the MSI file generated by VS.NET, and go to 'Control' table.



Normally, all textboxes are called CustomTextA, and we've to identify our textbox by Property column. In our case, we can see our row, has '7' as attributes. Let's go to see what means this '7'.
The attributes are set in binary format, so '7' is 111. 100 + 10 + 1 and this is 4 + 2 + 1 in decimal format. Now, we can go to control attributes table here and check what attributes are 4,2,1.
We can see that our textbox has the following properties: Enabled, Sunken and Visible. Now, check that there's an advance properties table for textboxes, and there's a Password property with value 2097152.
Now we have to add this property to the initial property value (7). 2097152 + 7 = 2097159, that's our new property value. Set in attributes cell and save the MSI File.
Now, check your MSI, and you could see that our textbox is a password textbox!!!

Verificare Administrator della macchina

Per sapere se l'utente attualmente loggato è l'amministratore:


bool IsAnAdministrator()
{
WindowsIdentity identity = WindowsIdentity.GetCurrent();
WindowsPrincipal principal = new WindowsPrincipal(identity);
return principal.IsInRole(WindowsBuiltInRole.Administrator);
}

abilitare la scrittura per una colonna della DxGrid

Per abilitare la scrittura di una colonna della griglia DxGrid della DevExpress è necessario aggiungere al controllo la sezione che gestisce la View e settare la NavigationStyle = CellNavigation.

dxg:GridControl.View>
dxg:GridColumnView NavigationStyle="CellNavigation" Name="GridColumnView" AllowEditing="True">
/dxg:GridColumnView>
/dxg:GridControl.View>

Inoltre se la sorgente dati della griglia viene caricata dinamicamente dobbiamo fare attenzione a non impostare il valore di default della colonna, altrimenti non avremo la possibilità di modificare il contenuto.

dtFiltra.Columns.Add("IsSelected", System.Type.GetType("System.Boolean"))

ContextMenu in WPF

Per aggiungere un ContextMenu ad un bottone basta inserire il seguente Codice.

Per Gestire l'evento click degli elementi basta attivarlo su ogni MenuItem.

Button.ContextMenu>
ContextMenu Padding="0" Margin="0" Name="ContextMenu1">
MenuItem Name="MenuItem1">
MenuItem.Header>
TextBlock Text="Option 1" VerticalAlignment="Center">
/TextBlock>
/MenuItem.Header>
MenuItem.Icon>
Border Background="LightGray" Padding="2">
Image Source="Resources/MSG_Error.png" Width="{StaticResource ImageSize}" Height="{StaticResource ImageSize}">
/Image>
/Border>
/MenuItem.Icon>
/MenuItem>/ContextMenu>
/Button.ContextMenu>

Posizione di una colonna in una griglia DxGrid

Per calcolare la posizione di una colonna nella griglia DxGrid:

Dim visibleIndex As Integer = DevExpress.Wpf.Grid.GridColumn.GetVisibleIndex(column)

DialogResult in WPF

In WPF la logica del DialogResult è leggermente diversa da quella delle WindowsForm, infatti i valori che può assumere una DialogResult sono True o False (False è il predefinito).

In una finestra di dialogo è in genere disponibile un pulsante speciale per l'annullamento, che corrisponde al pulsante la cui proprietà IsCancel è impostata su true. Un pulsante configurato in questo modo consente di chiudere automaticamente una finestra quando un utente lo seleziona o preme ESC. In entrambi i casi, DialogResult rimane false.
In una finestra di dialogo è in genere disponibile anche un pulsante speciale per l'accettazione, che corrisponde al pulsante la cui proprietà IsDefault è impostata su true. Un pulsante configurato in questo modo genererà l'evento Click quando l'utente lo seleziona o preme INVIO. Tuttavia, la finestra di dialogo non verrà chiusa automaticamente e DialogResult non verrà impostata su true. È necessario scrivere manualmente questo codice, in genere dal gestore dell'evento Click per il pulsante predefinito.
Dopo la chiusura di una finestra di dialogo, è possibile ottenere il risultato dal valore restituito dal metodo ShowDialog o controllando la proprietà DialogResult.
DialogResult può essere impostata solo quando un oggetto Window viene aperto chiamando il metodo ShowDialog.
Esempio Apertura ShowDialog:

MyDialog dialog = new MyDialog();
dialog.ShowDialog();
if (dialog.DialogResult.HasValue && dialog.DialogResult.Value)
MessageBox.Show("User clicked OK");
else
MessageBox.Show("User clicked Cancel");

nella Window ShowDialog sono inseriti 2 bottoni (Ok, e Cancel) così gestiti:

Button Width="100" Content="OK" IsDefault="True" Click="ButtonOkClick"/
Button Width="100" Content="Cancel" IsCancel="True"/

e l'evento del bottone OK va ad impostare il valore della ShowDialog:

DialogResult = true;

Aggiungere un'immagine delle risorse in WPF

Per aggiungere un'immagine contenuta nelle risorse del progetto in WPF basta utilizzare il seguente codice (facendo attenzione ad impostare la proprietà dell'immagine Build Action a Resources)


pctIcon.Source = New BitmapImage(New Uri("Resources/MSG_OK.png", UriKind.Relative))

Attenzione, se l'oggetto nel quel vogliamo inserire l'immagine è in una sottocartella rispetto alla root, per accedere alle risorse è necessario aggiungere una / prima dell'indirizzo dell'immagine.
es.

pctIcon.Source = New BitmapImage(New Uri("/Resources/MSG_OK.png", UriKind.Relative))

Funzione VBScript che dato un indirizzo E-mail testa se è valido o meno.

If isValidEMail("IndirizzoE-Mail") Then
MsgBox("Indirizzo valido")
Else
MsgBox("Indirizzo non valido")
End If

function IsValidEmail(email)
isitvalid = true
dim names, name, i, c
names = Split(email, "@")
if UBound(names) <> 1 then
isitvalid = false
exit function
end if
for each name in names
if Len(name) <= 0 then
isitvalid = false
exit function
end if
for i = 1 to Len(name)
c = Lcase(Mid(name, i, 1))
if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
isitvalid = false
exit function
end if
next
if Left(name, 1) = "." or Right(name, 1) = "." then
isitvalid = false
exit function
end if
next
if InStr(names(1), ".") <= 0 then
isitvalid = false
exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
isitvalid = false
exit function
end if
if InStr(email, "..") > 0 then
isitvalid=false
Exit Function
end If
IsValidEmail = isitvalid
End Function

Inviare una e-mail tramite VBScript

Per inviare una e-mail tramite linguaggio VBScript utilizzare il seguente codice:

Dim SendMail Set SendMail = CreateObject("CDO.Message")
SendMail.From = "Indirizzo del mittente"
SendMail.To = "Indirizzo del Destinatario"
SendMail.Subject = "e-mail di prova inviata con un VBScript"
SendMail.HTMLBody = "Inserire qui il testo del messaggio con i Tag HTML"
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "indirizzo smtp del server di posta"
SendMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25" SendMail.Configuration.Fields.Update
SendMail.Send

Expander WPF

Per far funzionare corretamente un Expander WPF è sufficiente metterlo all'interno di una griglia, in una riga la cui height è impostata ad "Auto":

Grid>
Grid.RowDefinitions>
RowDefinition Height="Auto"/>
RowDefinition />
/Grid.RowDefinitions>
Expander Header="Exp di prova">
StackPanel>
TextBox />
Button Content="Ciao" />
/StackPanel>
/Expander>
Button Content="Fuori dall'expander" Grid.Row="1" Height="25" />
/Grid>

Aggiungere un CheckBox Column ad un DXGrid (DevExpress) WPF

per aggiungere una colonna di checkbox in una griglia DXGrid basta inserire un codice:


my:GridColumn FieldName="ImportThis" Header="Import" Width="60"
my:GridColumn.CellTemplate
DataTemplate
CheckBox IsChecked="{Binding Path=ImportThis}" HorizontalAlignment="Center" /
/DataTemplate
/my:GridColumn.CellTemplate
/my:GridColumn

Passare stringa di valori come parametro di una query

E' possibile che ci sia la necessità di passare ad una query una serie di parametri in formato stringa concatenata.
per risolvere la questione ecco come ricavare i vari valori:
In SqlServer:
SELECT *
FROM t
WHERE (',' + @ElencoIdSedi + ',') LIKE ('%,' + ltrim(rtrim(str(t.IdSede))) + ',%')

In MySQL:
SELECT *
FROM t
where concat(',', ElencoIdSedi,',') LIKE concat('%,', t.IdSede, ',%') ;

aggiungere una ButtonColumn al controllo Xceed Datagrid WPF

Per aggiungere una colonna a tale controllo (gratuita la versione 2.0) WPF è sufficiente inserire nella dichiarazione delle colonne il seguente codice

xcdg:Column FieldName="FieldName" Title="Elimina Riga" ReadOnly="False"
xcdg:Column.CellContentTemplate
DataTemplate
Button Content="Elimina" Click="btnEliminaRiga_Click"
/Button
/DataTemplate
/xcdg:Column.CellContentTemplate
/xcdg:Column

Non è possibile non inserire il FieldName della colonna.

IIS7 e Skype

Se installiamo Skype con le impostazioni di default non è possibile avviare il Default Web Site montato su IIS7 (per le altre versioni non ho verificato).
Il motivo è che entrambi tentano di utilizzare la porta 80 della macchina.
Per risolvere il problema è sufficiente disattivare l'utilizzo di tale porta in Skype in Opzioni Avanzate Connessione, spuntando il flag "Usa le porte 80 e 443 come alternative per le connessioni in ingresso".

Utente SuperAdmin in Vista

Ho appena apprese che in Vista l'utente Administrator... non è l'amministratore a tutti gli effetti.
Infatti è possibile attivare un utente SuperAdministrator per svolgere particolari operazioni.
Per attivarlo da Menù Start/Accessori cliccare con il tasto destro su Prompt dei Comandi e selezionare Esegui come Amministratore. Si aprirà il promt dei comandi, digitare:
net user administrator /active:yes
e riavviare.
all'avvio di windows troveremo anche l'utente Administrator con il quale è possibile svolgere anche le più particolari funzioni.
Per disattivare l'utente digitare dal prompt dei Comandi:
net user administrator /active:no

Proprietà della Classe Win32_Printer

Class properties:
Win32_Printer.Attributes
Win32_Printer.Availability
Win32_Printer.AvailableJobSheets
Win32_Printer.AveragePagesPerMinute
Win32_Printer.Capabilities
Win32_Printer.CapabilityDescriptions
Win32_Printer.Caption
Win32_Printer.CharSetsSupported
Win32_Printer.Comment
Win32_Printer.ConfigManagerErrorCode
Win32_Printer.ConfigManagerUserConfig
Win32_Printer.CreationClassName
Win32_Printer.CurrentCapabilities
Win32_Printer.CurrentCharSet
Win32_Printer.CurrentLanguage
Win32_Printer.CurrentMimeType
Win32_Printer.CurrentNaturalLanguage
Win32_Printer.CurrentPaperType
Win32_Printer.Default
Win32_Printer.DefaultCapabilities
Win32_Printer.DefaultCopies
Win32_Printer.DefaultLanguage
Win32_Printer.DefaultMimeType
Win32_Printer.DefaultNumberUp
Win32_Printer.DefaultPaperType
Win32_Printer.DefaultPriority
Win32_Printer.Description
Win32_Printer.DetectedErrorState
Win32_Printer.DeviceID
Win32_Printer.Direct
Win32_Printer.DoCompleteFirst
Win32_Printer.DriverName
Win32_Printer.EnableBIDI
Win32_Printer.EnableDevQueryPrint
Win32_Printer.ErrorCleared
Win32_Printer.ErrorDescription
Win32_Printer.ErrorInformation
Win32_Printer.ExtendedDetectedErrorState
Win32_Printer.ExtendedPrinterStatus
Win32_Printer.Hidden
Win32_Printer.HorizontalResolution
Win32_Printer.InstallDate
Win32_Printer.JobCountSinceLastReset
Win32_Printer.KeepPrintedJobs
Win32_Printer.LanguagesSupported
Win32_Printer.LastErrorCode
Win32_Printer.Local
Win32_Printer.Location
Win32_Printer.MarkingTechnology
Win32_Printer.MaxCopies
Win32_Printer.MaxNumberUp
Win32_Printer.MaxSizeSupported
Win32_Printer.MimeTypesSupported
Win32_Printer.Name
Win32_Printer.NaturalLanguagesSupported
Win32_Printer.Network
Win32_Printer.PaperSizesSupported
Win32_Printer.PaperTypesAvailable
Win32_Printer.Parameters
Win32_Printer.PNPDeviceID
Win32_Printer.PortName
Win32_Printer.PowerManagementCapabilities
Win32_Printer.PowerManagementSupported
Win32_Printer.PrinterPaperNames
Win32_Printer.PrinterState
Win32_Printer.PrinterStatus
Win32_Printer.PrintJobDataType
Win32_Printer.PrintProcessor
Win32_Printer.Priority
Win32_Printer.Published
Win32_Printer.Queued
Win32_Printer.RawOnly
Win32_Printer.SeparatorFile
Win32_Printer.ServerName
Win32_Printer.Shared
Win32_Printer.ShareName
Win32_Printer.SpoolEnabled
Win32_Printer.StartTime
Win32_Printer.Status
Win32_Printer.StatusInfo
Win32_Printer.SystemCreationClassName
Win32_Printer.SystemName
Win32_Printer.TimeOfLastReset
Win32_Printer.UntilTime
Win32_Printer.VerticalResolution
Win32_Printer.WorkOffline

Progetto d'installazione

Nel progetto d'installazione standard di visual studio è possibile inserire una form personalizzata.
Da Interfaccia Utente del Setup sotto Avvio cliccare su Aggiungi Finestra di Dialogo.
Scegliere il layout desiderato e porre attenzione alla casella delle proprietà.
Per un layout di tipo Caselle di testo, modificare EditLabel (il nome visualizzato per la label) e EditProperty (il nome della proprietà associata a quel campo)
per poter gestire i dati inseriti, ad esempio nell' overrides Install del ProjectInstaller è necessario impostare il CustomActionData. Questo lo troviamo in Azioni Personalizzate del Setup sotto Installa è stato precedentemente aggiunto l'Output Primario che tra le proprietà ha anche il CustomActionData. Per poter effettuare il mapping e necessario aggiungere tutti le \chiavi =valore aggiunte nelle nostre form personalizzate.
ad esempio.
se nella form è stato aggiunto Edit1Property = USER allora nella CustomActionData inserire /USER=[USER] se fossero più d'uno basta aggiungerli separati da spazi (/USER=[USER] /PSW=[PSW])
Per recuperare i valori dal ProjectInstaller inserire
Context.Parameters("USER")

Ancora sui servizi

Per installare un servizio in configurazione Utente anzichè Local Service (o Local System) è necessario modificare la proprietà Account della ServiceProcessInstaller1 uguale a User e impostare Username e Password in ProjectInstaller.Designer.vb come quelle dell'utente che si vuole configurare.
Fondamentale: l'Username deve essere del tipo: NomeServer\Username o Dominio\Username
Per avviare il servizio al termine dell'installazione gestire la AfterInstall della ProjectInstaller (da CodeBehind)

Private Sub ProjectInstaller_AfterInstall(ByVal sender As Object, ByVal e As System.Configuration.Install.InstallEventArgs) Handles Me.AfterInstall

Dim timeout As TimeSpan = TimeSpan.FromSeconds(30)
Dim s As New ServiceProcess.ServiceController("MegaPrintServer")
s.Start()
s.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running, timeout)

End Sub

Creare un servizio Windows con C#

Un Windows Service (in italiano detto anche Servizio) è un'applicazione che gira in background all'interno di Windows. L'applicazione viene poi gestita da uno snap-in disponibile nel MMC di gestione del sistema sotto "Services and Applications/Service" il quale permette di impostare la modalità con cui il servizio parte, l'account con cui questo programma gira (LOCAL SERVICE o NETWORK SERVICE ad esempio), i parametri che possono essere passati in fase di lancio, le operazioni da compiere nel caso in cui il lancio del programma non vada a buon fine, ecc.
L'applicazione da trasformare in servizio, si occupa di controllare una casella email per la ricezione di richieste d'intervento che vengono poi filtrate in base al mittente ed inserite nel database del sistema gestionale per poi essere visualizzate poi tramite interfaccia web.Inizialmente l'applicazione veniva avviata automaticamente al login di un utente ed eseguita in background. Naturale evoluzione e' quindi quella di trasformarla in servizio in modo che possa venir avviata anche senza effettuare il login di un utente.
Per fare cio, occorre selezionare il template "Windows Service"

public partial class service1 : ServiceBase
{
public service1()
{
// Costruttore.
}
protected override void OnStart(string[] args)
{
// Codice eseguito all'avvio del servizio.
}
protected override void OnStop()
{
// Codice eseguito al termine del servizio.
}
}

Il metodo OnStart verra' chiamato ogni volta che il servizio verra' avviato (Manualmente o Automaticamente a seconda di come e' stato impostato), tramite il parametro args recuperiamo i parametri che decidiamo di passargli al momento dell'avvio (Nella finestra di configurazione dei servizi e' possibile impostare i parametri di avvio). Ad esempio nel metodo OnStart possiamo attivare un Timer per l'esecuzione del nostro codice.
Ora dobbiamo aggiungere l'installer che si occupa di installare l'applicazione come servizio. Per fare cio' dobbiamo andare in modalita' Design sulla classe che contiene il servizio, nel nostro caso service1, tasto destro e poi Add Installer
Tramite l'installer possiamo definire nelle sue proprieta' le credenziali con cui dovra' partire il servizio: in particolar modo il tipo di account (LocalSystem)
Possiamo ora aggiungere un progetto per il setup alla nostra soluzione. Andiamo quindi su File -> Add -> New Project... e selezioniamo "Setup and Deployment" -> "Setup Project" Ora dobbiamo specificare quali file devono essere aggiunti al setup e dove andranno messi (di default) sul computer dove girera' la nostra applicazione. Clichiamo con il tasto destro su Application Folder e poi selezioniamo Add -> Project Output...:
Da questa finestra selezioniamo l'output del nostro progetto, in questo modo quando effettueremo il build della soluzione, l'eseguibile della nostra applicazione verra' inserito all'interno del setup.
Ora associamo il progetto di setup al progetto della nostra applicazione. Per fare questo dobbiamo cliccare su Setup nella finestra Solution Explorer: sulla barra di tale finestra compariranno delle nuove icone, clicchiamo su Custom Actions Editor.
Aperta la finestra di dialogo relativa a Custom Actions Editor dobbiamo cliccare su Application Folder e successivamente selezionare Primary output from [Your service] (Active)Fatto questo siamo pronti per compilare ed installare il servizio.

Caricare un'immagine e modificarla

Se vogliamo visualizzare un'immagine, e rivisualizzarla in seguito ad una modifica dobbiamo stare attenti alla cache che si ricorda la vecchia immagine e non tiene conto della modifica.
Un metodo potrebbe essere quello di caricare l'immagine e postporre un parametro casuale, in modo da far ricaricare ogni volta l'immagine.
Ad esempio:


Image1.ImageUrl = "~/img/immagine.jpg?t=" + DateTime.Now.Ticks.ToString

in Questo modo l'immagine viene ricaricata ogni volta... comprese le modifiche ;)

Il DefaultButton, una questione importante

Scrivendo la mia applicazione ho trovato non pochi problemi con il bottone di default.
Infatti se non viene impostato per default al click dell'invio viene attivato il primo bottone trovato nella pagina.
Il metodo che ho utilizzato per ovviare a questo problema è questo:

inserire dei Panel, e nella dichiarazione utilizzare il

defaultbutton="idButtonDesiderato"

in questo modo gestisco in maniera granulare il bottone di default.

WebPart e IIS

Per il corretto funzionamento delle WebPart, l’applicazione deve essere impostata con
authentication mode="Forms"
In questo modo, sulla prima pagina del sito dobbiamo gestire l’utente da caricare nei cookie.
Ad Esempio

Dim userData As String = "ApplicationSpecific data for this user."
Dim ticket As FormsAuthenticationTicket = New FormsAuthenticationTicket(1, _
"username", _
DateTime.Now, _
DateTime.Now.AddMinutes(30), _
True, _
userData, _
FormsAuthentication.FormsCookiePath)
' Encrypt the ticket.
Dim encTicket As String = FormsAuthentication.Encrypt(ticket)
' Create the cookie.
Response.Cookies.Add(New HttpCookie(FormsAuthentication.FormsCookieName, encTicket))

L’IIS 7 deve essere impostato in modo da avere abilitate:
Autenticazione Anonima: Abilitato
Autenticazione basata su Form: Abilitato
Autenticazione di base: Disabilitato
Rappresentazione ASP.NET: Abilitato

L’IIS 5 deve essere impostato in modo da avere abilitate:

Accesso Anonimo: abilitato, il nome utente (ad esempio): IUSR_ServerTest e password quella di default, comunque quelli di default entrambi.
Autenticazione di Base: Disabilitato
Autenticazione Integrata di Windows: Abilitato

Paging e Sorting di un GridView

Con questi metodi è possibile gestire il paging e il sorting di un GridView non collegato ad un DataSource.

Private Property GridViewSortDirection() As String
Get
Return IIf(ViewState("SortDirection") = Nothing, "ASC", ViewState("SortDirection"))
End Get
Set(ByVal value As String)
ViewState("SortDirection") = value
End Set
End Property


Private Property GridViewSortExpression() As String
Get
Return IIf(ViewState("SortExpression") = Nothing, String.Empty, ViewState("SortExpression"))
End Get
Set(ByVal value As String)
ViewState("SortExpression") = value
End Set
End Property


Private Function GetSortDirection() As String
Select Case GridViewSortDirection
Case "ASC"
GridViewSortDirection = "DESC"
Case "DESC"
GridViewSortDirection = "ASC"
End Select
Return GridViewSortDirection
End Function


Protected Function SortDataTable(ByVal dataTable As DataTable, ByVal isPageIndexChanging As Boolean) As DataView
If Not dataTable Is Nothing Then
Dim dataView As New DataView(dataTable)
If GridViewSortExpression <> String.Empty Then
If isPageIndexChanging Then
dataView.Sort = String.Format("{0} {1}", GridViewSortExpression, GridViewSortDirection)
Else
dataView.Sort = String.Format("{0} {1}", GridViewSortExpression, GetSortDirection())
End If
End If
Return dataView
Else
Return New DataView()
End If
End Function

Nell'evento Paging viene passato al SortDataTable il datasource della griglia, che molto probabilmente sarà vuoto. E' conveniente salvare precedentemente il datasource nel viewState e poi passare tale campo al SortDataTable

Protected Sub gridAgenti_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gridAgenti.PageIndexChanging
Try
gridAgenti.DataSource = SortDataTable(gridAgenti.DataSource, True)
gridAgenti.PageIndex = e.NewPageIndex
gridAgenti.DataBind()
Catch ex As Exception
Session.Remove("Exception")
Session.Add("Exception", ex)
Response.Redirect("ErrorPage.aspx")
End Try
End Sub

Protected Sub gridAgenti_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs) Handles gridAgenti.Sorting
GridViewSortExpression = e.SortExpression
Dim pageIndex As Integer = gridAgenti.PageIndex
gridAgenti.DataSource = SortDataTable(gridAgenti.DataSource, False)
gridAgenti.DataBind()
gridAgenti.PageIndex = pageIndex
End Sub