Converter de String para BMP

[Jmsilva]

include "FiveWin.ch"

function Main()

local hBmp := ReadBitmap( 0, "test.bmp" )

MsgInfo( hBmp )

MemoWrit( "another.bmp", BmpToStr( hBmp ) )

DeleteObject( hBmp )

return nil

Para Converter um BMP para String usa-se BmpToStr() e o Inverso, Alguém sabe?

Fivewin 9.11

Caraguatatuba-SP

Editado por - Jmsilva on 13/12/2009 12:31:55

[Jmsilva]

include "FiveWin.ch"

function Main()

local hBmp := ReadBitmap( 0, "test.bmp" )

MsgInfo( hBmp )

MemoWrit( "another.bmp", BmpToStr( hBmp ) )

DeleteObject( hBmp )

return nil

Para Converter um BMP para String usa-se BmpToStr() e o Inverso, Alguém sabe?

Fivewin 9.11

Caraguatatuba-SP

Editado por - Jmsilva on 13/12/2009 12:31:55

[FiveWinBr]

Não sei se e bem o que quer mais se deseja carrega a imagem

do string gerada seria assim

redefine bitmap obmp id 4001 of odlg

obmp:LoadFromString( StringBMP )

obmp:refresh()

veja se ajuda.

http://www.redstarsoft.com.br

xHarbour 1.2.1 | Fivewin 9.10 | MySQL

[FiveWinBr]

Um exemplo:

#include "Fivewin.ch"

function main

local oDlg, oBmp, hBmp, cBmp

local hBmp := ReadBitmap( 0, "test.bmp" ) // cria o handle da imagem

local cBmp := BmpToStr( hBmp ) // gera a string do bmp

define dialog odlg RESOURCE "TELA"

redefine bitmap obmp id 4001 of odlg

obmp:LoadFromString( cBmp ) // carrega a string

activate dialog odlg

DeleteObject( hBmp )

return nil

http://www.redstarsoft.com.br

xHarbour 1.2.1 | Fivewin 9.10 | MySQL

[Jmsilva]

Obrigado, valeu a ajuda.