BmpToHex

[cnavarro]

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

[MGA]

HexToStr()

[cnavarro]

HexToStr()

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

Code: Select all  Expand view

// 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

 

[MGA]