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

[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  Expand view

*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
 

[Lailton]

Hola Rubens,

Esto es una image convertida para base64.

cVar := hb_base64encode( hb_memoread( cFileName ) )



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

https://prnt.sc/n4b5rw

[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,