16 replies to this topic

[jjmcira]

Hola Amigos
Buenas tardes

Alguno de ustedes me pudiera por favor ayudar a convertir esta funcion de C++ en Endlphi, se los voy a agradecer mucho. Gracias

[cpp]
int WINAPI BII_Uncompress_User_Record_MT(unsigned char *record, int whichEnrollment,
                                                      int reserved, int *nx, int *ny, unsigned char *outarray);

[/cpp]




Retoco el título. escafandra.

[escafandra]

La definición de esa función sería, de forma literal, esto:

delphi

function BII_Uncompress_User_Record_MT(rec: PCHAR; whichEnrollment, reserved: integer; nx, ny: PInteger; outarray: PCHAR): integer; stdcall;

Saludos.

[jjmcira]

Muchas Gracias, por la ayuda,
me pudieran por favor ayudar a convertir este codigo en Delphi, ya lo intente pero me falta como intercambiar la imagen de un puntero a una Imagen en el.
Se los voy a agradecer mucho. Gracias de Antemando
Este es el codigo:
[cpp]
int CBIITemplate::Template2Bitmap(BOOL bPass_)
{
unsigned char *unpackedimage = NULL;
int size, retVal = 0;
if(m_hDIBTemplate != NULL)
{
  m_hDIBTemplate = (HDIB) GlobalFree(m_hDIBTemplate);
}
try
{
  if ((size = BII_Uncompress_User_Record_MT(m_TemplateData, m_WhichEnrollment, 0, &m_nx, &m_ny, NULL)) > 0)
  {
  unpackedimage = (unsigned char *) malloc(size);

  if ((size = BII_Uncompress_User_Record_MT(m_TemplateData, m_WhichEnrollment, 0, &m_nx, &m_ny,unpackedimage)) < 0)
    retVal =  -1;
  }
  else
  {
  if ( bPass_ || BII_Get_Template_Nx_Ny_MT((BII_Template *)m_TemplateData, &m_nx, &m_ny) == TRUE)
  {
    m_nx=96;
    m_ny=96;
    unpackedimage = (unsigned char *) malloc(m_nx*m_ny);
    BII_Uncompress_MT((unsigned char *)m_TemplateData, unpackedimage);
  }
  else
  {
    // Mshk: the BII_Get_Template_Nx_Ny is in Compression.lib, for which the source code is gone.
    // For templates the subsampled image size is always 96x96, so it is hard coded here
    m_nx = 96;
    m_ny = 96;
    unpackedimage = (unsigned char *) malloc(m_nx * m_ny);   

    for (int i = 0; i < m_nx * m_ny; i++)
    unpackedimage = 127;
  }
  }
}
catch (...)
{
  m_nx = 96;
  m_ny = 96;
  unpackedimage = (unsigned char *) malloc(m_nx * m_ny);   

  for (int i = 0; i < m_nx * m_ny; i++)
  unpackedimage = 127;
}
/* Create a DIB from the template */
/* NX and NY are now reversed (not important if symetric) */
m_hDIBTemplate = CreateDIB(unpackedimage, m_nx, m_ny);
if (unpackedimage)
  free (unpackedimage);
/* If the DIB creation failed return -1 */
if(m_hDIBTemplate == NULL)
  return -1;
return retVal;
}


[/cpp]

[egostar]

Yo me aprovecho también del hilo

Cual sería la equivalencia de esto en Delphi

[csharp]
    customer.@operator = StringFieldOperator.@Not;
[/csharp]

Salud OS

[escafandra]

....
me pudieran por favor ayudar a convertir este codigo en Delphi, ya lo intente pero me falta como intercambiar la imagen de un puntero a una Imagen en el.
Se los voy a agradecer mucho. Gracias de Antemando
Este es el codigo:
[cpp]
/...................[/cpp]

Es una función de una clase que desconozco, el código es un poco extenso y con conversiones de tipos privados. Deberías concretar mas tu duda.

...Cual sería la equivalencia de esto en Delphi

[csharp]
    customer.@operator = StringFieldOperator.@Not;
[/csharp]

¿Eso es literal?.
El problema es que delphi no admite la sobrecarga de operadores y tendrás que adaptar el código ...


Saludos.

[egostar]

...Cual sería la equivalencia de esto en Delphi

[csharp]
    customer.@operator = StringFieldOperator.@Not;
[/csharp]

¿Eso es literal?.
El problema es que delphi no admite la sobrecarga de operadores y tendrás que adaptar el código ...

Saludos.

Pues si, si es literal, viendo los tipos de datos y las clases, logré entender el concepto, en delphi se hace así:

delphi

    customer.&operator := StringFieldOperator(0);

Gracias amigo. 

Salud OS

[jjmcira]

Hola Escafandra
Basicamente es como puedo pasar un array de bytes a un bitmpa o bmp
como lo ilustro en lo siguiente:
[cpp]
m_nx = 96;
  m_ny = 96;
  unpackedimage = (unsigned char *) malloc(m_nx * m_ny);   

  for (int i = 0; i < m_nx * m_ny; i++)
  unpackedimage = 127;
}
/* Create a DIB from the template */
/* NX and NY are now reversed (not important if symetric) */
m_hDIBTemplate = CreateDIB(unpackedimage, m_nx, m_ny);
if (unpackedimage)
  free (unpackedimage);
/* If the DIB creation failed return -1 */
if(m_hDIBTemplate == NULL)
  return -1;

[/cpp]

[escafandra]

Antes de poder responderte, es necesario conocer el tipo de la variable m_hDIBTemplate. La función CreateDIB no pertenece a la API de windows aunque si CreateDIBitmap y ImageAllocator.CreateDIB (DirectShow). Ninguna se corresponde con los parámetros que se le pasa en el código que pretendes traducir. Bien la tienes implementada en otro sitio o el código inicial es Visual C.

En cualquier caso para adaptar el código a delphi debemos pasar por la API y tipos básicos de ésta. En caso de que m_hDIBTemplate sea un HBITMAP será mas sencillo pero me da la sensación que es un  objeto de una clase específica. En ese caso deberás usar HBITMAP o un TBitmap de delphi.

Saludos.

[escafandra]

Voy a poner un ejemplo de como rellenar el bloque de memoria de un Bitmap Creado con la API. Asumo que el bitmap es de 24 bits, para prescindir de la paleta.

En el ejemplo relleno del valor 127 que es el que muestras en el código:

delphi

var
  hBitmap: Cardinal;
  unpackedimage: Pointer;
  BitmapInfo: TBITMAPINFO;
  m_nx, m_ny: Cardinal;
 
begin
  m_nx:= 96;
  m_ny:= 96;
  unpackedimage:= nil;
  with BitmapInfo.bmiHeader do
  begin
    biSize := SizeOf(BitmapInfo.bmiHeader);
    biWidth := m_nx;
    biHeight := m_ny;
    biPlanes := 1;
    biBitCount := 24;
    biCompression := BI_RGB;
    biSizeImage := (((biWidth * (biBitCount div 8)) + 3) and $FFFFFFFC) * biHeight;
    hBitmap:= CreateDIBSection(0, BitmapInfo, DIB_RGB_COLORS, unpackedimage, 0, 0);
    
    // unpackedimage se asigna automáticamente al usar la API CreateDIBSection.
    // Ahora lo relleno.
    FillMemory(unpackedimage, biSizeImage, 127);
    // unpackedimage no se libera hasta no destruir hBitmap:  DeleteObject(hBitmap)
 
  end;
end;

Esto se puede hacer también usando TBitmap.ScanLine desde delphi, todo depende del nivel al que estés trabajando...

Es por este motivo la razón de mi anterior mensaje.

Saludos.

[jjmcira]

Hola Escafandra,
Te anexo el codigo completo en c++, en donde m_hDIBTemplate lo manejan como null
[cpp]
// BIITemplate.cpp: implementation of the CBIITemplate class.
//
//////////////////////////////////////////////////////////////////////
#include "stdafx.h"
#include "BIITemplate.h"
#include "Dibapi.h"
#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif
//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////
CBIITemplate::CBIITemplate()
{
m_hDIBTemplate = NULL;
m_TemplateData = NULL;
m_WhichEnrollment = 0;
}
CBIITemplate::~CBIITemplate()
{
if(m_hDIBTemplate)
  m_hDIBTemplate = (HDIB) GlobalFree(m_hDIBTemplate);
}
void CBIITemplate::Paint(CPaintDC& TheDC, CRect frame)
{
CRect  templateDIBrect;
CPalette Palette;
HPALETTE hPal = NULL;
//To Do:  Add code the free's up memory used for the DIB
if (m_hDIBTemplate)
{
  /* Area of the Template DIB to display */
  templateDIBrect.left = 0;
  templateDIBrect.top = 0;
  templateDIBrect.right = m_nx;
  templateDIBrect.bottom = m_ny;
  /* CREATE THE PALLETTE AND DISPLAY THE TEMPLATE */
  CreateDIBPalette(m_hDIBTemplate, &Palette);
  hPal = (HPALETTE) Palette.m_hObject;
  PaintDIB(TheDC.m_hDC, &frame, m_hDIBTemplate, &templateDIBrect, &Palette);
}
}

int CBIITemplate::Template2Bitmap(BOOL bPass_)
{
unsigned char *unpackedimage = NULL;
int size, retVal = 0;
if(m_hDIBTemplate != NULL)
{
  m_hDIBTemplate = (HDIB) GlobalFree(m_hDIBTemplate);
}
try
{
  if ((size = BII_Uncompress_User_Record_MT(m_TemplateData, m_WhichEnrollment, 0, &m_nx, &m_ny, NULL)) > 0)
  {
  unpackedimage = (unsigned char *) malloc(size);

  if ((size = BII_Uncompress_User_Record_MT(m_TemplateData, m_WhichEnrollment, 0, &m_nx, &m_ny,unpackedimage)) < 0)
    retVal =  -1;
  }
  else
  {
  if ( bPass_ || BII_Get_Template_Nx_Ny_MT((BII_Template *)m_TemplateData, &m_nx, &m_ny) == TRUE)
  {
    m_nx=96;
    m_ny=96;
    unpackedimage = (unsigned char *) malloc(m_nx*m_ny);
    BII_Uncompress_MT((unsigned char *)m_TemplateData, unpackedimage);
  }
  else
  {
    // Mshk: the BII_Get_Template_Nx_Ny is in Compression.lib, for which the source code is gone.
    // For templates the subsampled image size is always 96x96, so it is hard coded here
    m_nx = 96;
    m_ny = 96;
    unpackedimage = (unsigned char *) malloc(m_nx * m_ny);   

    for (int i = 0; i < m_nx * m_ny; i++)
    unpackedimage = 127;
  }
  }
}
catch (...)
{
  m_nx = 96;
  m_ny = 96;
  unpackedimage = (unsigned char *) malloc(m_nx * m_ny);   

  for (int i = 0; i < m_nx * m_ny; i++)
  unpackedimage = 127;
}
/* Create a DIB from the template */
/* NX and NY are now reversed (not important if symetric) */
m_hDIBTemplate = CreateDIB(unpackedimage, m_nx, m_ny);
if (unpackedimage)
  free (unpackedimage);
/* If the DIB creation failed return -1 */
if(m_hDIBTemplate == NULL)
  return -1;
return retVal;
}


[/cpp]

[jjmcira]

Me falto comentar que tambien es de 8 Bits, como lo ilustra el siguiente codigo.
En espera de tus comentarios. SAludos y muchisimas gracias de antemano.
[cpp]
HDIB WINAPI CreateDIB(unsigned char *m_data, int m_biWidth, int m_biHeight)
{
HDIB hDIB;
LPSTR pDIB;
LPBITMAPINFO lpbi;
unsigned char *dibData;
int m_numberPalEntries = 256;
int actualWidth = m_biWidth;
if (m_biWidth % 4)
  m_biWidth = ((m_biWidth+4) / 4) * 4;

unsigned long dibSize = sizeof(BITMAPINFOHEADER) +
  (m_numberPalEntries*sizeof(RGBQUAD)) + m_biWidth * m_biHeight;
hDIB = (HDIB) ::GlobalAlloc(GMEM_MOVEABLE | GMEM_ZEROINIT, dibSize);
if (hDIB == 0)
{
  return NULL;
}
pDIB = (LPSTR) ::GlobalLock((HGLOBAL) hDIB);
lpbi = (LPBITMAPINFO) pDIB;
dibData = (unsigned char *) pDIB + sizeof(BITMAPINFOHEADER) +
  (m_numberPalEntries*sizeof(RGBQUAD));

lpbi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
lpbi->bmiHeader.biWidth = m_biWidth;
lpbi->bmiHeader.biHeight = m_biHeight;
lpbi->bmiHeader.biPlanes = 1;
lpbi->bmiHeader.biBitCount = 8;
lpbi->bmiHeader.biCompression = BI_RGB;
lpbi->bmiHeader.biSizeImage =  m_biWidth*m_biHeight;
lpbi->bmiHeader.biXPelsPerMeter = 0;
lpbi->bmiHeader.biYPelsPerMeter = 0;
lpbi->bmiHeader.biClrUsed = 0;
lpbi->bmiHeader.biClrImportant = 0;
  for(int i=0; i<m_numberPalEntries; i++){
  lpbi->bmiColors.rgbRed = i;
  lpbi->bmiColors.rgbGreen = i;
  lpbi->bmiColors.rgbBlue = i;
}
for(int j=0,n=0; j<m_biHeight; j++)
  for(i=0; i<m_biWidth; i++)
  if (i < actualWidth)
    dibData[j*m_biWidth+i] = m_data[n++];
  else
    dibData[j*m_biWidth+i] = 0;

::GlobalUnlock((HGLOBAL) hDIB);
return hDIB;
}

[/cpp]

[escafandra]

El código de una clase sin su definición (archivo.h) no dice demasiado. Entiendo que m_hDIBTemplate es un HDIB. Ese tipo no es estandar de la API de windows. Se refiere a un bloque de memoria donde está escrito un bitmap tal como se leería de un archivo. No es un HBITMAP.

No se que es lo que te interesa. Una traducción literal puede que no sea lo mas conveniente. Imagino que querrás asimilarlo a las clases de la VCL de delphi. En ese caso quizás sea mas recomendable usar un HBITMAP como te sugerí arriba.

Es fundamental que tengas claro el uso que le vas a dar a esa clase, para qué la quieres y como la integrarás con delphi. Antes de seguir traduciendo literalmente piensa despacio en este punto.

Saludos.

[jjmcira]

Hola Escafandra, en resumen
Lo que necesito es pasar el bitmpa que se encuentra en array de bits a una imagen, lo otro ya lo tengo definido, nada más me esta faltando como impoirtar de un array de bytes a un bitmap o timagen en delphi, como te lo ilustraba en los mensajes anteriores. Si me pudieras ayudar te lo voy a agradecer mucho.

En mi variable unpakedimage, ahi traigo el array de bytes.
En espera de tus comentarios. SAludos

[escafandra]

Hola Escafandra, en resumen...
...como impoirtar de un array de bytes a un bitmap o timagen en delphi...

Eso ya te lo apunté mas arriba con un HBITMAP de 24 bits.

Vamos a crear una función concreta para un HBITMAP de 8 bits 256 colores y paleta:

delphi

// Crear DibBitmap de 8 bits
function CreateDibBitmap(Data: PBYTE; Width, Height: integer): HBITMAP;
var
  LineWidth: integer;
  Buffer: Pointer;
  BitmapInfo: ^TBITMAPINFO;
  i, j: Cardinal;
 
begin
  Buffer:= nil;
  LineWidth:= ((Width  + 3) div 4 ) * 4;
  GetMem(BitmapInfo, sizeof(TBITMAPINFOHEADER) + sizeof(RGBQUAD) * 256);
  with BitmapInfo.bmiHeader do
  begin
    biSize := SizeOf(BitmapInfo.bmiHeader);
    biWidth := Width;
    biHeight := Height;
    biPlanes := 1;
    biBitCount := 8;
    biCompression := BI_RGB;
    biSizeImage := 0;
  end;
  // en BitmapInfo.bmiColors rellenamos la paleta...
  for i:= 0 to  255 do
  begin
    BitmapInfo.bmiColors[i].rgbRed:= i;
    BitmapInfo.bmiColors.rgbGreen:= i;
    BitmapInfo.bmiColors.rgbBlue:= i;
  end;
 
  Result:= CreateDIBSection(0, BitmapInfo^, DIB_RGB_COLORS, Buffer, 0, 0);
  FreeMem(BitmapInfo);
  for i:= 0 to Height-1 do
  begin
    CopyMemory(Buffer, Data, Width);
    inc(PCHAR(Buffer), Width);
    ZeroMemory(Buffer, LineWidth - Width);
    inc(PCHAR(Buffer), LineWidth - Width);
  end;
end;

Un ejemplo de uso integrado en delphi:

delphi

procedure TForm1.Button4Click(Sender: TObject);
var
  unpackedimage: PBYTE;
begin
  GetMem(unpackedimage, 96*96);
  FillMemory(unpackedimage, 96*96, 127);
  Image1.Picture.Bitmap.Handle:= CreateDibBitmap(unpackedimage, 96, 96);
  FreeMem(unpackedimage);
end;

Espero que te aclare las ideas.


Saludos.

[jjmcira]

Muchisimas Gracias
Dejame realizo la prueba y te comento.
SAludos

[jjmcira]

Hola Escafandra
Fijate que todo el procedimiento me parece bien pero en el unpakedimage traigo un array, como puedo pasar ese arreglo al apuntador, ya intente colocandolo como indico y me marca un error de que no son compatibles, si me puedes ayudar te lo voy agradecer gracias.

delphi

var 
miimagen : array[0..9216] of byte;
unpakedimage : pbyte;
begin
unpaekdimage:= @miimagen;
end;

[escafandra]

delphi

var
  miimagen : array[0..9216] of byte;
  i: integer;
begin
  for i:= 0 to 9215 do
    miimagen[i]:= 127;
  Image1.Picture.Bitmap.Handle:= CreateDibBitmap(@miimagen, 96, 96);
end;

Saludos.