archive-es.com » ES » S » SISTEMASORP.ES

Total: 315

Choose link from "Titles, links and description words view":

Or switch to "Titles and links view".
  • SISTEMAS O.R.P » 2005 » enero » 16
    que andabas buscando tengas que leer un chorro de codigo de otra persona que tenga una forma curiosa horrible de hacer las cosas cosa por la cual ya he tenido que pasar en algún que otro trabajo donde he estado Categories Electrónica Informática Proyectos Reseñas Sin categoría Uncategorized Calendar enero 2005 L M X J V S D dic mar 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Recent posts Televigilancia con un coche RC arduino y la raspberry pi L I O S El robot de 10 Otro año más se celebra la OSHWCon Los vagos 2 0 Explorer exe en Windows Probando el marco digital Parrot DF3120 parte 3 y final Recuperar una cámara Zaapa CIP RW después de un fallo de actualización Probando el marco digital Parrot DF3120 parte 2 Probando el marco digital Parrot DF3120 parte 1 Por fin se puede programar la cámara IP Zaapa CIPRW ZA CIPRW fácilmente Fuerza bruta en net para resolver las cifras del concurso cifras y letras Microchip va a sacar microcontroladores PIC de 32 bit con

    Original URL path: http://www.sistemasorp.es/2005/01/16/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » noviembre
    tamano 4 Anchura Altura ReDim pixels tamano As Byte Guardamos en el buffer los bytes de la imágen de la mascara GetDIBits MascaraDC MascaraBitMap 0 Altura pixels 0 bitmap info DIB RGB COLORS Calculamos la transparencia según el que nos han pasado Transparencia Transparencia 255 100 Recorremos todo el buffer para sustituir los colores distintos de blanco por el de la transparencia For indice 0 To tamano 1 Step 4 If pixels indice 255 Or pixels indice 1 255 Or pixels indice 2 255 Then pixels indice Transparencia pixels indice 1 Transparencia pixels indice 2 Transparencia End If Next Copiamos los bytes modifcados del buffer de nuevo a la imágen de la mascara SetDIBits MascaraDC MascaraBitMap 0 Altura pixels 0 bitmap info DIB RGB COLORS Establecemos los valores del rectangulo para que coincida con las dimensiones de las imágenes recta Top 0 recta Left 0 recta Right Anchura recta Bottom Altura Creamos una brocha blanca para pintar los DC temporales con ese color brocha CreateSolidBrush HFFFFFF Creamos el DC y bitmap de la imágen temporal nº1 TemporalDC CreateCompatibleDC OrigenDC BitMap CreateCompatibleBitmap OrigenDC Anchura Altura AntiguoBitMap SelectObject TemporalDC BitMap Pintamos de blanco la imágen temporal nº1 FillRect TemporalDC recta brocha Copiamos la imágen de la mascara invertida en colores a la imágen temporal nº1 BitBlt TemporalDC 0 0 Anchura Altura MascaraDC 0 0 SRCINVERT Mezclamos la imágen de frente con la imágen temporal nº1 BitBlt TemporalDC 0 0 Anchura Altura OrigenDC 0 0 SRCAND Creamos el DC y bitmap de la imágen temporal nº2 y lo pintamos de blanco TemporalDC2 CreateCompatibleDC DestinoDC BitMap2 CreateCompatibleBitmap DestinoDC Anchura Altura AntiguoBitMap2 SelectObject TemporalDC2 BitMap2 Pintamos de blanco la imágen temporal nº2 FillRect TemporalDC2 recta brocha Copiamos la imágen de la mascara a la imágen temporal nº2 BitBlt TemporalDC2 0 0 Anchura Altura MascaraDC 0 0 SRCCOPY Mezclamos la imágen de fondo con la imágen temporal nº2 BitBlt TemporalDC2 0 0 Anchura Altura DestinoDC 0 0 SRCAND Copiamos la imágen temporal nº2 a la imágen de fondo BitBlt DestinoDC 0 0 Anchura Altura TemporalDC2 0 0 SRCCOPY Sumamos la imágen temporal nº1 a la imágen de fondo BitBlt DestinoDC 0 0 Anchura Altura TemporalDC 0 0 SRCPAINT Limpiamos el sistema SelectObject TemporalDC AntiguoBitMap SelectObject TemporalDC2 AntiguoBitMap2 SelectObject MascaraDC AntiguoMascaraBitMap DeleteObject BitMap DeleteObject BitMap2 DeleteObject MascaraBitMap DeleteDC TemporalDC DeleteDC TemporalDC2 DeleteDC MascaraDC End Sub Actualización 07 07 2005 El código de aquí arríba es más limitado de lo que yo pensaba y hace cosas que no debiera por lo que hoy que hemos estado probandolo lo hemos descartado y en su lugar he encontrado algo mucho más sencillo La función AlphaBlend de la API de windows 98 Me 2000 y XP Private Declare Function AlphaBlend Lib msimg32 ByVal hDestDC As Long ByVal x As Long ByVal y As Long ByVal nWidth As Long ByVal nHeight As Long ByVal hSrcDC As Long ByVal xSrc As Long ByVal ySrc As Long ByVal widthSrc As Long ByVal heightSrc As Long ByVal dreamAKA As Long As Long dim numero as

    Original URL path: http://www.sistemasorp.es/2004/11/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » diciembre » 20
    configurado para 192 168 0 254 o lo que es lo mismo la ip que tiene mi router ADSL route add default gw 192 168 0 254 El portatil y el ordenador de uso diario ejecutaban windows xp y tenian como ip 10 0 0 1 y 192 168 0 1 respectivamente El portatil estaba conectado a un switch con puerta de enlace 10 0 0 254 al igual que una de las tarjetas del ordenador nuevo el ordenador de uso diario estaba conectado al router ADSL como es un hub al fin y al cabo con puerta de enlace 192 168 0 254 al igual que la otra tarjeta del ordenador nuevo Una vez ya todo conectado puse en el linux del ordenador nuevo esta sentencia desde la shell echo 1 proc sys net ipv4 ip forwarding que permitia reenviar los paquetes tcp ip por las redes que tenia acceso este ordenador se puede ver poniendo un simple route en linux Pero hay triste de mi que los ordenadores host no se veian entre ellos ya que haciendo ping de uno a otro no se veian sin embargo si veian al ordenador nuevo aunque curiosamente si veían al router y también podían navegar por Internet en ambos estaban puestas ya las DNS correctas por lo que pensé que algo había hecho mal Asi que pensando pensando cambié la puerta de enlace del ordenador de uso diario que estaba como he comentado antes a 192 168 0 254 a 192 168 0 4 y voila ya se veían entre ellos Había creado dos redes con casi nada de esfuerzo Luego ya me entretuve con el iptables para configurar accesos desde el shell como iptables A FORWARDING p tcp destination port 80 j DROP que no permite el paso de paquetes

    Original URL path: http://www.sistemasorp.es/2004/12/20/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » octubre
    el icono a 16 16 pixeles por lo que uso la función win32 DrawIconEx que si me lo permite pasandole como parámetros el manejeador del dispositivo de contexto la posición x e y donde quiero dibujar el icono el icono su achura y altura ningúna brocha no es necesario y le digo que es una imagen con transparencias DI NORMAL indica todo eso Tercero lo destruyo porque en esto de la programación en C es bueno la limpieza Para el segundo caso siendo aún más sencillo me he partido más los cuernos simplemente porque el evento que se debe usar para cambiar el cursor no tiene mucha lógica con lo que uno quiere hacer Mi idea es que cuando moviese el ratón por una zona del CStatic se cambiase el cursor sin embargo usando el evento OnMouseMove no funciona para nada la función SetCursor He de decir que cuando digo CStatic en realidad es una clase que he derivado de esa para poder interceptar los eventos Por lo visto para que funcione lo que queremos hacer debemos usar el vento OnSetCursor que funciona a semejanza del OnMouseMove pero que no te da las coordenadas dentro del control donde se encuentre el puntero del ratón sino que se activa cuando se pasa el ratón por el control Esto no funcionaría si no tuviesemos activado la opción notify de los estilos del control Aquí dejo mi solución de como lo he conseguido al final POINT point GetCursorPos point ScreenToClient point if point y 10 point y 66 SetCursor LoadCursor AfxGetInstanceHandle MAKEINTRESOURCE IDC CURSOR return TRUE return CStatic OnSetCursor pWnd nHitTest message Primero declaro una variable POINT luego pregunto con GetCursorPos que me diga la posición relativa a pantalla donde se encuentra el ratón y a continuación lo transformo a coordenadas del control gracias a la función ScreenToClient Con todo esto logramos saber en que posición de nuestro control esta el cursor ya que el OnSetCursor no nos la da como parámetro como lo hicera el OnMouseMove Segundo comparo si el cursor esta dentro de un rango en el eje de la altura y si es así ya uso la función SetCursor de la api de win32 no del objeto pasandole como parámetro el cursor que me devuelve la función LoadCursor a la cual se le pasan como parámetros la instancia donde se encuentra el cursor la nuestra en este caso y el identificador del cursor pasado a cadena con la macro explicada antes Después salimos de la función delvolviendo un valor TRUE indicando que no hay que hacer nada más Tercero si llega hasta aquí significa que no ha pasado por el if y que llama al manejador por defecto devolviendo el valor que a su vez este devuelve esta linea la incorpora automáticamente el Editor de Visual C cuando añadimos el evento OnSetFocus Como veis la programación de Windows es apasionante pero muchas veces me encuentro con cosas que no funcionan como deben o se manejan de forma ilógica pero bueno

    Original URL path: http://www.sistemasorp.es/2004/10/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » noviembre » 29
    mascara tamano 4 Anchura Altura ReDim pixels tamano As Byte Guardamos en el buffer los bytes de la imágen de la mascara GetDIBits MascaraDC MascaraBitMap 0 Altura pixels 0 bitmap info DIB RGB COLORS Calculamos la transparencia según el que nos han pasado Transparencia Transparencia 255 100 Recorremos todo el buffer para sustituir los colores distintos de blanco por el de la transparencia For indice 0 To tamano 1 Step 4 If pixels indice 255 Or pixels indice 1 255 Or pixels indice 2 255 Then pixels indice Transparencia pixels indice 1 Transparencia pixels indice 2 Transparencia End If Next Copiamos los bytes modifcados del buffer de nuevo a la imágen de la mascara SetDIBits MascaraDC MascaraBitMap 0 Altura pixels 0 bitmap info DIB RGB COLORS Establecemos los valores del rectangulo para que coincida con las dimensiones de las imágenes recta Top 0 recta Left 0 recta Right Anchura recta Bottom Altura Creamos una brocha blanca para pintar los DC temporales con ese color brocha CreateSolidBrush HFFFFFF Creamos el DC y bitmap de la imágen temporal nº1 TemporalDC CreateCompatibleDC OrigenDC BitMap CreateCompatibleBitmap OrigenDC Anchura Altura AntiguoBitMap SelectObject TemporalDC BitMap Pintamos de blanco la imágen temporal nº1 FillRect TemporalDC recta brocha Copiamos la imágen de la mascara invertida en colores a la imágen temporal nº1 BitBlt TemporalDC 0 0 Anchura Altura MascaraDC 0 0 SRCINVERT Mezclamos la imágen de frente con la imágen temporal nº1 BitBlt TemporalDC 0 0 Anchura Altura OrigenDC 0 0 SRCAND Creamos el DC y bitmap de la imágen temporal nº2 y lo pintamos de blanco TemporalDC2 CreateCompatibleDC DestinoDC BitMap2 CreateCompatibleBitmap DestinoDC Anchura Altura AntiguoBitMap2 SelectObject TemporalDC2 BitMap2 Pintamos de blanco la imágen temporal nº2 FillRect TemporalDC2 recta brocha Copiamos la imágen de la mascara a la imágen temporal nº2 BitBlt TemporalDC2 0 0 Anchura Altura MascaraDC 0 0 SRCCOPY Mezclamos la imágen de fondo con la imágen temporal nº2 BitBlt TemporalDC2 0 0 Anchura Altura DestinoDC 0 0 SRCAND Copiamos la imágen temporal nº2 a la imágen de fondo BitBlt DestinoDC 0 0 Anchura Altura TemporalDC2 0 0 SRCCOPY Sumamos la imágen temporal nº1 a la imágen de fondo BitBlt DestinoDC 0 0 Anchura Altura TemporalDC 0 0 SRCPAINT Limpiamos el sistema SelectObject TemporalDC AntiguoBitMap SelectObject TemporalDC2 AntiguoBitMap2 SelectObject MascaraDC AntiguoMascaraBitMap DeleteObject BitMap DeleteObject BitMap2 DeleteObject MascaraBitMap DeleteDC TemporalDC DeleteDC TemporalDC2 DeleteDC MascaraDC End Sub Actualización 07 07 2005 El código de aquí arríba es más limitado de lo que yo pensaba y hace cosas que no debiera por lo que hoy que hemos estado probandolo lo hemos descartado y en su lugar he encontrado algo mucho más sencillo La función AlphaBlend de la API de windows 98 Me 2000 y XP Private Declare Function AlphaBlend Lib msimg32 ByVal hDestDC As Long ByVal x As Long ByVal y As Long ByVal nWidth As Long ByVal nHeight As Long ByVal hSrcDC As Long ByVal xSrc As Long ByVal ySrc As Long ByVal widthSrc As Long ByVal heightSrc As Long ByVal dreamAKA As Long As Long dim numero

    Original URL path: http://www.sistemasorp.es/2004/11/29/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » septiembre
    tanto cualquiera puede usar ese mismo proxy desde fuera de la red donde se encuentra Configurando la conexión en nuestro navegador web para que pase a través de un proxy abierto se elimina la ip que poseemos y se sustituye por la ip del proxy en algunos casos se pasa como cabecera de la petición a la página con lo que no se elimina del todo pudiendo asi interactuar con la web que hayamos visitado sin que sepa realmente quienes somos normalmente no se sabe quienes somos y menos si tenemos ip dinámica pero con esto se dobla el anonimato en la navegación Se puede acceder a ftp http https desde un proxy siempre que este configurado para permitirlo y conectarnos a otros puertos si usamos la tecnología SOCKS v4 o v5 igualmente debe estar configurado para permitirlo con lo que prácticamente se puede hacer de todo en internet a través de un proxy Es más si estas en tu empresa y te capan todos los puertos menos el puerto 80 para salir a Internet con un proxy podrás acceder al resto de puertos sin mayor peoblema Hay muchas listas de proxys abiertos por Internet yo suelo usar Open Proxies pero hay muchas listas más o menos públicas para llevar a cabo tu intimidad y anonimato Categories Electrónica Informática Proyectos Reseñas Sin categoría Uncategorized Calendar septiembre 2004 L M X J V S D jul oct 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Recent posts Televigilancia con un coche RC arduino y la raspberry pi L I O S El robot de 10 Otro año más se celebra la OSHWCon Los vagos 2 0 Explorer exe en

    Original URL path: http://www.sistemasorp.es/2004/09/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » octubre » 04
    bién el icono a 16 16 pixeles por lo que uso la función win32 DrawIconEx que si me lo permite pasandole como parámetros el manejeador del dispositivo de contexto la posición x e y donde quiero dibujar el icono el icono su achura y altura ningúna brocha no es necesario y le digo que es una imagen con transparencias DI NORMAL indica todo eso Tercero lo destruyo porque en esto de la programación en C es bueno la limpieza Para el segundo caso siendo aún más sencillo me he partido más los cuernos simplemente porque el evento que se debe usar para cambiar el cursor no tiene mucha lógica con lo que uno quiere hacer Mi idea es que cuando moviese el ratón por una zona del CStatic se cambiase el cursor sin embargo usando el evento OnMouseMove no funciona para nada la función SetCursor He de decir que cuando digo CStatic en realidad es una clase que he derivado de esa para poder interceptar los eventos Por lo visto para que funcione lo que queremos hacer debemos usar el vento OnSetCursor que funciona a semejanza del OnMouseMove pero que no te da las coordenadas dentro del control donde se encuentre el puntero del ratón sino que se activa cuando se pasa el ratón por el control Esto no funcionaría si no tuviesemos activado la opción notify de los estilos del control Aquí dejo mi solución de como lo he conseguido al final POINT point GetCursorPos point ScreenToClient point if point y 10 point y 66 SetCursor LoadCursor AfxGetInstanceHandle MAKEINTRESOURCE IDC CURSOR return TRUE return CStatic OnSetCursor pWnd nHitTest message Primero declaro una variable POINT luego pregunto con GetCursorPos que me diga la posición relativa a pantalla donde se encuentra el ratón y a continuación lo transformo a coordenadas del control gracias a la función ScreenToClient Con todo esto logramos saber en que posición de nuestro control esta el cursor ya que el OnSetCursor no nos la da como parámetro como lo hicera el OnMouseMove Segundo comparo si el cursor esta dentro de un rango en el eje de la altura y si es así ya uso la función SetCursor de la api de win32 no del objeto pasandole como parámetro el cursor que me devuelve la función LoadCursor a la cual se le pasan como parámetros la instancia donde se encuentra el cursor la nuestra en este caso y el identificador del cursor pasado a cadena con la macro explicada antes Después salimos de la función delvolviendo un valor TRUE indicando que no hay que hacer nada más Tercero si llega hasta aquí significa que no ha pasado por el if y que llama al manejador por defecto devolviendo el valor que a su vez este devuelve esta linea la incorpora automáticamente el Editor de Visual C cuando añadimos el evento OnSetFocus Como veis la programación de Windows es apasionante pero muchas veces me encuentro con cosas que no funcionan como deben o se manejan de forma ilógica pero

    Original URL path: http://www.sistemasorp.es/2004/10/04/ (2013-05-07)
    Open archived version from archive

  • SISTEMAS O.R.P » 2004 » julio
    y email Pues bién mi futuro proyecto es crear un gateway email sms email el cual alguien puede enviar un mensaje desde cualquier móvil al celular del gateway con el formato dirección de email mensaje por lo que enviará ese mensaje a la dirección de correo que se solicita Para el proceso contrario se debe meter el número de teléfono en el asunto y el texto en el cuerpo del mensaje con lo que se enviará ese texto al número de teléfono que se indica De momento lo estoy desarollando sin embargo tengo una utilidad instalada en mi servidor linux particular http www sistemasorp com llamada smstools que es capaz guardar los mensajes entrantes de un movil conectado por el puerto serie en una carpeta denominada incoming como de enviar los mensajes que se encuentren en una carpeta denomiada outgoing al mismo La idea es que tenga un demonio corriendo bajo linux que sea quien lea la cuenta de correo habilitada a tal efecto sms sistemasorp com enviando el sms si el email es correcto y que a su vez comprueba la carpeta incoming para enviar el email si el sms es correcto De momento tengo que aprender un poco más de programación en linux para hacer demonios y demás cosillas espero que pronto este finalizado este proyecto para que podais disfrutarlo Edición 31 7 2004 Buscando cosas por internet me he encontrado los mailtuils que es básicamente una serie de utilidades y librerias para lidiar con el correo A mi me viene de perlas porque así puedo recoger los mensajes interpretar las cabeceras MIME del mensaje enviar emails etc desde el código de la aplicación y sin tener que hacer llamadas al sistema a mail y similares como tenía pensado Ahora solo me queda ponerme con la programación de

    Original URL path: http://www.sistemasorp.es/2004/07/ (2013-05-07)
    Open archived version from archive



  •