Error Parámetro Referencia componente ActiveX

[Maniches]

Amigos del foro.
Acudo a los amigos a apoyarme al resolver un problema que tengo.

para iniciar el problema me esta ocurriendo cuando usa le versión Delphi 6, ya que la misma codificación en Delphi mas actualizado Delphi Tokyo trabaja todo bien. Yo necesito hacer que esto trabaje en delphi 6 ya que el sistema esta usando esa version.

Hay una función de un componente ActiveX y su definición de la importación del componente es:

Código Delphi [-]
 function  ReadInformation(var szCard: WideString; iTimeChip: SYSINT; iTimeMag: SYSINT; iType: SYSINT; const messMag: WideString): SYSINT; safecall;

yo he creado el siguiente proc que si funciona en la versión Tokyo:

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

El error que me muestra la linea ( CardInformation2 := PWideChar(CardInformation^) ) es: "Access violation at address 00404A83 in module 'TestCInf.exe'. Read of address 0034001C'"

Por favor necesito que me puedan ayudar a identificar el problema, como les mencionaba esto si funciona en una versión mas reciente de delphi, el componente activex requiere de memoria dinámica y por ello se reserva la memoria y luego se libera. pero en Delphi 6 no me esta permitiendo.

Muchas gracias a los amigos que me puedan responder sugiriendo una solución o compartiendo un ejemplo para poder validar la solución.

de antemano muchas gracias.

[Casimiro Notevi]

He unido ambos hilos porque es lo mismo

[Maniches]

Gracias amigo, pero no tienes una idea de lo que puede estar pasando?

[Casimiro Notevi]

¿Por qué no usas el código que te ha puesto de ejemplo duilioisola?

[Maniches]

si quito en carácter que el indica "^"

al compilar me muestra el sgte error: "Types of actual and formal var parameters must be identical"

Código Delphi [-]
      ReadCardResult:= MyCompActX.ReadInformation(CardInformation, 20, 20, 1, 'INGRESE NUM...');
      CardInformation2 := PWideChar(CardInformation);

como mencionaba el ejemplo que publico si me esta funcionando en la versión mas actual. No se porque lo mismo no me funciona en D6.

Gracias por tu ayuda.

[Casimiro Notevi]

Empezado por Maniches

si quito en carácter que el indica "^"
al compilar me muestra el sgte error: "Types of actual and formal var parameters must be identical"

A ver si es por otro parámetro, porque así a simple vista, diría que el que no debería funcionar es el que has puesto el "^".

[Maniches]

Casimiro

la definición de la función en el lenguaje que crearon el componente es:

HRESULT ReadInformation([in] BSTR* szCard, [in] int iTimeChip, [in] int iTimeMag, [in] int iType, [in] BSTR messMag, [out, retval] int *rc)

cuando importe el componente via delphi 6 en el archivo *_TLB.pas:

Código Delphi [-]
function  ReadInformation(var szCard: WideString; iTimeChip: SYSINT; iTimeMag: SYSINT; iType: SYSINT; const messMag: WideString): SYSINT; safecall;

por ello como te decía a la prueba que indico en el post si quito el carácter "^" me muestra error y muy probable por la definición de la importación.

Si bien pude resolver la forma de obtener la información del puntero, la cosa que todo se soluciono en Delphi Tokyo. el problema es que el app que va usar esa función esta trabajando con Delphi 6 y al hacer la misma prueba ahí no me funciona ya que me genera los errores que menciono.

Tienes un ejemplo o otra forma de trabajar las funciones de componentes ActiveX con Memoria Dinamica? actualmente se esta usando ese componente con otras funciones que contiene, la diferencia que la cadena que esta devolviendo lo hace como resultado de la función y estas funciones trabajan normal en D6. pero en esta función que menciono el resultado lo están devolviendo por un parámetro por referencia.