Problem compiling Indy 10.5.8
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
vfclists · 2012-11-03 11:49

I am compiling Indy 10.5.8 and I run into this problem.

Code: [Select]M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCo
reSelectionEditors.pas(22,53) Error: Identifier not found
"TSelectionEditor"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.pas(22,53) Error: Identifier not found "TSelectionEditor"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.pas(22,53) Error: class type expected, but got "<erroneous type>"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.pas(24,15) Error: There is no method in an ancestor class to be
overridden: "TIdContextSelectionEditor.RequiresUnits(TGetStrProc);"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.pas(27,58) Error: Identifier not found "TSelectionEditor"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.pas(27,58) Error: class type expected, but got "<erroneous type>"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.pas(29,15) Error: There is no method in an ancestor class to be
overridden:
"TIdSocketHandleSelectionEditor.RequiresUnits(TGetStrProc);"
M:\Lazarus\ThirdPartyLibs\Indy100508XE2RTM\Lib\Core\IdCoreSelectionEdi
tors.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