BmpToHex

BmpToHex

Postby cnavarro » Mon May 18, 2015 3: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
User avatar
cnavarro
 
Posts: 6504
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: BmpToHex

Postby MGA » Mon May 18, 2015 3:44 pm

HexToStr()
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Re: BmpToHex

Postby cnavarro » Mon May 18, 2015 5:24 pm

SGS wrote:HexToStr()


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

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

 
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
User avatar
cnavarro
 
Posts: 6504
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: BmpToHex

Postby MGA » Tue May 19, 2015 12:31 am

:D
ubiratanmga@gmail.com

FWH18.02
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1234
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 27 guests