FiveTech Software tech support forums

Posted: **Tue Dec 20, 2005 10:13 pm**

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

'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

Posted: **Tue Dec 20, 2005 10:44 pm**

Paco,

Es una función propia de FiveWin:

HBITMAP CreateMemBitmap( HDC hDC, BYTE far * cBitmap )

Posted: **Thu Jan 12, 2006 8:45 am**

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

Posted: **Thu Jan 12, 2006 12:15 pm**

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.

Posted: **Thu Jan 12, 2006 11:45 pm**

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

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

Posted: **Fri Jan 13, 2006 12:23 pm**

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

Muchas gracias

Posted: **Wed Feb 23, 2011 8:34 pm**

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

FiveTech Software tech support forums

Crear bitmap con datas

Crear bitmap con datas

Crear Brush

Re: Crear bitmap con datas