Crear bitmap con datas

[Paco Garcia]

Hola a todos.

Alguien recuerda una función para crear bitmaps a partir de una cadena de texto.

Alguna vez recuerdo algo asi:

Code: Select all | Expand

'42 4D 96 0D 00 00 00 00 00 00 36 04 00 00 28 00'
 '00 00 28 00 00 00 3C 00 00 00 01 00 08 00 00 00'
 '00 00 60 09 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 BF 00 00 BF'
 '00 00 00 BF BF 00 BF 00 00 00 BF 00 BF 00 BF BF'
 '00 00 C0 C0 C0 00 C0 DC C0 00 F0 CA A6 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'

luego se leian estos datos con una función y se convertian a bitmap.

El caso es que no me acuerdo donde estaba esa función

Un saludo

[Antonio Linares]

Paco,

Es una función propia de FiveWin:

HBITMAP CreateMemBitmap( HDC hDC, BYTE far * cBitmap )

[carlosmora]

Antonio,

Donde puedo leer algo respecto de como se manejan esas datas?
Sigo con la idea de generar un bitmap en memoria donde los colores son calculados, con ellos crear un brush para asiganrlo como fondo de los dialogos.
Por donde me recomiendas empezar? Que manera sugieres para hacer eso?

Saludos

[Antonio Linares]

Carlos,

La manera más simple es cargar el bitmap en el Borland Resources Workshop y ver el bitmap en modo binario.

En cuanto a la descripción del formato binario del bitmap, lo recomendable es buscar en google.

[Paco Garcia]

Hola

Creo que esto es una solución aunque no se si será la mas "académica" pero creo que te funcionará.

Un saludo

Code: Select all | Expand

Function CreaBrushDegradada()
local hDC, hDCMem, hOldBmp   
local hBmpBrush
local oBrush
local nWidth := 100
local nHeight := 4

hDC          := oWnd:GetDC()
hDCMem       := CreateCompatibleDC( hDC )
hBmpBrush    := CreateCompatibleBitmap( hDC, nWidth, nHeight )
hOldBmp      := SelectObject( hDCMem, hBmpBrush )

Degrada( hDCMem, {0, 0, nHeight, nWidth }, CLR_WHITE, CLR_BLUE )

SelectObject( hDCMem, hOldBmp )

DeleteDC( hDCMem )
oWnd:ReleaseDC()

DEFINE BRUSH oBrush COLOR CLR_HRED
oBrush:hBrush := CreatePatternBrush( hBmpBrush )

return oBrush

[carlosmora]

Ahora mismo la pruebo, pero si me funiona es EXACTAMENTE lo que busco

Muchas gracias

[elmoiquique]

Hola

Como puedo crear un bitmap, con datos que tengo y con una font especifica, para que me genere un bitmap o jpg


Tengo una cadena de caracteres que le quiero colocar un font que es pdf417 y me los convierta en codigo de barra y cuando aparezca la imagen ya este codificado


gracias