Indy compile problem

[th_bone]

Hi,

ich versuche den snapshot von indy 10 zu compilieren bekomme aber bei dclindycore90 folgende fehler:

[Fehler] IdDsnPropEdBinding.pas(116): E2029 Bezeichner erwartet, aber 'TYPE' gefunden
[Fehler] IdDsnPropEdBinding.pas(124): E2029 Bezeichner erwartet, aber 'PROCEDURE' gefunden
[Fehler] IdDsnPropEdBinding.pas(124): E2065 Ungenügende Forward- oder External-Deklaration: 'FillHandleList'
[Fehler] IdDsnPropEdBinding.pas(125): E2065 Ungenügende Forward- oder External-Deklaration: 'GetListValues'


aber irgendwie sehe ich nicht was zu diesen fehlern führt
(kenne mich aber auch mit diesen compiler einstellungen nicht wirklich aus...)

jemand eine Idee ?

oder hat jemand einen aktuellen funktionierenden Indy 10 snapshot den er mir zukommen lassen kann.

Danke

Ralf

Hier die betreffende Unit (kommentare habe ich zur Übersicht entfernt)

Delphi-Quellcode:

unit IdDsnPropEdBinding;

interface
 {$I IdCompilerDefines.inc}
 {$IFDEF WidgetWinForms}
 {$R 'IdDsnPropEdBindingNET.TIdDsnPropEdBindingNET.resources' 'IdDsnPropEdBindingNET.resx'}
 {$ENDIF}

uses
  Classes,
  IdSocketHandle,
  {$IFDEF WidgetWinForms}
  IdDsnPropEdBindingNET;
  {$ENDIF}
  {$IFDEF WidgetVCLLikeOrKylix}
  IdDsnPropEdBindingVCL;
  {$ENDIF}

type                          // hier bleibt der compiler stehen und meldet die fehler
  {$IFDEF WidgetWinForms}
   TIdPropEdBindingEntry = TIdDsnPropEdBindingNET;
  {$ENDIF}
  {$IFDEF WidgetVCLLikeOrKylix}
  TIdPropEdBindingEntry = TIdDsnPropEdBindingVCL;
  {$ENDIF}

procedure FillHandleList(const AList: string; ADest: TIdSocketHandles);
function GetListValues(const ASocketHandles : TIdSocketHandles) : String;

implementation
{$IFDEF WidgetWinForms}
procedure FillHandleList(const AList: string; ADest: TIdSocketHandles);
begin
  IdDsnPropEdBindingNET.FillHandleList(AList,ADest);
end;

function GetListValues(const ASocketHandles : TIdSocketHandles) : String;
begin
  Result := IdDsnPropEdBindingNET.GetListValues(ASocketHandles);
end;
{$ENDIF}
{$IFDEF WidgetVCLLikeOrKylix}
procedure FillHandleList(const AList: string; ADest: TIdSocketHandles);
begin
   IdDsnPropEdBindingVCL.FillHandleList(AList,ADest);
end;

function GetListValues(const ASocketHandles : TIdSocketHandles) : String;
begin
   Result := IdDsnPropEdBindingVCL.GetListValues( ASocketHandles);
end;
{$ENDIF}
end.