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?