Page 1 of 1

Encontre este trozo de codgo de vfp como lo hago con Harbour

Posted: Thu Mar 28, 2019 4:26 pm
by ruben Dario
SAludos
En Visual Foxpro vi este codigo, guarda el mapa de bits de el icono , codigo se haria en Harbour algun ejemplo.
si tengo la imagen .fpg o bmp como extraigo el mapa de bits y que lo asigne en una variable y luego mostrarlo , como se haria.

Code: Select all

*this 3 images of the search icon png appearing randomly
        local m.myvar1,m.myvar2,m.myvar3
        TEXT TO m.myvar  PRETEXT 7 noshow
            iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAC1klEQVRYhbXWT2geRRjH8U+ClCJSRIpIkawtCD0olFChNRVde7B60YsehBz0ontT8aYgpagUoYKgK95DpaJCEUVFB7Wo4J+WEjyFmJVQihQpJRQRCR5mXjJJ3n3z7mve32mf2Zl5vrsz88xvQovKqtmPJzCDKdyAFSwg4Eyoiytt44fVRJ/EU3gTj2FywNi/8RaOh7q4vi0AZdUcw2nc3GGO3/BoqIuF/wVQVs0j+Bg7svdfYA4XcR234RCewv6s3yXMhLpYGgmgrJp9OI9d2YSzoS6+7jeorJpJPIeT4t6AnxPEP10Aemv89obkM23JIdTFaqiLU3gc/6bmg3i2S3KYKKtmGr+keBVlqItvh52grJoTeDmD39vlL0xiNovPdkme9Dr+TM978ECXwZO4N4tPd0wuHcEzWdP9XQFuz+JfuwIknc+e93UF2JnF10YEyNf8pq4AK1l8y4gA+UestPZqAVjK4ukRAe7Jnhe7AnyfxbNtHdtUVs0u8dLq6buuAHPi+Ydj6T7ooles3R2X0FrA+gKEupjHR1nbXFk1B4YZXFbN02JJ7unVrqW4dxfsEY/Sran9Gp7B+6Eu+iW+EcfxgrVyvog7Q12sbhqwFUCa9Ag+s/4YXcAHmMdV8TY8jCcz2Fyvhbp4aSSABHEIH4oldVgtW1/M5sWjeE5ckquDBq9zPKEufsTdeEd0PIN0Bc9jL97N2u8SPcOL+CE5rFZtsmQ9lVWzW7Rl94mecIdoShbxFT7pWbHkD35P/TZqCUdDXfStD60AXVVWzU+iJ+inP8RrfhPEINPZVecGvJtCSM5rbAAncXkIiDvGAhDq4jIexl9bQHyTQ2znHxDq4gIeEmvGIIjQOx3btglzlVVzEJ8bfL0v4PBYABLENL7cAuK9sQEkiAMJYndLl+Vt3QMblfbEUWuueaN2jhUgQVwUnfJyn9dnx7oEudKufwMPiqfvU1T/Ae+yy12f0SBjAAAAAElFTkSuQmCC
        endtext
        text to m.myvar1 pretext 7 noshow
            iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAC1UlEQVRYhbXWTWgdVRjG8V+CDEWkiBSRImFaELpQKKFCaxRHu7C60Y0uhCx0o+5U3ClIEZVSqCAo4j5UKioUUVQ0oxYV/GgpwVWIg4RSpEgpocggwcU5l5zk3rm555r7rOY9cz7+M+ec932mdKipigN4AnOYwQ1YwzIWcaas2ytd40fV1ICFZ/AWHsP0kLH/4G0cL+v2+o4ANFVxDKdxc8Ycv+PRsm6X/xdAUxWP4BMUyfsvsYCLuI7bcBhP4UDS7xLmyrptxgJoqmI/zmN3MuF8WbffDBrUVMU0nscJ4WzALxGizQHo7fE7Wxaf61ocyrpdL+v2FB7Hv7H5EJ7NWRymmqqYxa8xXscDZd1+N+oETVW8hlcS+H05f2Ea80l8NmfxqDfxV3zeiypn8DTuSeLTmYuLV/BM0nR/LsDtSfxbLkDU+eR5fy7AriS+NiZAuuc35QKsJfEtYwKkH7HW2asDoEni2TEB7k6eV3IBfkji+a6OXWqqYrdQtHr6PhdgQbj/cCzWgxy9aqN2XEJnAhsIUNbtEj5O2haaqjg4yuCmKp4WUnJPr+em4l4t2CtcpVtj+zU8gw/Kun++pipuxHG8aCOdr+COsm7X+wZsBxAnvRef23yNLuBDLOGqUA2P4MkENtUbZd2+PBZAhDiMj4SUOqpWbU5mS8JVPCdsydVhgzc5nrJuf8JdeFdwPMN0BS9gH95L2u8UPMNL+DE6rE71WbKemqrYI9iy+wRPWAimZAVf49OeFYv+4I/Yr28qHC3rdmB+6ATIVVMVPwueYJD+FMp8H8Qw05mrc0PezWAxOq+JAZzA5REgyokAlHV7GQ/j720gvk0hdvIPKOv2Ah4ScsYwiMXe7dixQ5iqqYpD+MLw8r6MIxMBiBCz+GobiPcnBhAhDkaIPR1dVnf0DGxVPBNHbbjmrdo1UYAIcVFwyqsDXp+d6Bakiqf+JB4Ubt9neO4/LujK+EKJZ8QAAAAASUVORK5CYII=
        endtext
        text to m.myvar2 pretext 7 noshow
            iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAC1UlEQVRYhbXWTWgdVRjG8V+CDEWkiBSRImFaELpQKKFCaxRHu7C60Y0uhCx0o+5U3ClIEZVSqCAo4j5UKioUUVQ0oxYV/GgpwVWIg4RSpEgpocggwcU5l5zk3rm555r7rOY9cz7+M+ec932mdKipigN4AnOYwQ1YwzIWcaas2ytd40fV1ICFZ/AWHsP0kLH/4G0cL+v2+o4ANFVxDKdxc8Ycv+PRsm6X/xdAUxWP4BMUyfsvsYCLuI7bcBhP4UDS7xLmyrptxgJoqmI/zmN3MuF8WbffDBrUVMU0nscJ4WzALxGizQHo7fE7Wxaf61ocyrpdL+v2FB7Hv7H5EJ7NWRymmqqYxa8xXscDZd1+N+oETVW8hlcS+H05f2Ea80l8NmfxqDfxV3zeiypn8DTuSeLTmYuLV/BM0nR/LsDtSfxbLkDU+eR5fy7AriS+NiZAuuc35QKsJfEtYwKkH7HW2asDoEni2TEB7k6eV3IBfkji+a6OXWqqYrdQtHr6PhdgQbj/cCzWgxy9aqN2XEJnAhsIUNbtEj5O2haaqjg4yuCmKp4WUnJPr+em4l4t2CtcpVtj+zU8gw/Kun++pipuxHG8aCOdr+COsm7X+wZsBxAnvRef23yNLuBDLOGqUA2P4MkENtUbZd2+PBZAhDiMj4SUOqpWbU5mS8JVPCdsydVhgzc5nrJuf8JdeFdwPMN0BS9gH95L2u8UPMNL+DE6rE71WbKemqrYI9iy+wRPWAimZAVf49OeFYv+4I/Yr28qHC3rdmB+6ATIVVMVPwueYJD+FMp8H8Qw05mrc0PezWAxOq+JAZzA5REgyokAlHV7GQ/j720gvk0hdvIPKOv2Ah4ScsYwiMXe7dixQ5iqqYpD+MLw8r6MIxMBiBCz+GobiPcnBhAhDkaIPR1dVnf0DGxVPBNHbbjmrdo1UYAIcVFwyqsDXp+d6Bakiqf+JB4Ubt9neO4/LujK+EKJZ8QAAAAASUVORK5CYII=
        endtext
 

Re: Encontre este trozo de codgo de vfp como lo hago con Harbour

Posted: Thu Mar 28, 2019 7:35 pm
by Lailton
Hola Rubens,

Esto es una image convertida para base64.

cVar := hb_base64encode( hb_memoread( cFileName ) )

:D

Aqui es un ejemplo de como hacer el decode. hb_base64decode( cVar )

https://prnt.sc/n4b5rw

Re: Encontre este trozo de codgo de vfp como lo hago con Harbour

Posted: Fri Mar 29, 2019 3:26 am
by ruben Dario
Gracias,
Pero tienes el codigo de como muestro la imagen del icono. como lo coloco.

Hace años vi un ejemplo pero no lo en cuentro, que se editaba me parece que con un editor se copiaba ese codigo y quedaba como un codigo fuente,