Recent

Author Topic: Problem compiling Indy 10.5.8  (Read 2650 times)

vfclists

  • Hero Member
  • *****
  • Posts: 827
    • HowTos Considered Harmful?
Problem compiling Indy 10.5.8
« on: November 03, 2012, 12:49:29 pm »
I am compiling Indy 10.5.8 and I run into this problem.

Code: [Select]
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(22,53) Error: Identifier not found "TSelectionEditor"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(22,53) Error: Identifier not found "TSelectionEditor"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(22,53) Error: class type expected, but got "<erroneous type>"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(24,15) Error: There is no method in an ancestor class to be overridden: "TIdContextSelectionEditor.RequiresUnits(TGetStrProc);"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(27,58) Error: Identifier not found "TSelectionEditor"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(27,58) Error: class type expected, but got "<erroneous type>"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(29,15) Error: There is no method in an ancestor class to be overridden: "TIdSocketHandleSelectionEditor.RequiresUnits(TGetStrProc);"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEditors.pas(33,1) Fatal: There were 6 errors compiling module, stopping


The file with the problem is displayed below. I think using an up to date version of Lazarus 1.0.3/FPC 2.6.0 may be the problem. Did anyone with an up to date version of Indy come across it?
Code: [Select]
unit IdCoreSelectionEditors;

interface

{$I IdCompilerDefines.inc}

uses
  Classes
  {$IFDEF HAS_TSelectionEditor}
    {$IFDEF FPC}
    ,PropEdits
    ,ComponentEditors
    {$ELSE}
    ,DesignIntf
    ,DesignEditors
    {$ENDIF}
  {$ENDIF}
  ;

{$IFDEF HAS_TSelectionEditor}
type
  TIdContextSelectionEditor = class(TSelectionEditor)
  public
    procedure RequiresUnits(Proc: TGetStrProc); override;
  end;
 
  TIdSocketHandleSelectionEditor = class(TSelectionEditor)
  public
    procedure RequiresUnits(Proc: TGetStrProc); override;
  end;
{$ENDIF}

implementation

{$IFDEF HAS_TSelectionEditor}
procedure TIdContextSelectionEditor.RequiresUnits(Proc: TGetStrProc);
begin
  inherited RequiresUnits(Proc);
  Proc('IdContext');
end;

procedure TIdSocketHandleSelectionEditor.RequiresUnits(Proc: TGetStrProc);
begin
  inherited RequiresUnits(Proc);
  Proc('IdSocketHandle');
end;
{$ENDIF}

end.


Using Lazarus 1.0.3 svn 39226, FPC 2.6.0 svn 39183 Win32
« Last Edit: November 03, 2012, 12:57:58 pm by vfclists »
Windows - Lazarus 1.0.8/FPC 2.6.0
Linux - Lazarus 1.4.4 /FPC 2.6.4

 

TinyPortal © 2005-2018