Ver Mensaje Individual
  #2  
Antiguo 14-07-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
En el caso de Delphi6, que es en el que yo las estuve probando en su día, es necesario desactivar la optimización para algunos bleuqes de código y evitar así el error C12911; Tal vez el tuyo sea por una cuestión similar:

En el caso de GHFRoutines.pas, aestos tres procedimientos que te uestro a continuación debes añadirles antes y después las directivas de compilación que te adjunto (línea 191 aprox.):

Código Delphi [-]
{$IFDEF VER140}
  // Para Delphi 6 desactivar la optimización
  // Internal error: C12911
  {$OPTIMIZATION OFF}
{$ENDIF}
  Function ghCall (Const Obj :TObject; Const MethodAddress, Param :Pointer)
    :Pointer; Overload;
  Begin
    Result := TghParamPointerMethod (ghMethod (Obj, MethodAddress)) (
      Param);
  End;


  Function ghCall (Const Obj :TObject;
    Const MethodAddress, Param1, Param2 :Pointer) :Pointer; Overload;
  Begin
    Result := TghTwoParamsPointerMethod (ghMethod (Obj, MethodAddress)) (
      Param1, Param2);
  End;


  Function ghCall (Const Obj :TObject; Const MethodAddress, Param1, Param2,
    Param3 :Pointer) :Pointer; Overload;
  Begin
    Result := TghThreeParamsPointerMethod (ghMethod (Obj, MethodAddress)) (
      Param1, Param2, Param3);
  End;
{$IFDEF VER140}
  {$OPTIMIZATION ON}
{$ENDIF}

Si estás con otra versión de Delphi, modifica la directiva para que te funcione.

Código Delphi [-]
  • VER80 - Delphi 1
  • VER90 - Delphi 2
  • VER100 - Delphi 3
  • VER120 - Delphi 4
  • VER130 - Delphi 5
  • VER140 - Delphi 6
  • VER150 - Delphi 7
  • VER160 - Delphi 8
  • VER170 - Delphi 2005
  • VER180 - Delphi 2006
  • VER180 - Delphi 2007
  • VER185 - Delphi 2007
  • VER200 - Delphi 2009
  • VER210 - Delphi 2010
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita