Error Parámetro Referencia componente ActiveX

[Maniches]

Gracias Amigo duilioisola
sinceramente muchas gracias por tu tiempo en responder y por tu ayuda.

he realizado el cambio en base a tu ejemplo que me sugieres y me sale estos errores:

[dcc32 Error] Unit2.pas(38): E2033 Types of actual and formal var parameters must be identical
[dcc32 Error] Unit2.pas(39): E2010 Incompatible types: 'WideString' and 'PWideString'
[dcc32 Error] Unit2.pas(43): E2017 Pointer type required

intente cambiar al tipo de dato PWIDESTRING y me sale los mismos mensajes de error.

habría que cambiar la definición de la función cuando se importo el componente? (*Lib_TLB.pas) o algún otra sugerencia?

[Maniches]

Amigo duilioisola
He intentado modificar la forma de usar la función en base a lo que sugeriste y si bien me compila y ya no me muestra error no puedo obtener la información del parámetro:

Código Delphi [-]
var
  CardInformation : WideString;
  CardInformation2 : ^WideString;
begin
  try
    try
      GetMem(CardInformation2, 255 * 2);
      ReadCardResult:= MyCompActX.ReadInformation(CardInformation2^, 20, 20, 1, 'INGRESE NUM...');
      CardInformation := WideChar(CardInformation2);
      ShowMessage(CardInformation);
      CardInformation := PWideChar(CardInformation2);
      ShowMessage(CardInformation);
      CardInformation := StrPas(PAnsiChar(CardInformation2));
      ShowMessage(CardInformation);
    finally
      FreeMem(CardInformation2);
    end;
    if Trim(CardInformation2) <> '' then
      ShowMessage(CardInformation);
  finally
    MyCompActX.Free;
  end;

La información que debe devolver es: '092261779...' pero revisando el valor que se asigna como resultados de la función es:

CardInformation := WideChar(CardInformation2) --> #$1A30
CardInformation := PWideChar(CardInformation2) --> 'Ұ'#2
CardInformation := StrPas(PAnsiChar(CardInformation2)) --> '°'#4#2

que sugerencias amigo por donde puede estar el problema?

[[duilioisola]]

Creo que te sobra un ^.

Código Delphi [-]
var
  CardInformation : WideString;
  CardInformation2 : ^WideString; // Puntero a un WideString
begin
  try
    try
      // 1) Reservo 255x2 bytes de memoria a partir de la pisición de CartInformation2
      GetMem(CardInformation2, 255 * 2);
      // 2) Le paso el contenido de CartInformatio2. Es una posición de memoria. NO LE PASO EL CONTENIDO DE LO QUE HAY EN LA POSICION DE MEMORIA
      ReadCardResult:= MyCompActX.ReadInformation(CardInformation2, 20, 20, 1, 'INGRESE NUM...');
      3) // TypeCast para convertir la información recibida que se encuentra a partir de la posicion de memoria CartInformatio2 hasta que encuentre un \n
      CardInformation := WideChar(CardInformation2);
    finally
      // 4) Libreo memoria
      FreeMem(CardInformation2);
    end;

1) Reservo Memoria
GetMem me devuelve que en la posición 10000 hay un bloque continuo de 255x2 bytes reservados para mi
CartInformatio2 = 10000
CartInformatio2^ = 'B_A%S(U R-A.......'
En la posición de memoria 10000 hay basura (restos de cosas que el ordenador haya procesado)

2) Le paso la posición al componente ActiveX
Esta función rellena a partir de la posición recibida los datos que quiere devolver, terminando con un \n
CartInformatio2 = 10000
CartInformatio2^ = '092261779...\n'

3) Convierto la información recibida en algo mas ameno para trabajar en Delphi

4) Libero memoria
El bloque de 255x2 bytes queda libre para que otro proceso lo pueda utilizar.
Lo que haya en la posicion 10000 en adelante se considera basura para el próximo proceso que utilice.

[Casimiro Notevi]

Empezado por duilioisola

1) Reservo Memoria
GetMem me devuelve que en la posición 10000 hay un bloque continuo de 255x2 bytes reservados para mi
CartInformatio2 = 10000
CartInformatio2^ = 'B_A%S(U R-A.......'
En la posición de memoria 10000 hay basura (restos de cosas que el ordenador haya procesado)

2) Le paso la posición al componente ActiveX
Esta función rellena a partir de la posición recibida los datos que quiere devolver, terminando con un \n
CartInformatio2 = 10000
CartInformatio2^ = '092261779...\n'

3) Convierto la información recibida en algo mas ameno para trabajar en Delphi

4) Libero memoria
El bloque de 255x2 bytes queda libre para que otro proceso lo pueda utilizar.
Lo que haya en la posicion 10000 en adelante se considera basura para el próximo proceso que utilice.

Estas cosas la mayoría de los nuevos no llegan a entenderlo nunca.

[Maniches]

Amigo duilioisola
Nuevamente muchas gracias por tu tiempo y por la disponibilidad en ayudar.
Aquí comparto como me ha funcionado el procedimiento y como he podido obtener la información, claro también agrego unas consultas mas como para cerrar el ciclo de este POST.

Código Delphi [-]
procedure TForm2.btnConInfClick(Sender: TObject);
var
  CardInformation : ^WideString;
  CardInformation2 : WideString;
begin
  try
  ...
    try
      GetMem(CardInformation, 255 * 2);
      ReadCardResult:= MyCompActX.ReadInformation(CardInformation^, 20, 20, 1, 'INGRESE NUM...');
      CardInformation2 := PWideChar(CardInformation^);
    finally
      FreeMem(CardInformation);
    end;
    if Trim(CardInformation2) <> '' then
      ShowMessage(CardInformation2);
  finally
    MyCompActX.Free;
  end;
end;

OBS: Según tu sugerencia de que quizás estaba sobrando "^" no fue por ahí la solución ya que al compilar me salia el siguiente error:
"E2033 Types of actual and formal var parameters must be identical"

Aquí agrego unos comentarios y consultas para aclarar si realmente la solución esta trabajando bien:


Según el diseñador del componente el resultado de la función visualmente esta devolviendo: TEditText = '024517750292005301=22092261779080000000F'
con la solución que adjunto lineas arriba me esta devolviendo: CardInformation2 = '02'#$1C'4517750292005301=22092261779080000000F'
Cuando hago la copia del texto del componente TEditText que muestra el resultado de un app que proporciona el creador del componente ActiveX pasa algo estraño:

Si lo pego en un NOTEPAD = '024517750292005301=22092261779080000000F'
Si lo pego en un NOTEPAD++ = '024517750292005301=22092261779080000000F'

Aquí viene mis preguntas:

1. El resultado de la función según la implementacion adjunta estará devolviendo bien la información en la variable: CardInformation2?
2. Hay alguna forma de castear la variable CardInformation2 para que ya no muestre el carácter "#$1C"?
3. comparando el resultado de la función vs el TEdittext del App del componente, el carácter: #$1C =  (según nos muestra NotePad++ es un FS)
4. A su experiencia y conocimiento se sabe que la función va a devolver dentro de 45 a 80 caracteres, como se calcula el tamaño de memoria que se tiene que reservar para indicarle a la función GetMem?

Muchas gracias a los que ayudaron con su comentarios y su tiempo en especial a "duilioisola", espero ahí me puedan responder las preguntas para cerrar este POST y quede claro para algún colega que pueda necesitar una solución similar.

Gracias a todos por compartir sus conocimiento y para adelante con el foro es muy recomendable y activo.

Un abrazo a la distancia desde Perú.