3 replies to this topic

[jjmcira]

Hola A todos me pudieran por favor ayudar a convertir esta función de C++ a Delphi, ya que es para un proyecto de lectura de tarjetas de un Lector que necesito realizar.

delphi

int WINAPI BII_Get_Wiegand_String_MT(HUNIT pUnitHandle, unsigned int *WiegandString, unsigned int *NoWiegandBits, unsigned int *Id, int timeout);

Gracias por su ayuda.

[jjmcira]

S pudieran tambien ayudarme con este otro codigo complemento del anterior.

Gracias

delphi

unsigned int NoOfBits = 0;
	unsigned int templateID = 0;
    int timeout = 12;
    unsigned int wiegandString[2];// = new uint[2];
 
    InputWiegandInfo *proxCardInfo = new InputWiegandInfo();
 
	int result = BII_Get_Wiegand_String_MT(m_hUnit, wiegandString, &NoOfBits, &templateID, timeout);
    if (result < 0)
    {
		MessageBox("Error in reading predefined wiegand string.");
        return NULL;
    }

[cram]

Sería algo así creo.
Supongo que alguien corregirá mis errores de apurado (como Escafandra con mi traducción de C#).

delphi

var
TimeOut, _Result: Integer;
NoOfBits, TemplateID: Word;
WiegeandString: Array[1..2] of Word;
InputWiegandInfo: ^proxCardInfo; // Aunque proxCardInfo deberá estar definido de antemano (es un tipo)
begin
  _Result:= BII_Get_Wiegand_String_MT(m_hUnit, WiegandString, @NoOfBits, @TemplateID, TimeOut);
  if _Result < 0
  then
    begin
	ShowMessage('Error in reading predefined wiegand string.');
	Result:= ; // Ooops.
    end else Result:= _Result;
end;

BII_Get_Wiegand_String_MT es una función que no está definida en estas líneas de código.
Dado que result palabra reservada, no podrás utilizarla como nombre de variable.
Result:= nil sería lo correcto, pero dado que antes devuelves un valor de tipo entero, deberías ver como podrías definir la función para que devuelva un valor de tipo puntero y utilizar casting para obtener un valor o nil en caso de ser BII_Get_Wiegand_String_MT < 0.
Es decir que podrías definir una variable como puntero a entero y definir esta función para que te devuelva el valor dentro de esa variable, luego puedes usar NomVarEntera^ para obtener el valor o NomVarEntera para saber si está asignada preguntando por nil o con la función assigned.
Saludos

[escafandra]

A falta de conocer algúno de los tipos usados, como HUNIT, la tracucción de la declaración de la función sería así:

delphi

function BII_Get_Wiegand_String_MT(pUnitHandle: HUNIT; WiegandString, NoWiegandBits, Id: PUINT; timeout: integer): integer; stdcall;

Dicha función habría que importarla de alguna dll de la que no informas.

Tu segunda pregunta, a cerca de como usas esa función, te la respondo de esta forma:

delphi

var
   NoOfBits: UINT;
   templateID: UINT;
   timeout: integer;
   wiegandString: array [0..1] of UINT;
begin
   NoOfBits:= 0;
   templateID:= 0;
   timeout:= 12;
 
   // InputWiegandInfo *proxCardInfo = new InputWiegandInfo();
 
   if BII_Get_Wiegand_String_MT(m_hUnit, @wiegandString[0], @NoOfBits, @templateID, timeout) < 0 then
   begin
      ShowMessage('Error in reading predefined wiegand string.');
      Result:= nil;
      exit;
   end;
end;

La linea no traducida y comentada (por no usarse en el fragmento de código dado podría traducirse, asumiendo que InputWiegandInfo es una clase (podría ser una estructura):

delphi

  proxCardInfo:= InputWiegandInfo.Create();

En resumen, sin conocer los tipos usados no se puede terminar de traducir el código para que te compile en delphi.


Saludos.