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}
{$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