Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 20-09-2018
Avatar de Maniches
Maniches Maniches is offline
Miembro
 
Registrado: nov 2012
Ubicación: Lima - Perú
Posts: 67
Poder: 12
Maniches Va por buen camino
Lightbulb Error de acceso y liberación de puntero

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.
__________________
Maniches
maniches@outlook.com
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como quitar referencia de un componente steelha Varios 7 25-02-2013 15:48:58
Componente ActiveX importardo da error jmlifi OOP 5 03-05-2010 14:04:33
Componente activex levache Internet 6 30-12-2006 05:01:11
Ver componente ActiveX piccolo2101 Varios 1 05-12-2005 09:59:23
Eliminar componente ActiveX Coco_jac Varios 5 08-08-2005 18:43:52


La franja horaria es GMT +2. Ahora son las 22:02:09.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi