topic-30716

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

BmpToHex
Posted: Mon May 18, 2015 03:41 PM

Alguien tiene alguna utilidad que realice la tarea contraria?, es decir, coja la cadena hexadecimal y la convierta en fichero .bmp?
Teniendo en cuenta que tengo la cadena hexadecimal pero no tengo el fichero .bmp

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: BmpToHex
Posted: Mon May 18, 2015 03:44 PM

HexToStr()

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: BmpToHex
Posted: Mon May 18, 2015 05:24 PM

SGS wrote:HexToStr()

Pues evidente, gracias
Hay dias que nos proponemos reinventar la rueda.

Code (fw): Select all Collapse

// BMP to hex definition

#include "FiveWin.ch"

function Main()

   local cBmp := MemoRead( ".\otro.bmp" )
   local cHex := "", n, m := 1, nChar, cChar
   local cBmp1 := ""

   for n = 1 to Len( cBmp )
      nChar = Asc( SubStr( cBmp, n, 1 ) )
      cChar = hb_NumToHex( nChar )
      cHex += "0x" + If( Len( cChar ) == 1, "0", "" ) + cChar + ", "
      if m == 16
         cHex += CRLF
         m = 1
      else
         m++   
      endif   
   next
   
   cBmp1 := StrTran( cHex, "0x", " " )
   cBmp1 := StrTran( cBmp1, " ", "" )
   cBmp1 := StrTran( cBmp1, ",", "" )        
   cBmp1 := StrTran( cBmp1, CRLF, "" )

   hb_memowrit( "otro1.bmp", HextoStr(cBmp1), )   
   MemoEdit( cHex )

   MemoEdit( cBmp1 )

return nil

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: BmpToHex
Posted: Tue May 19, 2015 12:31 AM

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

FiveTech Support Forums

Continue the discussion