Monthly Archives: June 2012
Supprimer les révisions d’articles sous WordPress
Le logiciel gratuit de monitoring NetSysInfo v1.7 est disponible
2 mois après sa sortie officielle, une nouvelle mouture du logiciel de supervision NetSysInfo est disponible.
Cette version 1.7 de NetSysInfo apporte la correction de bugs mineurs et l'ajout de nouvelles fonctionnalités tels que l'optimisation des ressources utilisées, l'ajout du filtrage par adresse IP et l'ajout de statistiques sous forme de graphiques pour la CPU, la mémoire, l'utilisation des disques durs et l'utilisation réseau.
Les graphiques générés sont disponibles sous plusieurs aggrégations temporelles: 1 minute, 5 minutes, 15 minutes, 30 minutes, 1 heure.
Pour découvrir cette nouvelle version de NetSysInfo, je vous invite à vous rendre sur la page officielle en cliquant ici.
Générer un MD5 sous Linux
Utiliser la compression GZip en Dotnet
Voila une petite classe qui permet de compresser et décompresser en utilisant un stream GZIP:
Imports System.IO
Imports System.IO.Compression
Imports System.Text
Public Class GZipper
'Fonction qui zip une chaine de caractères
Public Shared Function Zip(ByVal value As String) As StringBuilder
'On transforme la chaine en tableau de byte
Dim byteArray(value.Length - 1) As Byte
Dim i As Integer = 0
For Each item As Char In value.ToCharArray()
byteArray(i) = CByte(AscW(item))
i += 1
Next
'On prepare pour la compression
Dim ms As New System.IO.MemoryStream()
Dim sw As New System.IO.Compression.GZipStream(ms, System.IO.Compression.CompressionMode.Compress)
'On compresse
sw.Write(byteArray, 0, byteArray.Length)
sw.Close()
'On convertit le tableau de bytes en string
byteArray = ms.ToArray()
Dim sB As New System.Text.StringBuilder(byteArray.Length)
For Each item As Byte In byteArray
sB.Append(ChrW(item))
Next
ms.Close()
sw.Dispose()
ms.Dispose()
Return sB
End Function
Public Shared Function UnZip(value As String) As StringBuilder
'On transforme la chaine en tableau de bytes
Dim byteArray(value.Length - 1) As Byte
Dim i As Integer = 0
For Each item As Char In value.ToCharArray()
byteArray(i) = CByte(AscW(item))
i += 1
Next
'On prepare la decompression
Dim ms As New System.IO.MemoryStream(byteArray)
Dim sr As New System.IO.Compression.GZipStream(ms, System.IO.Compression.CompressionMode.Decompress)
byteArray = New Byte(byteArray.Length - 1) {}
'On decompresse
Dim rByte As Integer = sr.Read(byteArray, 0, byteArray.Length)
'On convertit le tableau de bytes en string
Dim sB As New System.Text.StringBuilder(rByte)
For i = 0 To rByte - 1
sB.Append(ChrW(byteArray(i)))
Next
sr.Close()
ms.Close()
sr.Dispose()
ms.Dispose()
Return sB
End Function
End Class
Compresser facilement du JSON en PHP
Aujourd'hui j'ai été amené à compresser du JSON en PHP afin de gagner de la bande passante sur mon serveur Web.
Pour cela, il suffit d'ajouter une compression GZIP dans votre code PHP afin de compresser automatiquement votre JSON.
Voici le code, vous verrez c'est tout simple:
//On recupere les données
$data = get_data();
//On active le buffer de sortie via gzhandler
ob_start('ob_gzhandler');
//On envoie le résultat normalement
echo json_encode($data);
Sans compression GZIP j'avais le header HTTP suivant:
Content-Length 500800 Content-Type application/json
Et avec la compression j'obtiens cela:
Content-Encoding gzip Vary Accept-Encoding Content-Length 15922 Content-Type application/json
C'est donc super performant, d'autant plus que la majorité des navigateurs supporte la compression GZIP nativement
Utiliser une base de données MySql en Vb.Net
Aujourd'hui j'ai besoin de me connecter à une base de données MySQL en Vb.Net afin de récupérer et sauver des données.
Tout d'abord, il faut télécharger le connecteur .Net disponible sur le site de MySQL.
Ensuite, dans votre projet il faut ajouter une référence à MySql.Data.
Puis faire un import de la librairie: Imports MySql.Data.MySqlClient
Vous pouvez ensuite utiliser une fonction telle que la suivante pour requêter votre base de données MySQL:
Public Sub Test()
Dim connStr As String = "SERVER=localhost;DATABASE=xflows;UID=root;PASSWORD="
Dim connection As New MySqlConnection(connStr)
Dim command As MySqlCommand = connection.CreateCommand()
Dim reader As MySqlDataReader
command.CommandText = "select * from table"
connection.Open()
reader = command.ExecuteReader()
While reader.Read()
Dim row As String = vbNullString
For i As Integer = 0 To reader.FieldCount - 1
Debug.WriteLine(reader.GetValue(i).ToString())
Next
End While
connection.Close()
End Sub







ZeM.fr est un blog que j'ai lancé afin de stocker les informations qui me semblent importantes.