23 respuestas en este tema

[jjmcira]

Hola Amigos
Un favor estory tratando de convertir este codigo de C++ en Delphi, pero al momento de generarlo tengo problemas para idetificar el lector biometrico V-Station G4, y no encuentro en donde pueda estar mal.

Se los voy a gradecer mucho si me pudieran ayudar. Gracias

HUNIT BII_Open_TCPIP_Unit_MT(char* host, unsigned short port, int connTimeout, int
*err)

Y yo lo gnere de la siguiente forma:

delphi

function BII_Open_TCPIP_Unit_MT(host:Pchar; port: ushort ;
  connTimeout: integer ; err: int) : HUNIT ; stdcall; external 'VSeries.dll' name 'BII_Open_TCPIP_Unit_MT';
 
unit L1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Shellapi, BIIDefines, BIItypes, BIIMTFuntionsBasic;
type
  TFL1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  m_pUnitHandle: HUNIT;
  m_UnitType: BII_Unit_Type;
  m_nFingerDataFormat, m_nCommunicationType, m_nSerialPort, m_nBaudRate, m_nDeviceID: Integer;
    { Private declarations }
  public
    { Public declarations }
  nResult, TCPIP_Port, TCPIP_Timeout: Integer;
 m_bIsCommunicationEstablished, m_bIsCommPortOpen, m_bIsCurrentPortEnabled,
 m_bIsAutoFingerDetectDisabled: Boolean;
  m_strIPADdress: pchar;
  cIPAddress: array[0..20-1] of char;
  //cIPAddress: string[20];
  end;
var
  FL1: TFL1;
implementation
{$R *.dfm}
procedure TFL1.Button1Click(Sender: TObject);
var
  TotalEntries, ALL_TRANSACTIONS: Integer;
begin
  ALL_TRANSACTIONS := 0;
  TCPIP_Port:= 10001;
  TCPIP_TIMEOUT:= 1000;
 //m_pUnitHandle := null;
 m_bIsCommunicationEstablished := FALSE;
 m_bIsCommPortOpen := FALSE;
 m_bIsCurrentPortEnabled := FALSE;
 m_bIsAutoFingerDetectDisabled := FALSE;
 m_nCommunicationType := 1;
 m_nSerialPort := 1;
 m_nBaudRate := 115200;
 m_nDeviceID := 0;
 //m_strIPADdress := '0.0.0.0';
  nResult := 0;
// BOOL bSuccess = TRUE;
FillChar(&m_UnitType, 0, SizeOf(m_UnitType));
// CloseCommunication();            // close existing communication
if (m_nCommunicationType = 1) then
    // Ethernet
   m_strIPADdress := '10.10.10.5';
    StrCopy(cIPAddress, m_strIPADdress);
    m_pUnitHandle := BII_Open_TCPIP_Unit_MT(cIPaddress, TCPIP_PORT, TCPIP_TIMEOUT, &nResult);
   Showmessage('Resultado de m_pUnitHandle: '+inttostr(m_pUnithandle));
   if (nResult < 0) then begin
    Showmessage('Error 1:'+inttostr(nResult));  // y El resultado siempre meda -10006 BII_ERR_INVALID_UNIT_HANDLE     m_bIsCommunicationEstablished := FALSE;
  end
  else begin
    m_bIsCommunicationEstablished := TRUE;
     nResult := BII_Status_MT(m_pUnitHandle) ;
     if nResult > 0 then begin
        ShowMessage('Dentro del Estatus de la Unidad'+inttostr(nResult));
     end ;
    //        ' Determina el total de todas las transacciones
    TotalEntries := BII_Get_Num_Transaction_Log_MT(m_pUnitHandle, ALL_TRANSACTIONS);
    showmessage('Total Mensajes: '+inttostr(TotalEntries));
   nResult := BII_Set_Current_NetID_MT(m_pUnitHandle, m_nDeviceID);
   if (nResult < 0) then begin
     Showmessage('Error 2:'+inttostr(nResult));
    m_bIsCommunicationEstablished := FALSE;
     end
   end;
   if (m_bIsCommunicationEstablished) then begin
    ShowMessage('Communication was established successfully.');
     nResult := BII_Get_Unit_Type_MT(m_pUnitHandle, m_UnitType); // get product type of device
    nResult := BII_Get_Finger_Data_Format_MT(m_pUnitHandle);  // get template format used of device
     if (nResult > 0) then begin
        m_nFingerDataFormat := nResult;
      end;
   end;
end;

[escafandra]

Por partes.

El tipo HUNIT no es un tipo básico ce C/C++, por lo que debe estar definido antes en un archivo.h. En ocasiones puede referirse incluso al modo como se pasan los parámetros stdcall o cdecl    que son los modificadores mas comunes en C

El tipo int* es un Pinteger.

No sabemos como se están pasando los parámetros (Calling Convention). El modo por defecto del C/C++ es cdecl    si no se especifica nada.

Así las cosas, la declaración de la función puede ser así:

delphi

function BII_Open_TCPIP_Unit_MT(host:Pchar; port: ushort; connTimeout: integer; err: Pinteger): HUNIT; cdecl; external 'VSeries.dll' name 'BII_Open_TCPIP_Unit_MT';

Los compiladores de C/C++ pueden cambiar la convención de llamada por defecto con una directiva de compilación, así que deberás documentarte de la convención utilizada. En muchas ocasiones se usa stdcall cuando las librerías se van a usar con otros lenguajes o forman parte de una API, si este fuera el caso, tu función deberá declararse así:

delphi

function BII_Open_TCPIP_Unit_MT(host:Pchar; port: ushort; connTimeout: integer; err: Pinteger): HUNIT; stdcall; external 'VSeries.dll' name 'BII_Open_TCPIP_Unit_MT';

Un error en la convención de llamadas genera un error en el código por corrupción de la pila, por lo que será identificable fácilmente.



Saludos.

[jjmcira]

La Variable HUNIT la tengo definida en un Archiv BIIDefines, de la siguiente forma:

Type
  HUNIT = Thandle;

Y Si me faltaba definir el Pinteger, ya por lo menos si me saca ya otro mensaje de que el  Error opening socket y si de echo es una API, voy a seguir intentando determinar ese error que me saca.

Gracias de antemano

[jjmcira]

Hola Amigos Como interpretqarian ustedes esta funcion:

BII_Open_TCPIP_Unit_MT

HUNIT BII_Open_TCPIP_Unit_MT(char* host, unsigned short port, int connTimeout, int
*err)

Description:

Establishes a TCP connection to a host (V-Station). This function, despite the name, can establish

both a TCP connection to a single unit. A TCP connection will be a reliable two-way connection

much like a serial connection.

[/size]

Parameters:

*host A pointer to an array of char containing the name of the host machine to

establish a TCP connection to, in the form of a dotted IP address

(“10.50.60.70”).

port The TCP port to attempt to connect on. For TCP this should be 10001. Future

versions of V-Station may allow other ports.

connTimeout Parameter included in Multithreaded DLL, here need to pass the timeout and up

to the given timeout connection request is waiting in a given timeout if

connection is not established then this API return false.

err Parameter included in Multithreaded DLL, Return the error if exist while

connection.

[/size]

Return Values:

HUNIT Return the not null HUNIT if connection to device is established successfully.

And the returned handle is need to pass in other commands to communicate to

the device

Error An error specified in the error table. See end of chapter for a description.

function BII_Open_TCPIP_Unit_MT(host:Pchar; port: ushort ;
  connTimeout: integer ; err: PInteger) : HUNIT ; stdcall; external
  'VSeries.dll' name 'BII_Open_TCPIP_Unit_MT';

Y la lectura la estoy haciendo de esta forma, pero me marca error opening sockect, como si la direccion estuviera bloqueada, o fuera la incorrecta, siento que me esta faltando algo en la variable m_StrIPAddress, no se si sea el tipo o no se

m_StrIPADddress: Pchar;
m_pUnitHandle, nResult : Integer;
TCPIP_Port := 10001;
TCPIP_Timeout := 1000;

m_strIPADdress := '192.168.0.51';
    m_pUnitHandle := BII_Open_TCPIP_Unit_MT(m_strIPADdress, TCPIP_Port, TCPIP_TIMEOUT, @nResult);
  if (nResult < 0) then begin
    Showmessage('Error 1:'+inttostr(nResult));
    m_bIsCommunicationEstablished := FALSE;

Si me pudieran ayudar con esto se los voy a agradecer. Gracias

[escafandra]

Para manejas los Socket en Windows debes inicializarlos y cerrar al terminar:

Es posible que tu error venga por aquí. La dll que usas, posiblemente tenga implementada alguna función que se encargue de ello, si no es así puedes realizar algo como esto:

delphi

var
  WSA: TWSADATA;
begin
  // Inicializando...
  if(WSAStartup(MakeWord(1,1), WSA) <> 0) then exit;
 
............................
............................
 
// Finalizando...
  WSACleanup();
end;

Saludos.

[jjmcira]

Hola Ing. Escafandra
Buenas Tardes

Que posibilidades hay de que le envio la dll y el programa que estoy usando para detectar el problema y me pueda ayudar a determinar que es lo que estoy haciendo mal.

[escafandra]

El problema está en la escasa disponibilidad de tiempo del que dispongo y la incapacidad de simular el lector biometrico V-Station G4, del que hablas. Puede que el problema esté en la IP:Puerto que usas.

Si tu programa tiene muchas líneas de código, analizarlo levará mucho tiempo. Una función simple si podría tratar de estudiarla, pero con la dificultad de no poder simular tu entorno de trabajo. No puedo prometerte nada.




Saludos.

[jjmcira]

Hola Escafandra, te proporciono el codigo, es muy simple

delphi

unit BL1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  HUNIT = Thandle;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
  nResult : integer;
  m_pUnitHandle: HUNIT;
  m_bIsCommunicationEstablished : Boolean;
  m_strIPADdress: pchar;
    { Public declarations }
  end;
function BII_Open_TCPIP_Unit_MT(host:pchar; port: ushort ;
  connTimeout: integer ; err: PInteger) : integer ; stdcall ;
  external 'E:\Sistemas\Proyectos\L1\VSeries.dll' name 'BII_Open_TCPIP_Unit_MT';
var
  Form1: TForm1;
const
  TCPIP_PORT     =  10001 ;
  TCPIP_TIMEOUT  =  1000 ;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
 m_pUnitHandle := 0;
 m_bIsCommunicationEstablished := FALSE;
 m_strIPADdress := '0.0.0.0';
  nResult := 0;
  m_pUnitHandle := BII_Open_TCPIP_Unit_MT('10.10.15.25', TCPIP_PORT, TCPIP_TIMEOUT, @nResult);
  if (nResult < 0) then begin
    Showmessage('Error 1:'+inttostr(nResult));
     m_bIsCommunicationEstablished := FALSE;
 end
 else begin
     m_bIsCommunicationEstablished := TRUE;
     ShowMessage('Communication was established successfully.') ;
  end;
  end;
end.

Este es el error que me saca  -125 TCP/IP: Error opening socket
  Y te anexo como esta declarado en C++, esta DLL que se utiliza es para trabajar con cualquier lenguaje


[c]Funcion en C++
  typedef HANDLE HUNIT;
  // TCP/IP functions
/********************Functions do not require UNIT Handle *********************/  HUNIT WINAPI BII_Open_TCPIP_Unit_MT(char* host, unsigned short port, int connTimeout, int *err);[/c]



Como te puedo hacer llegar la dll y la direccion IP publica donde tengo un equipo en linea para pruebas.


En espera de tus comentarios. Saludos y gracias de antemano

[Delphius]

Hola jjmcira.

He editado tu mensaje para darle el formato adecuado al código. Además, por motivos de seguridad he eliminado tu e-mail a fin de evitarte una orda de spammers. En todo caso debes comunicarte en forma privada con escafandra.

Saludos,

[escafandra]

Has hecho bien, Delphius.

Por mi parte ya le enviado un  correo a esa dirección que publicó, solo falta que lo lea...

Saludos.

[escafandra]

He probado el código en las siguientes condiciones:
- Dirección IP pública que proporcionaste.
- Ruta de VSeries.dll en la misma que el  proyecto y el ejecutable.


El resultado es que conecta perfectamente. Te envío por correo el proyecto.




Saludos.

[jjmcira]

HOLA
Buenas Tardes ESCAFANDRA

Fijate que ya logre conectarmen  bien, gracias a la ayuda que me proporcionaste, pero ahora tengo el problema de convertir un bloque o puntero de memoria a arreglo de bytes y este a su vez convertir la información en string y obtener los valores necesarios.

He estado trabajando y me marca un error despues de que asignoi en memoria los datos y los paso al array. te proporciono el codigo para solicitarte si me puedes opoyar con esta información. Saludos y gracias de antemano.

delphi

unit L1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, BIITypes, BIIDefines, BIIMTFuntionsBasic, Buttons;
type
  TFL1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    nResult, m_nCommunicationType, m_nDeviceID, TCPIP_Port, UDPIP_Port,
      TCPIP_Timeout, m_nFingerDataFormat: Integer;
    m_pUnitHandle: HUNIT;
    m_UnitType : BII_Unit_Type;
    m_bIsCommunicationEstablished: Boolean;
    m_strIPADdress: pchar;
    cIPAddress: string[20];
  end;
var
  FL1: TFL1;
implementation
{$R *.dfm}
procedure TFL1.Button1Click(Sender: TObject);
var
  max_datalogs, TotalEntries, MaxEntries, All_Transactions, m_Resul: Integer;
  Manejador_Memoria, IntPtr: PByte;
  m_pUnitHandle: HUNIT;
  buffSizeTotal: integer;
  buffSize1Trans, lStatus, m_NumTransToEvaluate,
  m_NumTransProcessed, m_Result, ASYNC_MODE, I: Integer;
  BII_Transaction: BII_Transaction_Log_Struct;
  rawData: array[0..1000] of Byte ;
begin
  max_datalogs := 500;
  Manejador_Memoria := 0;
  All_Transactions := 0;
  m_pUnitHandle := NULL;
  //
  //*
  TCPIP_Port := 10001;
  UDPIP_Port := 10002;
  TCPIP_Timeout := 1000;
  m_pUnitHandle := 0;
  m_bIsCommunicationEstablished := FALSE;
  m_nCommunicationType := 1;
  m_nDeviceID := 0;
  // m_strIPADdress := '0.0.0.0';
  nResult := 0;
  ASYNC_MODE := 0;
  // BOOL bSuccess = TRUE;
  FillChar(m_UnitType, 0, SizeOf(m_UnitType));
  // CloseCommunication();            // close existing communication
  cIPAddress := '200.67.122.81';
  // StrCopy(cIPAddress, m_strIPADdress);
  m_pUnitHandle := BII_Open_TCPIP_Unit_MT(cIPAddress, 10001, 1000, @nResult);
  // m_pUnitHandle := BII_Open_UDP_Unit_MT(cIPaddress, 10002, @nResult) ;
  if (nResult < 0) then
  begin
    Showmessage('Error 1:' + inttostr(nResult));
    m_bIsCommunicationEstablished := FALSE;
  end
  else
  begin
    m_bIsCommunicationEstablished := TRUE;
    nResult := BII_Set_Current_NetID_MT(m_pUnitHandle, m_nDeviceID);
    if (nResult < 0) then
    begin
      Showmessage('Error 2:' + inttostr(nResult));
      m_bIsCommunicationEstablished := FALSE;
    end
  end;
  if (m_bIsCommunicationEstablished) then
  begin
    Showmessage('Communication was established successfully.');
    nResult := BII_Get_Unit_Type_MT(m_pUnitHandle, m_UnitType); // get product type of device
    nResult := BII_Get_Finger_Data_Format_MT(m_pUnitHandle);  // get template format used of device
    if (nResult > 0) then  begin
     m_nFingerDataFormat := nResult;
     end
    else
       showmessage(inttostr(nresult));
    end ;
   // 0 - All Transactions Log
  // 1 - Only un-read entries
  // 'checa si la terminal no esta Busy
  // '1          The MV1200 is busy.
  // '0          The(MV1200 Is idle)
  // '2          The MV1200 is cleaning up flash
  // 'Error(<0)  An error specified in the error table. See end of chapter for a description.
    nResult := BII_Status_MT(m_pUnitHandle);
    if nResult <> 0 then  begin
        showmessage('Diferente de 0:'+inttostr(nResult));
    end
    else
     begin
         showmessage('No es Diferente de 0:'+inttostr(nResult));
     end;
    // ' Determina el total de todas las transacciones
    TotalEntries := BII_Get_Num_Transaction_Log_MT(m_pUnitHandle, All_Transactions);
    if TotalEntries < 0 then
    begin
       showmessage('No existen Transacciones ...');
    end;
    showmessage('Total de Transacciones: '+inttostr(TotalEntries));
    m_NumTransToEvaluate := -1;
    m_NumTransProcessed := 0;
    buffSize1Trans := SizeOf(BII_Transaction);
    showmessage(inttostr(buffSize1Trans));
    m_Result := 1;
  {While (TotalEntries > 0) And (m_Result > 0) And (nResult = 0) do
  // ' mientras haya checadas y no se tengan errores
  begin
    If TotalEntries > max_datalogs then
    begin
      MaxEntries := max_datalogs;
    end
    else
    begin
      MaxEntries := TotalEntries;
    End;
    TotalEntries := MaxEntries;
    Try}
      // ' calcula el tamaño de todo el buffer de transacciones a bajar
      buffSizeTotal := buffSize1Trans * MaxEntries;
      showmessage(inttostr(buffSizeTotal));
      //     Dim rawData(buffSizeTotal - 1) As Byte
      Manejador_Memoria := allocmem(sizeof(buffSizeTotal)) ;
       //Manejador_Memoria := Marshal.AllocHGlobal(buffSizeTotal) ;
        //    'checa si la terminal no esta Busy
        nResult := BII_Status_MT(m_pUnithandle);
        If nResult = 0 Then
        //  ' baja el buffer y las marca como leidas}
        nResult := BII_Read_Transaction_Log_MT(m_pUnitHandle, ALL_TRANSACTIONS, 1, maxEntries, Manejador_Memoria);
        showmessage('Resultado de Lectura del Log en memoria...'+inttostr(nResult));
        If nResult > 0 Then begin
        //    ' copia el buffer de memoria en un arreglo de bytes
        //Marshal.Copy(Manejador_Memoria, rawData, 0, buffSizeTotal)
        copyMemory(@manejador_memoria, @rawData, length(rawdata)) ;
        //Marshal.FreeHGlobal(Manejador_Memoria)
        freemem(Manejador_Memoria);
        showmessage('Hasta Aqui vamos bien ...');
        //   'por cada una de las transaciones bajadas
        for I := 0 to MaxEntries - 1 do
            Manejador_Memoria = allocmem(buffSize1Trans)
        //toma del arreglo de bytes la porcion correspondiente a la transacciones
        //y lo copia en un buffer de memoria
        //Marshal.Copy(rawData, i * buffSize1Trans, Manejador_Memoria, buffSize1Trans)
        Copymem(rawData, i * buffSize1Trans, Manejador_Memoria, buffSize1Trans)
        BII_Transaction := CType(Marshal.PtrToStructure(Manejador_Memoria, GetType(BII_Transaction_Log_Struct)), cDatalogVF.BII_Transaction_Log_Struct)
        //       '---------------------------------------------------------------------
        //       ' registra la transaccion
        WriteTransacc(BII_Transaction) ;
        //       '---------------------------------------------------------------------
        //(Manejador_Memoria)
        FreeMem(Manejador_Memoria);
        Manejador_Memoria := Zeromemory;
        //Next
        freemem(Manejador_Memoria) ;
        Manejador_Memoria = ZeroMemory;
        End ;
        {End If   'If lStatus = 0 Then
        Catch ex As Exception
        nResult := -99   'Error generico
        Finally
        If Not Manejador_Memoria.Equals(IntPtr.Zero) Then Marshal.FreeHGlobal(Manejador_Memoria)
        Manejador_Memoria = IntPtr.Zero
        End Try}
        //checa si la terminal no esta Busy
        //ONLY_READ_TRANSACTIONS
        nResult := BII_Status_MT(m_pUnitHandle);
        //If (nResult = 0) And (m_Resul > 0 )Then begin
        //                ' borra las transacciones marcadas como ya leidas
        //showmessage('Enrto a Marcar los Logs para ser Borrados');
        //nResult := BII_Erase_Transaction_Log_MT(m_pUnitHandle, 0, ASYNC_MODE) ;
        //End;
        //If nResult <> 0 Then
        //End While
        //        ' Una vez obtenidas todas dispara el evento OnDatalogTransactions avisando que ya termino
        //end
      //
    {Finally
    End;
  end;}
end;
procedure TFL1.Button2Click(Sender: TObject);
begin
 // if (m_pUnitHandle <> 0) then
 // begin
    BII_Close_Unit_MT(m_pUnitHandle);
    m_pUnitHandle := 0;
 // end;
end;

[Delphius]

Hola,
jjmcira acabo de editar tu mensaje para darle formato. Para la próxima por favor tómate la molestia de aprender a etiquetarlo. Fíjate que debajo del combo para elegir el color de texto hay una serie de botones, justamente el casos es para etiquetar código Delphi, luego está para C++, C#, SQL y C respectivamente. También puedes hacerlo manualmente escribiendo [ delphi ] y [ /delphi ] sin los espacios.

Saludos,

[escafandra]

Fijate que ya logre conectarmen  bien, gracias a la ayuda que me proporcionaste...

 

...pero ahora tengo el problema de convertir un bloque o puntero de memoria a arreglo de bytes y este a su vez convertir la información en string y obtener los valores necesarios.

Mirando tu código veo que estas usando mal la API CopyMemory, confundes fuente y destino.
Por otro lado si quieres convertir un buffer a un String, una forma directa de hacerlo es:

delphi

var
  s: String;
begin
  SetLength(s, sizebuffer);
  CopyMemory(@s[1], buffer, sizebuffer);
end;

Saludos.

[jjmcira]

Hola Escafandra

Muchas gracias por la información, pero lo realice asi como me indicaste y al momento de ir generando la conversión no me muestra nada, asin en cambio lo baje a un arreglo de Bytes y asi si me da la información.

Como puedo hacerle para transformar de ese arreglo de bytes a un record y posterior a string.

lo tengo de la siguiente forma:

delphi

type
  BII_Transaction_Log_Struct = record
    id: Cardinal;
    reserved_1: Byte;
    index: Byte;
    year: WORD;
    month: Byte;
    day: Byte;
    hour: Byte;
    min: Byte;
    sec: Byte;
    trans_code: Byte;
    flag_port: Byte;
    trans_log_data_1: Byte;
    trans_log_data_2: Byte;
    trans_log_data_3: Byte;
    reserved_2: Byte;
    status: Byte;
  end;
 
var 
rawdata: array[1..10000] of byte;
logs: PByte;
BuffSize1Trans : Integer;
BII_Transaction : BII_Transaction_Log_Struct ;
 
 
begin
 
 copyMemory(@rawdata, logs, sizeof(buffSize1Trans))
 
end

En espera de tus comentarios. Saludos y gracias de antemano

[escafandra]

¿Dices que lo cargaste en un array de Bytes correctamente?.
Desconozco la estructura de la información que recibes, pero déjame preguntarte: ¿La estructura  (record) que declaras, es la estructura de los datos que recibes? Si es así la lectura la puedes realizar directamente en ella.




Saludos.

[jjmcira]

Asi es Escafandra

La estructura que se recibe es identica al Record que te mostre anteriormente, pero no encuentro como descargarla directamente en el record desde el Array.

En espera de tus comentarios Saludos

[escafandra]

La estructura que se recibe es identica al Record que te mostre anteriormente, pero no encuentro como descargarla directamente en el record desde el Array.

Pues es sencillo, en lugar de usar un array para descargarla, usa un puntero a una variable declarada como tu estructura.


Saludos.

[jjmcira]

Perdon por mi ignorancia escafandra, pero me pudieras propporcionar un ejemplo, te lo voy a gradecer mucho. Saludos y gracias

[jjmcira]

Hola Escafandra

Buenas Noches

Fijate que ya logre pasar los datos al Record, pero siempre me maneja el mismo dato, como puedo hacer para que se recorra, ya que si le integro del for me marca que no es array.

Lo tengo de dos formas:

delphi

[i] 
var
BII_Transaction: BII_Transaction_Log_MT;
LogDatos: ^BII_Transaction_Log_MT;
MaxEntries: Integer;
 
begin
MaxEntries:= 50;
 
 
for i := 0 to MaxEntries - 1 do
begin
 
Copymemory(@BII_Transaction, Logs, buffSize1Trans);
copyMemory(@LogDatos, @logs, sizeof(Logs))
 
end;
 
[/i]

En espera de tus comentarios. Saludos y gracias de antremano