Blog de Programación

Ignorar Tiempo en Query Linq to Entities

2011-10-17T11:02:00.001-05:00

En Linq to Entities realizar una comparación de fechas sin tener en cuenta la hora me presentó un problema.

Mi código era:

var RessSor = (from s in db.sorteoLoteria
    join l in db.dic_loteria on s.fk_loteriaId equals l.pk_id
    where s.fecha.Date == dt.Date
    select new
    {
        NombreComercial = l.nombreComercial,
        NombreSEO = l.nombreSEO
    });

Este código funcionaba correctamente en LinQ to SQL, pero en LinQ to Entities no. Investigando un poco encontré la solución:

using System.Data.Objects;

...

var RessSor = (from s in db.sorteoLoteria
    join l in db.dic_loteria on s.fk_loteriaId equals l.pk_id
    where EntityFunctions.TruncateTime(s.fecha) == dt.Date
    select new
    {
        NombreComercial = l.nombreComercial,
        NombreSEO = l.nombreSEO
    });

Algoritmo Distancia Hamming Levenshtein en C#

2011-10-12T13:05:00.001-05:00

El algoritmo Distancia de Hamming compara uno por uno los caracteres para ver cambios de uno con respecto al otro.

El algoritmo de Distancia de Levenshtein calcula numero de operaciones para convertir una cadena a otra.

Distancia de Hamming en C#

public static int HammingDistance(String s1, String s2)
        {
            int counter = 0;
            for (int k = 0; k < s1.Length; k++)
            {
                if (s1.ElementAt(k) == s2.ElementAt(k)) counter++;
            }
            return counter;
        }

Distancia de Levenshtein en C#

static int LevenshteinDistance(string s, string t, out double porcentaje)
        {
            porcentaje = 0;

            // d es una tabla con m+1 renglones y n+1 columnas
            int costo = 0;
            int m = s.Length;
            int n = t.Length;
            int[,] d = new int[m + 1, n + 1];

            // Verifica que exista algo que comparar
            if (n == 0) return m;
            if (m == 0) return n;

            // Llena la primera columna y la primera fila.
            for (int i = 0; i <= m; d[i, 0] = i++) ;
            for (int j = 0; j <= n; d[0, j] = j++) ;

            /// recorre la matriz llenando cada unos de los pesos.
            /// i columnas, j renglones
            for (int i = 1; i <= m; i++)
            {
                // recorre para j
                for (int j = 1; j <= n; j++)
                {
                    /// si son iguales en posiciones equidistantes el peso es 0
                    /// de lo contrario el peso suma a uno.
                    costo = (s[i - 1] == t[j - 1]) ? 0 : 1;
                    d[i, j] = System.Math.Min(System.Math.Min(d[i - 1, j] + 1,  //Eliminacion
                        d[i, j - 1] + 1),  //Inserccion 
                        d[i - 1, j - 1] + costo);  //Sustitucion
                }
            }
            /// Calculamos el porcentaje de cambios en la palabra.
            if (s.Length > t.Length)
                porcentaje = ((double)d[m, n] / (double)s.Length);
            else
                porcentaje = ((double)d[m, n] / (double)t.Length);
            return d[m, n];
        }

Reducción Dimensiones Usando Entropía

2011-10-12T12:53:00.001-05:00

Para este algoritmo se utilizó el algoritmo de Distancia de Hamming y se realizaron todas las adecuaciones para ir buscando la mínima entropía eliminando columnas de datos hasta al final tener solamente 2 columnas. Tener en cuenta que como el desarrollo se realizo en c# las columnas inician en 0.

Para ayuda de vectores se usó la librería Math.Net Numerics

public static string Entropy(ArrayList arrText)
{
    string retorno = "";
    //Total de columnas
    string sT = arrText[0].ToString();
    double F = (double)Tools.ContarEjemplos(sT, ",");
    double E = 0;
    int i, j = 0;
    DenseMatrix S = new DenseMatrix(arrText.Count, arrText.Count, 0);

    for (i = 0; i < arrText.Count; i++)
    {
        for (j = i + 1; j < arrText.Count; j++)
        {
            S[i, j] = Tools.HammingDistance(arrText[i].ToString().Replace(",", ""), arrText[j].ToString().Replace(",", "")) / F;
        }
    }
    //A diferencia de la formula en c# la matrix inicia en 0, 0
    for (i = 0; i < arrText.Count - 1; i++)
    {
        for (j = i + 1; j < arrText.Count; j++)
        {
            if (S[i, j] > 0 && S[i, j] < 1)
            {
                E += (S[i, j] * Math.Log10(S[i, j]) + (1 - S[i, j]) * Math.Log10(1 - S[i, j]));
            }
        }
    }
    E = -1 * E;
    //Calcular las entropias eliminando una columna. Se guarda la minima.
    double MinE = E;
    double NewE = E;
    int indiceMinE = 0;
    double TempE = 0;
    int totalF = (int)F;
    for (int features = totalF; features >= 2; features--)
    {
        F = features;
        indiceMinE = 0;
        for (int f = 0; f < F; f++)
        {
            S.Clear();
            TempE = 0;

            for (i = 0; i < arrText.Count; i++)
            {
                for (j = i + 1; j < arrText.Count; j++)
                {
                    S[i, j] = Tools.HammingDistance(arrText[i].ToString().Replace(",", "").Remove(f, 1), arrText[j].ToString().Replace(",", "").Remove(f, 1)) / (F - 1);
                }
            }
            //A diferencia de la formula en c# la matrix inicia en 0, 0
            for (i = 0; i < arrText.Count - 1; i++)
            {
                for (j = i + 1; j < arrText.Count; j++)
                {
                    if (S[i, j] > 0 && S[i, j] < 1)
                    {
                        TempE += (S[i, j] * Math.Log10(S[i, j]) + (1 - S[i, j]) * Math.Log10(1 - S[i, j]));
                    }
                }
            }
            TempE = -1 * TempE;
            if (Math.Abs(E - TempE) < MinE)
            {
                MinE = Math.Abs(E - TempE);
                NewE = TempE;
                indiceMinE = f;
            }
        }
        //Se suma 1 al indice porque en c# los indices inician en 0
        retorno += "Columna con Entropia minima: " + (indiceMinE + 1).ToString() + "\n";
        //Eliminar la caracteristica del conjunto de datos
        for (i = 0; i < arrText.Count; i++)
        {
            arrText[i] = arrText[i].ToString().Replace(",", "").Remove(indiceMinE, 1);
        }
        //Asignar el nuevo E
        E = NewE;
        MinE = E;
    }
    return retorno;
}

Para la prueba de este algoritmo se usaron los siguientes datos como datos de prueba:

X,1,U,5,P,A
Y,2,D,7,O,B
Y,2,U,8,Q,C
X,1,U,7,O,B
Z,3,P,8,Q,C
Y,2,P,5,P,A
X,3,U,5,P,A

Resultados Obtenidos:
Columna con Entropía mínima: 4
Columna con Entropía mínima: 1
Columna con Entropía mínima: 3
Columna con Entropía mínima: 1
Columna con Entropía mínima: 1

Los resultados indican:

Iteración 1: La columna que minimiza la diferencia entre la entropía F y el valor correspondiente a la entropía sin esa columna es la 4. Eliminando esa columna del conjunto de datos obtenemos:

X,1,U,P,A
Y,2,D,O,B
Y,2,U,Q,C
X,1,U,O,B
Z,3,P,Q,C
Y,2,P,P,A
X,3,U,P,A

Iteración 2: La columna que minimiza la diferencia entre la entropía F y el valor correspondiente a la entropía sin esa columna es la 1. Eliminando esa columna del conjunto de datos obtenemos:

1,U,P,A
2,D,O,B
2,U,Q,C
1,U,O,B
3,P,Q,C
2,P,P,A
3,U,P,A

Iteración 3: La columna que minimiza la diferencia entre la entropía F y el valor correspondiente a la entropía sin esa columna es la 3. Eliminando esa columna del conjunto de datos obtenemos:

1,U,A
2,D,B
2,U,C
1,U,B
3,P,C
2,P,A
3,U,A

Iteración 4: La columna que minimiza la diferencia entre la entropía F y el valor correspondiente a la entropía sin esa columna es la 1. Eliminando esa columna del conjunto de datos obtenemos:

U,A
D,B
U,C
U,B
P,C
P,A
U,A

Iteración 5: La columna que minimiza la diferencia entre la entropía F y el valor correspondiente a la entropía sin esa columna es la 1. Eliminando esa columna del conjunto de datos obtenemos:

A
B
C
B
C
A
A

Al visualizar los resultados obtenidos podemos tener una visualización inicial de un ranking de importancia para cada una de las columnas o características de nuestro conjunto de datos. Esto por si deseamos posteriormente reducir la dimensión de este.

Minimización de Error en Discretización Binning

2011-10-12T12:45:00.001-05:00

Esta implementación se realizó en C# con ayuda de la librería Math.Net Numerics para matrices y vectores.

Los pasos que se siguieron fueron los siguientes:

1. Organización de los datos de menor a mayor
2. Ejecución del algoritmo BIN Equal-Depth
3. Realizar medición del error inicial y realizar todos los posibles movimientos de ítems de izquierda a derecha para ver si se minimiza el error.
4. Realizar todos los posibles movimientos de derecha a izquierda para ver si se minimiza el error.
5. En caso de que el error luego de efectuar los movimientos sea inferior al error inicial se retorna al paso 3. Si ya el error no se minimiza más se finaliza. El error se mide en base a la suma de las desviaciones con respecto al promedio en cada uno de los grupos.

public static DenseVector[] MinimizeER(DenseVector[] vBins)
{
    DenseVector[] vOutput = new DenseVector[vBins.Length];
    int i = 0;
    int j = 0;

    double Error = CalcularTotalError(vBins);
    double ErrorInicial = Error;
    double ErrorFinal = 0;
    //While Global para volver a iterar si el error todavia se puede disminuir
    while (ErrorInicial > ErrorFinal)
    {
        ErrorInicial = Error;
        //Realizar ajustes en movimientos de items de Izquierda a Derecha
        for (j = 0; j < vBins.Length - 1; j++)
        {
            for (i = 0; i < vBins.Length; i++)
            {
                if (i == j)
                {
                    vOutput[i] = (DenseVector)vBins[i].SubVector(0, vBins[i].Count - 1);
                    //al siguiente vector se le agrega el ultimo item del anterior y la totalidad del siguiente
                    //Se convierte en array antes de iniciar
                    var list = new List();
                    list.AddRange(vBins[i].SubVector(vBins[i].Count - 1, 1).ToArray());
                    list.AddRange(vBins[i + 1].ToArray());
                    vOutput[i + 1] = new DenseVector(list.ToArray());
                    i++; //Esta suma es necesaria ya que si en el i+1 se nos iba por el else, se perdia lo realizado.
                }
                else
                {
                    vOutput[i] = vBins[i];
                }
            }
            //Evaluar el error. Si se redujo volver a realizar el proceso con el mismo j
            if (Error > CalcularTotalError(vOutput))
            {
                j = j - 1; //Se devuelve para que ensaye moviendo en el mismo par de bins
                Error = CalcularTotalError(vOutput);
                vBins = (DenseVector[])vOutput.Clone();
            }
        }

        //Realizar ajustes en movimientos de items de Derecha a Izquierda
        for (j = 1; j < vBins.Length; j++)
        {
            for (i = 0; i < vBins.Length; i++)
            {
                if (i == j)
                {
                    vOutput[i] = (DenseVector)vBins[i].SubVector(1, vBins[i].Count - 1);
                    //al siguiente vector se le agrega el ultimo item del anterior y la totalidad del siguiente
                    //Se convierte en array antes de iniciar
                    var list = new List();
                    list.AddRange(vBins[i - 1].ToArray());
                    list.AddRange(vBins[i].SubVector(0, 1).ToArray());
                    vOutput[i - 1] = new DenseVector(list.ToArray());
                }
                else
                {
                    vOutput[i] = vBins[i];
                }
            }
            //Evaluar el error. Si se redujo volver a realizar el proceso con el mismo j
            if (Error > CalcularTotalError(vOutput))
            {
                j = j - 1; //Se devuelve para que ensaye moviendo en el mismo par de bins
                Error = CalcularTotalError(vOutput);
                vBins = (DenseVector[])vOutput.Clone();
            }
        }
        ErrorFinal = Error;
    }
    return vOutput;
}

Iniciando con:
Bin 1: 1,1,2,2,3,3
Bin 2: 3,4,5,5,5
Bin 3: 5,7,8,9,10

Se Obtuvo:
Bin 1: 1,1,2,2,3,3,3,4
Bin 2: 5,5,5,5,7
Bin 3: 8,9,10

Respecto a lo obtenido en este último algoritmo, creo que teniendo en cuenta que se nos da la cantidad de Bins, se puede obtener una de las clasificaciones óptimas, o una aproximación muy cercana, teniendo en cuenta que minimizamos el error total.

Algoritmos de Discretización Binning

2011-10-12T12:34:00.001-05:00

En Mineria de Datos una de las técnicas que podemos emplear para realizar la discretización de nuestros datos es la de separar nuestros datos en BINs (Binning discretization).

Esta discretización hace parte del pre-procesamieto inicial que debemos realizar a los datos.

El desarrollo de los algoritmos se realizó en .NET con el lenguaje c#. Para ayuda de vectores se usó la librería Math.Net Numerics.

Para los resultados aquí mostrados se usaron 3 Bins y se usaron los siguientes datos:
3,2,1,5,4,3,1,7,5,3,8,10,9,5,5,2

Para el algoritmo BIN se implementaron los siguientes modos:

Anchos Iguales (BIN Equal-Width)
Este algoritmo organiza los Bins en grupos donde el salto de cada uno es: (maximo-minimo)/N, donde N es el numero de bins que se desean.

public static DenseVector[] ObtenerBinsEqualWidth(double[] data, int nBins)
{
    int i = 0;

    double maximo = data.Max();
    double minimo = data.Min();

    //Se organizan los Bins con saltos iguales
    double salto = (maximo - minimo) / nBins;

    //Organizar de menor a mayor el arreglo
    var sortedlData = data.OrderBy(x => x);

    DenseVector[] vBins = new DenseVector[0];

    i = 0;
    double inicial = minimo;
    while (i < nBins)
    {
        //Redimensiona el arreglo para el nuevo BIN y luego asigna los items cuyo index se encuentre en el rango.
        Array.Resize(ref vBins, vBins.Length + 1);
        vBins[i] = new DenseVector(sortedlData.Where((x, index) => x >= inicial && x <= inicial + salto).ToArray());
        i++;
        inicial = i * salto + 1;
    }

    return vBins;
}

Resultados:
Bin 1: 1,1,2,2,3,3,3,4
Bin 2: 5,5,5,5,7,8
Bin 3: 9,10

Como el salto en este caso 10-1/3 es 3 el primer grupo tiene de 1 hasta 1+3=4, el segundo tiene desde 5 hasta 5+3=8 y el ultimo tiene los restantes.

Igualando Cantidad x Grupo (BIN Equal-Depth)
Este algoritmo distribuye uniformemente los datos dentro de los grupos tratando de que cada grupo quede con la misma cantidad de datos.

En caso de no lograr asignar la misma cantidad de datos a cada grupo, los primeros grupos quedan con un dato de más.

public static DenseVector[] ObtenerBinsEqualDepth(double[] data, int nBins)
{
    int i = 0;
    //Organizar de menor a mayor el arreglo
    var sortedlData = data.OrderBy(a => a);

    //BIN Equal-Depth
    int tam, res;
    DenseVector[] vBins = new DenseVector[0];
    //Realizar division Entera y Residuo para sacar tamaño de grupos
    tam = Math.DivRem(data.Length, nBins, out res);
    i = 0;
    int indexGroup = 0;
    if (res > 0)
    {
        while (res > 0)
        {
            //Redimensiona el arreglo para el nuevo BIN y luego asigna los items cuyo index se encuentre en el rango. Se suma uno al tamaño por el residuo
            Array.Resize(ref vBins, vBins.Length + 1);
            vBins[i] = new DenseVector(sortedlData.Where((f, index) => index >= indexGroup && index < indexGroup + tam + 1).ToArray());
            indexGroup = indexGroup + tam + 1;
            i++;
            res--;
        }
    }
    while (i < nBins)
    {
        //Redimensiona el arreglo para el nuevo BIN y luego asigna los items cuyo index se encuentre en el rango.
        Array.Resize(ref vBins, vBins.Length + 1);
        vBins[i] = new DenseVector(sortedlData.Where((f, index) => index >= indexGroup && index < indexGroup + tam).ToArray());
        indexGroup = indexGroup + tam;
        i++;
    }

    return vBins;
}

Resultados:
Bin 1: 1,1,2,2,3,3
Bin 2: 3,4,5,5,5
Bin 3: 5,7,8,9,10

En este caso se trataron de distribuir la misma cantidad de números en cada bin. Como en total eran 16 datos se distribuyo 6 en el primer grupo y 5 en los dos siguientes.

Grupos con Suavizado (BIN with Smoothing)
Para este algoritmo se dejaron las opciones de valor medio y promedio de los datos.

En los dos casos se ejecuta primero el BIN Equal-Depth y sobre estos resultados se realiza el remplazo en cada bin, ya sea por el valor medio o por el promedio.

public static DenseVector[] ObtenerBinsStatistic(DenseVector[] vBins, int type)
{
    DenseVector[] vOutput = new DenseVector[vBins.Length];
    int i = 0;
    foreach (DenseVector bin in vBins)
    {
        var statistics = new DescriptiveStatistics(bin);
        if (type == 1)
        {
            vOutput[i] = new DenseVector(bin.Count, statistics.Median);
        }
        else
        {
            vOutput[i] = new DenseVector(bin.Count, statistics.Mean);
        }
        i++;
    }
    return vOutput;
}

Resultados con el valor medio:
Bin 1: 2,2,2,2,2,2
Bin 2: 5,5,5,5,5
Bin 3: 8,8,8,8,8

Si nos fijamos en estos bins el valor corresponde justo al valor medio de los resultados obtenidos con el algoritmo de BIN Equal-Depth.

Resultados con el promedio:
Bin 1: 2,2,2,2,2,2
Bin 2: 4.4,4.4,4.4,4.4,4.4
Bin 3: 7.8,7.8,7.8,7.8,7.8

Estos resultados corresponden al valor promedio de los resultados obtenidos con el algoritmo de BIN Equal-Depth.

Publicación en Twitter con ASP.NET

2011-02-20T19:21:00.001-05:00

En un post anterior habia descrito la forma de publicar post mediante programación, pero Twitter cambio la forma de hacerlo. Ahora vamos a hacerlo mediante la libreria TwitterVB.

Primero debemos descargar la dll llamada TwitterVB.dll desde TwitterVB y agregarla a nuestro proyecto en la carpeta bin.

Luego accedemos a Twitter y luego al link https://dev.twitter.com/apps para registrar nuestra nueva aplicación que se actualizará desde código. Una vez registremos la aplicación vamos a obtener dos datos que vamos a necesitar. El primero es el Customer key y el segundo es el Customer Secret.

Ya desde programación realizamos lo siguiente:

TwitterVB2.TwitterAPI tw = new TwitterVB2.TwitterAPI();
string url = tw.GetAuthorizationLink(sCustomerKey, sCustomerSecret);

La url que obtenemos desde programación la invocamos en nuestro navegador... esto nos mostrará una ventana de validación de permisos de Twitter. Hacemos clic en permitir acceso y esto nos mostrará un PIN de validación:

El numero de validación nos servirá para obtener el Token y el TokenSecret. Estos los necesitamos guardar ya que son los que nos permitiran publicar Twitts. Actualmente estos datos son persistentes por lo cual podemos almacenarlos, pero si Twitter llegara a cambiar la autenticación probablemente deberiamos actualizarlos. Yo llevo varios meses funcionando asi y todavia no han cambiado.

Para obtener el Token y el TokenSecret se debe ejecutar:

bool isValidPIN = tw.ValidatePIN("4444444");

if (isValidPIN) {
  string OAuthToken = tw.OAuth_Token();
  string OAuthTokenSecret = tw.OAuth_TokenSecret();
}

Una vez ya tenga el token y el tokenSecret puede publicar los mensajes por medio de:

tw.AuthenticateWith(ConsumerKey, ConsumerKeySecret, OAuthToken, OAuthTokenSecret);
tw.Update("Mi primer mensaje");

Y ya... Como comentaba tanto el Token como el TokenSecret hasta el momento son persistentes por lo cual podria guardarlos en un archivo de configuración, base de datos o llamarlos directamente.

Guardar comentarios con api de facebook

2011-01-09T20:51:00.001-05:00

La funcionalidad de guardar comentarios de uno de mis portales se desactivo debido a actualizaciones en la api de facebook.

Aunque la funcionalidad de escribir los comentarios se mantuvo intacta, la de guardarlos en mi base de datos se perdió.

El código que tenia era algo como lo siguiente:

<script src="http://static.ak.connect.facebook.com/js/api_lib/v0.4/FeatureLoader.js.php" type="text/javascript"></script>
<div id="divfb_connect"></div>

<script type="text/javascript">
    var fbcDiv = document.getElementById('divfb_connect');
    var fbcUrl = 'http://www.mysite.com' + location.pathname;
    var fbcPath = location.pathname;
    var fbcTitle = document.title;
    var fbcXid = 'asdfqwer';

    fbcDiv.innerHTML = '<fb:comments numposts="10" candelete="true" canpost="true" url="' + fbcUrl + '" title="' + fbcTitle + '" xid="' + fbcXid + '" quiet="true"></fb:comments>';
    FB.init('21asdf231asd23f1', "xd_receiver.html");

    FB_RequireFeatures(["Comments"], function() {
    FB.CommentClient.add_onComment(function(comment) {

    var url = 'mypage.aspx?id=' + 279763 + '&comments=' + comment.post + '&user=' + comment.user;
    $.get(url, "", function handle_comments(data, status) {
        //code here
    });
    });

    });
</script>

Investigando encontré que habia que realizar un cambio para usar la nueva versión. En esta se debia usar:

<div id="fb-root"></div>
<script>
window.fbAsyncInit = function() {
    FB.init({appId: 'your app id', status: true, cookie: true,
             xfbml: true});
};
(function() {
    var e = document.createElement('script'); e.async = true;
    e.src = document.location.protocol +
      '//connect.facebook.net/en_US/all.js';
    document.getElementById('fb-root').appendChild(e);
}());
</script>

Y para poder controlar el evento de cuando se agrega un comentario se usa la función:

FB.Event.subscribe('comments.add', function(response) {
        alert('Comment Added')
});

La cual debe ir dentro de la función de window.fbAsyncInit despues de la función init, y dentro del fb:comment hay que agregar la propiedad notify en true.

Pero ahí fue donde iniciaron los problemas. El objeto response no posee propiedades que permitan acceder ni al id del usuario ni al texto que escribio como comentario. Pero he aqui una solución ingeniosa... la idea es obtener el comentario que se acabo de escribir. El código queda:

<div id="aclfb_connect"></div>
<script type="text/javascript">
    var fbcDiv = document.getElementById('aclfb_connect');
    var fbcUrl = 'http://www.mysite.com' + location.pathname;
    var fbcPath = location.pathname;
    var fbcTitle = document.title;
    var fbcXid = 'asdfqwer';

    fbcDiv.innerHTML = '<fb:comments numposts="10" candelete="true" canpost="true" url="' + fbcUrl + '" title="' + fbcTitle + '" xid="' + fbcXid + '" quiet="true" notify="true"></fb:comments><div id="fb-root"></div>';

    window.fbAsyncInit = function () {
        FB.init({ appId: '21asdf231asd23f1', status: true, cookie: true,
            xfbml: true
        });
        FB.Event.subscribe('comments.add', function (resp) {
          FB.api({
              method: 'comments.get',
              xid: fbcXid
          },
          function (response) {
              var fb_commentData = {
                  xid: response[0].xid,
                  fromid: response[0].fromid,
                  time: response[0].time,
                  text: response[0].text,
                  id: response[0].id,
                  username: response[0].username,
                  reply_xid: response[0].reply_xid,
                  post_id: response[0].post_id,
                  app_id: response[0].app_id,
                  object_id: response[0].object_id
              };
              var url = 'mypage.aspx?id='+ response[0].xid
+'&comments=' + response[0].text + '&user=' + response[0].fromid + '&id=' + response[0].id + '&username=' + response[0].username + '&reply_xid=' + response[0].reply_xid + '&post_id=' + response[0].post_id;
              $.get(url, "", function handle_comments(data, status) {
                  //code here
              });

          });
        });
    };
    (function () {
        var e = document.createElement('script'); e.async = true;
        e.src = document.location.protocol +
      '//connect.facebook.net/en_US/all.js';
        document.getElementById('fb-root').appendChild(e);
    } ());

</script>

Y por fin! logré guardar los comentarios que los usuarios escribian en mi portal.

IIRF en Windows 2008 64bits IIS 7.X

2010-12-08T08:44:00.000-05:00

En nuestro último post del IIRF describimos la manera en que se realiza la instalación del IIRF 2.1 en Intertet Information Server sobre Windows de 32bits, pero he encontrado que en Windows 2008 de 64 bits existe un problema ya que si se sigue el mismo procedimiento, el sitio no va a funcionar.

Existen dos posibles soluciones.

La primera es usar el mismo procedimiento, pero en opciones avanzadas del Applitation Pool colocar en True la caracteristica llamada "Enable 32-Bit Applications".

La segunda opción es descargar el paquete de 64bits (Se descarga de la misma página seleccionando la que finaliza en x64-bin.zip) y colocar la dll IIRF.dll en la ruta: "C:\Windows\SysWOW64\inetsrv". Los permisos son los mismos y ya, con esto deberia funcionar.

Crear Base de Datos ASPState

2010-09-09T12:35:00.003-05:00

Luego de completar la instalación del framework 2.0 de .NET si necesitamos crear la base de datos ASPState debemos abrir el command y navegar a la ruta:

C:\Windows\Microsoft.NET\Framework\v2.0.50727>

Ya en esta ruta podemos ejecutar:

aspnet_regsql.exe -ssadd -sstype p -S {Server} -U {Username} -P {Password}

Crear enlace entre carpetas windows

2010-08-14T15:35:00.000-05:00

A veces es necesario definir una ruta en windows y que esta ruta permita ser manejada por ejemplo desde FTP o RED para acceder a otra ruta fisica en el disco. Para esto existe el comando mklink dentro de windows vista y posteriores.

Por ejemplo si tenemos una ruta c:\sitios\entrada\usuarios\ftp\ftp_user1\data\ y queremos que se pueda acceder desde c:\ftp_user1_data\ podemos hacerlo por medio del siguiente comando:

C:\sitios\entrada\usuarios\ftp\ftp_user1\data\>MKlink /D web c:\ftp_user1_data\
symbolic link created for data <<===>> c:\ftp_user1_data

El comando nos permite crear diferentes tipos de enlaces y tiene las siguientes opciones:

MKLINK [[/D] | [/H] | [/J]] Link Target

        /D      Creates a directory symbolic link. Default is a file
                symbolic link.
        /H      Creates a hard link instead of a symbolic link.
        /J      Creates a Directory Junction.
        Link    specifies the new symbolic link name.
        Target specifies the path (relative or absolute) that the new link refers to.

Ionics Isapi Rewrite Filter 2 1

2010-08-14T13:50:00.000-05:00

En nuestro post Urls sin extensión para sitios ASP.NET explicabamos la manera en que se debe configurar la extensión isapi Ionics Isapi Rewrite Filter 1.2, pero ya existe la versión 2.1 la cual tiene algunos cambios con respecto a su versión anterior.

Ya con esta nueva versión, tenemos la posibilidad de tener 2 archivos .ini de configuración. El primero colocado en junto con la dll IIRF.dll llamado IirfGlobal.ini que sirve para dar parametros globales de configuración y otro que se debe llamar iirf.ini que debe ir en la raiz de nuestra aplicación web. El ini global es opcional, el obligatorio es el que se debe encontrar en la raiz de nuestra aplicación.

Esto para tenerlo en cuenta en caso de tener planeada alguna migración o upgrade de la versión.

WebDev WebServer Visual Studio 2010

2010-08-14T09:11:00.000-05:00

Dentro de Visual Studio 2010 ahora tenemos 2 diferentes WebDev.WebServer que podemos usar. Ellos se encuentran en la ruta:

C:\Program Files\Common Files\microsoft shared\DevServer\10.0\

El primero de ellos se llama WebDev.WebServer20.EXE y lo podemos usar en caso de proyectos ASP.NET versiones 2.0, 3.0 o 3.5

El segundo se llama WebDev.WebServer40.EXE y lo podemos usar en caso de proyectos ASP.NET versiones 4.0

Este servidor web posee diferentes opciones que nos permiten por ejemplo elegir si queremos que nuestro proyecto arranque en la raiz de un sitio web, arranque como directorio virtual, tener un puerto personalizado especifico, etc.

Por ejemplo actualmente yo lo uso dentro del entorno del visual studio, ejecutandolo por medio del menú Tools > External Tools...

Si lo queremos programar allí podemos hacer clic en el botón Add, y luego diligenciar los campos de Title, Command y Argument.

En mi caso los dejé como sigue:
Title: My Web Site
Command: C:\Program Files\Common Files\microsoft shared\DevServer\10.0\WebDev.WebServer40.EXE
Argument: /port:3000 /path:"D:\1_SITES\MyWebSite" /vpath:"/"

Luego dentro del sitio web es necesario especificar que deseamos un custom web server y para esto hacemos clic derecho sobre nuestro proyecto web y luego en la opción Property Pages, allí buscamos las opciones de inicio Start Options.

Dentro de la sección de Server seleccionamos Use custom server y especificamos la url.

Ya con esto podemos tener nuestro proyecto con servidor personalizado al cual podemos especificarle puerto, path y virtual path. Siempre antes de iniciar a ejecutar nuestro proyecto debemos iniciar este web server.

Conocer IP y hostname del cliente en ASP.NET

2010-07-22T19:47:00.004-05:00

El presente post pretende explicar el funcionamiento de los sitios que permiten identicicar cual es la ip publica de los usuarios en internet.

Para obtener la IP de un usuario que está navegando en un sitio Web ASP.NET se puede realizar lo siguiente:

Acceder al dato del objeto "Request.UserHostAddress", por ejemplo

string sIP = Request.UserHostAddress;

ó también con:

string sIP = Request.ServerVariables["REMOTE_ADDR"].ToString();

Este procedimiento nos permite obtener la ip pública del usuario que está visitando nuestro sitio web.

Si adicional a la IP queremos conocer el host name (HostName) o nombre del equipo con el cual este está siendo identificado en internet podemos hacer lo siguiente:

string HostName =System.Net.Dns.GetHostByAddress(Request.UserHostAddress).HostName;

La función "System.Net.Dns.GetHostByAddress" obtiene el nombre del host por medio de su IP.

Un ejemplo de esto funcionando es el sitio miip.co que permite a los usuarios conocer su ip publica.

Agregar opcion adicional DropDownList LINQ

2010-05-01T15:50:00.009-05:00

Normalmente en nuestras aplicaciones tenemos tablas que nos guardan los "diccionarios" que eventualmente necesitamos cargar en un DropDownList o un ListBox.

Cuando cargamos los datos al DropDown, en muchas ocasiones es muy útil colocar la opción por defecto, una opción como "Seleccione", "Choose", "Elija uno" o con algun texto informativo que le indique al usuario que debe hacer clic en el control y seleccionar una de las opciones.

En Linq podemos adecuar estas opciones de la siguiente manera:

//Creamos una instancia de nuestro DataContextClass y obtenemos los datos del diccionario dandole nombre a cada uno de los campos:

DCC db = new DCC();
var DiccionarioX = (from l in db.Dic_X orderby l.Nombre select new { pk_id = l.Pk_id, Nombre = l.Nombre });

//Creamos nuestro item seleccione asignandole los mismos nombres y lo concatenamos con nuestro resultado de diccionario utilizando la propiedad .ToList(). Esto lo asignamos a la variable results

var results = (new[] { new { pk_id = 0, Nombre = "--Seleccione--" } }).Concat(DiccionarioX.ToList());

//Finalmente asignamos el datasource de nuestro DropDownList y le hacemos el DataBind()

       drpMyDiccionario.Items.Clear();
       drpMyDiccionario.DataSource = results;
       drpMyDiccionario.DataTextField = "nombre";
       drpMyDiccionario.DataValueField = "pk_id";
       drpMyDiccionario.DataBind();

Ya con esto nuestro combo desplegable tendrá la opción por defecto.

Agregar nuevos campos a membership

2010-05-01T15:35:00.002-05:00

Normalmente en nuestras aplicaciones ASP.NET que requieren de autenticación usamos membership, pero ocurre el problema de que por defecto membership no contiene las opciones para colocar campos al usuario como lo son el nombre, apellido, ciudad y demás que normalmente necesitamos para un sitio Web. Pero esto tiene solución.

Luego de completar los procedimientos de agregar membership a la base de datos y agregar membership al sitio Web, podemos incluir dentro de la sección <system.web> de nuestro web.config lo siguiente con el fin de poder tener disponibles nuevos campos para el registro de nuestros usuarios:

<profile defaultProvider="SqlProvider">
<providers>
    <clear/>
      <add name="SqlProvider" type="System.Web.Profile.SqlProfileProvider" connectionStringName="MyConnectionString" applicationName="MyWeb"/>
    </providers>
    <properties>
      <add name="Names"/>
      <add name="Country"/>
    </properties>
</profile>

En el caso de este ejemplo hemos agregado un campo nuevo para los nombres y otro para el país.

En nuestro control de registro (asp:CreateUserWizard), debemos agregarle los controles que nos van a permitir obtener los datos del usuario. Para el presente ejemplo se crearon 2 controles text box, uno con el nombre de "Names" y el otro con el nombre de "Country", y luego de esto es necesario agregar el evento "oncreateduser".

Si por ejemplo nuestro control de creación de usuarios se llama logCreate el evento quedaría de la siguiente manera:

    protected void logCreate_CreatedUser(object sender, EventArgs e)
    {
        ProfileCommon userProfile = (ProfileCommon)ProfileCommon.Create(logCreate.UserName, true);

        TextBox userNameTextBox = (TextBox)CreateUserWizardStep1.ContentTemplateContainer.FindControl("Names");
        TextBox CountryTextBox = (TextBox)CreateUserWizardStep1.ContentTemplateContainer.FindControl("Country");

        userProfile.Names = userNameTextBox.Text;
        userProfile.Country = CountryTextBox.Text;

        userProfile.Save();
    }

Y listo.

Ejecutar programa como servicio windows server 2008

2010-03-27T12:44:00.005-05:00

Luego de buscar como ejecutar un programa como servicio de Windows 2008 he encontrado que se puede seguir parte del procedimiento que se usa para instalar un programa como servicio de windows 2003.

Lo primero que debemos hacer es conseguirnos el programa "srvany.exe" que se encuentra dentro del paquete de Windows Resouce Kit. Una vez tenemos el programa podemos copiarlo a alguna ubicación donde lo podamos referenciar. Por ejemplo a C:\Windows\System32\

Paso 1: Crear el servicio.

Para crear el servicio en Windows 2008 debemos ejecutar el siguiente comando:
sc create NombreServicio binPath= C:\Windows\System32\srvany.exe DisplayName= "Nombre Servicio"

Paso 2: Editar el registro y finalizar.

El procedimiento de edición del registro y configuración de este es el mismo que describo en el post de instalar programa como servicio de Windows.

Abrir banner adsense en ventana nueva

2010-03-07T12:25:00.006-05:00

Ahora luego de preguntar e investigar por fin he encontrado una manera de abrir un banner de adsense en ventana nueva sin necesidad de tener una cuenta premium de adsense. La cuenta premium es para pocos ya que los requisitos que pide google son más de 20 millones de visitas mensuales o más de 5 millones de búsquedas al mes.

Luego de evaluar el administrador de anuncios gratis de google me surgio la idea de intentar crear un nuevo espacio publicitario al cual le activé las opciones de abrir en ventana nueva y la configuración de adsense.

A este espacio publicitario le asocié un pedido donde intentaba buscar pautantes para uno de mis sitios y luego coloqué el script necesario dentro de este (Funciona con un script similar a como funciona adsense, aunque este requiere de 2 scripts). Pasaron unos días y decidí no seguir más con ese pedido y cancelarlo pero ahí me di cuenta que mi sitio inicio a colocar los banners de adsense y estos estaban abriendo en ventana nueva.

Le habilité la caracteristica al banner superior de 468x60 de ToolsForOgame y ahora este banner está abriendo en ventana nueva y contando los ingresos dentro de mi cuenta Adsense.

Por mucho tiempo estube buscando como hacer esto y terminé encontrándomelo por accidente.

Para hallar el script necesario a colocar en la página web en la que queremos que aparezca el anuncio se debe hacer clic en el enlace "Generate tags" de las opciones izquierdas que se ven en la imagen.

Espero les sea de utilidad.

Administrador de anuncios gratis google

2010-03-07T11:44:00.003-05:00

Hace unos pocos días recibí un email de google que me indicaba que ya podía yo directamente contactar a los clientes y ofrecerles servicios dentro de mi portal para administrar anuncios con coste por cada mil impresiones (CPM), la de coste por clic (CPC) y la de coste por día (CPD).

Entré a investigar de que se trataba y consistía en que google puso a disposición de la gente el administrador de anuncios dfp (DoubleClick for Publishers) small business totalmente gratis.

Dentro de las caracteristicas principales sobresalen:

Si no tienes inventario de anuncios puedes elegir mostrar Adsense
Administración del inventario,
Optimización de la publicación,
Orientación de anuncios,
Coordinación de la publicidad, publicación de anuncios y reserva de pedidos,
Gestión de mensajes publicitarios y de contenido multimedia,
Informes,
Navegación por la interfaz de usuario,
Administración de la cuenta.

En la primera autenticación el sistema de google los guiará hasta la creación del primer pedido, de como administrar el inventario y como crear los primeros espacios publicitarios.

Eliminar prefijo www de un dominio - SEO

2010-02-19T23:32:00.004-05:00

El método para redireccionar la url con www a una sin él que explicaré a continuación se realiza por medio de Ionic's ISAPI Rewrite Filter (IIRF), del cual la instalación y configuración explico en el post de Urls sin extensión para sitios ASP.NET.

Como continuación del post de Redireccionar Default.aspx a la raiz podemos reducir nuestras urls duplicadas con el método que describo a continuación.

Normalmente cuando creamos un sitio web este queda funcionando con 2 urls: una con www y otra sin él y esto nos provoca que se distribuya entre 2 urls el rank de nuestro home y de las demás páginas.

La idea que podemos aplicar es la de realizar una redirección 301 para las personas que abran la página con www redirigiendolos hacia el sitio sin www. También se puede aplicar a la inversa si se desea. Aqui vamos a explicar como hacerlo para redirigir de url con www y que termine respondiendo solamente la que no lo tiene.

Para esto en nuestro archivo de configuración (IsapiRewrite4.ini) podemos agregar lo siguiente:

RewriteCond %{HTTP_HOST} ^www\.midominio\.com [I]
RedirectRule ^(.*) http://midominio.com$1 [I,R=301]

La primera linea nos hace que toda Url que llegue con www se le va a aplicar la siguiente regla. La segunda regla es una instrucción de Redirección que revisa cualquier url (.*) capturamos los datos en $1 y lo que hacemos es redirigirlos a http://midominio.com$1 (la raiz del sitio sin www y despues de este los datos).

Ya la parte de [I,R=301] nos sirve en su orden para ser Insensitive en la url, y realizar el Redirect con 301.

Esto les permitirá aumentar la popularidad de cada uno de los enlaces de su sitio Web.

Redireccionar default.aspx a la raiz

2010-02-19T21:28:00.002-05:00

El método de redirección de Default.aspx a la raiz (/) que explicaré a continuación se realiza por medio de Ionic's ISAPI Rewrite Filter (IIRF), del cual la instalación y configuración explico en el post de Urls sin extensión para sitios ASP.NET.

Actualmente el tema de SEO toma más y más importancia en los sitios webs por lo cual cualquier medida que utilicemos para mejorarlo es bienvenida. La página principal que se encuentra como página por defecto de nuestro sitio web es la página más importante y a la que debemos prestar mayor atención. Si tenemos 2 o más urls posibles con las cuales responda nuestro sitio con nuestra página principal esto implica que estamos distribuyendo el peso de esta página en la cantidad de páginas que nos muestra el home.

Uno de los problemas más frecuentes que se nos presentan a los programadores de sitios Web ASP.NET es que los sitios quedan mostrando el Home con:

HOME/
HOME/Default.aspx

Aquí es donde podemos tomar una medida para reducir estas urls y que solamente una responda. La idea es realizar una redirección 301 para las personas que abran la página de Default.aspx redirigiendolos directamente a la raiz del home.

Para esto en nuestro archivo de configuración (IsapiRewrite4.ini) podemos agregar lo siguiente:

RedirectRule ^/default\.aspx(.*) /$1 [I,R=301]

La instrucción es una instrucción de Redirección que revisa cualquier url que inicie en la raiz con default.aspx, con (.*) capturamos los parámetros en $1 y lo que hacemos es redirigirlos a /$1 (la raiz del sitio y despues de este los parámetros).

Ya la parte de [I,R=301] nos sirve en su orden para ser Insensitive en la url, y realizar el Redirect con 301.

Esto les permitirá aumentar la popularidad que puede tener la raiz de su sitio Web.

Primeros pasos con LINQ

2010-02-01T22:05:00.003-05:00

Para dar los primeros pasos con LINQ y dar inicio al uso de sus funcionalidades puede realizar lo siguiente:

Verificar que tengamos instalado el Framework 3.5

Buscar si tenemos el ejecutable de SqlMetal.exe. Este es un componente que nos permite generar código para mapear desde LINQ a componentes SQL del Framework .NET. Se encuentra dentro del Windows SDK. Este SDK se instala con el Visual Studio 2008 o lo puedes descargar de la página de microsoft e instalarlo independientemente si no posees Visual Studio 2008.

Descargar el SqlMetalBuilder. Este programa nos permite, por medio de una interfaz gráfica, establecer nuestra conexión de bases de datos, elegir el Namespace del código generado, establecer el nombre del Data Context Class y establecer el nombre de las clases base de las Entidades que se generarán. También tiene opciones para elegir si deseamos agregar Vistas, Procedimientos Almacenados y Funciones a nuestro archivo DBML (Tipo de archivo de LINQ). La siguiente imágen contiene un ejemplo de los parametros que podemos especificar para un archivo:

Luego dentro de nuestro proyecto agregamos el archivo DBML generado a la carpeta App_Code. Ya dentro de esta le hacemos clic derecho y seleccionamos la opción "Run Custom Tool". Esto nos generará los archivos de visualización para que podamos editar nuestro DBML en vista diseño desde la interfaz de nuestro Visual Studio.

Luego de hacer estas acciones ya podemos hacer doble clic sobre nuestro archivo para ver la vista diseño.

Por último agregamos el namespace a la página de la cual deseamos hacer los llamados a la base de datos y empezamos a utilizar LINQ

Programar Backup SQL Server Express

2010-01-31T13:19:00.001-05:00

SQL Express 2005 y 2008 no tienen incluido el SQL Agent que es el que nos permite programar JOBS para ejecutarse periódicamente en nuestras bases de datos.

Pero podemos seguir el siguiente procedimiento si queremos por ejemplo programar un backup diario de alguna de nuestras bases de datos.

1. Buscar el ejecutable de sqlcmd.exe. Dentro de SQL Express 2005 se encuentra en:
"C:\Program Files\Microsoft SQL Server\90\Tools\Binn\sqlcmd.exe"
y dentro de SLQ Express 2008 se encuentra en:
"C:\Program Files\Microsoft SQL Server\100\Tools\Binn\sqlcmd.exe"

2. Desde la interfaz gráfica del Management Studio podemos seguir los pasos para realizar el backup, pero justo antes de finalizar lo que hacemos es guardar el Script. Dentro del management studio colocamos la ruta donde deseamos guardar nuestro backup y seleccionamos las opciones que deseamos. Luego hacemos clic en el boton que nos permite generar el script, y seleccionamos la opción "Script Action to New Query Windows" y guardamos el archivo o seleccionamos "Script Action to File".

3. Creamos un archivo .bat que es el que vamos a programar por medio del Programador de tareas o Task Scheduler. Dentro del archivo bat colocamos el siguiente comando:

"C:\Program Files\Microsoft SQL Server\100\Tools\Binn\sqlcmd.exe" -S SRVNAME\SQLEXPRESS -i C:\BBDD\MyScript.sql -o C:\BBDD\Restore.log

Importante mantener las comillas (") dentro de la parte inicial del comando ya que como la ruta contiene un espacio es necesario definirlo de esta manera. SRVNAME se debe reemplazar por el nombre correspondiente del servidor, C:\BBDD\MyScript.sql debe ser la ruta donde se guardó el script que realiza el backup y C:\BBDD\Restore.log debe ser la ruta donde se desea guardar el log de restauración.

4. Por último se abre el Programador de Tareas o Task Scheduler, se crea una nueva tarea para ejecutar el bat y se definen las características de ejecución.

Configuración inicial membership

2010-01-09T12:37:00.004-05:00

Antes de seguir primero debe revisar que ya haya completado lo siguiente:

A. Agregar membership a la base de datos

B. Agregar membership al sitio web

La configuración inicial del membership se realiza de la siguiente manera:

1. Abrir el proyecto en Visual Studio .NET

2. Ir al menú WebSite y elegir la opción ASP .NET Configuration

3. Dentro del sitio web administrativo ya podemos crear los roles, usuarios iniciales y configuraciones especiales que deseemos. La configuración de Roles y Usuarios se realiza a traves de la pestaña "Security".

Instalar programa como servicio Windows

2009-12-23T09:07:00.023-05:00

En el siguiente enlace puede encontrar los detalles de como instalar un programa como servicio en Windows Vista, Windows Server 2008 o Windows 7.

En este post encontrará como instalar un programa como servicio en Windows XP o Server 2003. Para esto se debe realizar lo siguiente:

Paso 1: Descargar el resource Kit
Descargar e instalar el "Windows Server 2003 Resource Kit Tools" que se encuentra en la página de Microsoft.

Abrir la linea de comandos para realizar el registro del servicio. Dentro de la linea de comandos nos vamos a la carpeta: "C:\Program Files\Windows Resource Kits\Tools"

Paso 2: Crear el servicio
En la linea de comandos escribimos el comando que nos va a permitir crear el servicio:
instsrv "Nombre de nuestro servicio" "C:\Program Files\Windows Resource Kits\Tools\srvany.exe"

Luego de ejecutar este comando la linea de comandos mostrará el siguiente mensaje:

The service was successfuly added!

Make sure that you go into the Control Panel and use
the Services applet to change the Account Name and
Password that this newly installed service will use
for its Security Context.

Ya en este momento podemos ir a ver los servicios y ya se encontrará el que hemos creado.

Paso 3: Edición del registro de Windows

Ahora vamos al registro de windows (se puede abrir ejecutando el comando regedit) y buscamos la ruta:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Nombre de nuestro servicio

Hacemos clic derecho sobre la carpeta y le hacemos clic en New>Key

Creamos la Key con el nombre de Parameters. Dendro de esta key debemos crear un nuevo "String Value" con el nombre de "Application". Dentro de este String debemos colocar la ruta del programa que queremos dejar como servicio.

Ya por último podemos ir a servicios e iniciar nuestro servicio creado y verificar que se encuentre funcionando correctamente.

Habilitar Ping Firewall Windows 2008

2009-12-17T21:47:00.024-05:00

El comando Ping ayuda a comprobar la conectividad de nivel IP en otro equipo TCP/IP al enviar mensajes de solicitud de eco de ICMP (Protocolo de mensajes de control Internet).

Al ser efectivo el contacto se muestra la recepción de los mensajes de solicitud de eco correspondientes, junto con sus tiempos de ida y vuelta. Ping es el principal comando de TCP/IP que se utiliza para solucionar problemas de conectividad, accesibilidad y resolución de nombres.

En Windows 2008 si el firewall se encuentra habilitado con la configuración predeterminada, es posible que las solicitudes eco de ICMP se encuentren desabilitadas por lo cual el equipo no responda a estos mensajes.

Para habilitarlo se debe hacer lo siguiente:

1. Ingresar a Herramientas Administrativas (Administrative Tools)

2. Abrir el Firewall de Windows con Seguridad Avanzada (Windows Firewall with Advanced Security)

3. Dentro de la opción de Inbound Rules hacer clic derecho y seleccionar "New Rule..."

4. Seleccionar Custom como el tipo de regla a crear

5. Seleccionar la opción Todos los programas (All Programs)

6. Dentro del protocolo escojer ICMPv4. Luego hacer clic en Personalizar (Customize)

7. Dentro de las opciones de personalización seleccionar SpecificICMP Types y dentro de estos seleccionar Echo Request. Luego hacer clic en Ok y Siguiente (Next)

8. Dejar las opciones por defecto (Any IP adress) y hacer clic en Siguiente (Next)

9. Seleccionar la opción de permitir la conexión (Allow the connection) y luego hacer clic en Siguiente (Next)

10. Especificar un nombre para esta nueva regla y por último hacer clic en finalizar (Finish)