TMSWebUpdate - eine neue WebUpdate-Komponente

[Marco Steinebach]

Hi Assertor,

Zitat von Assertor:

Zitat von Marco Steinebach:

Ein zweiter Schalter
Indy10
ist dazu gekommen. Der Muß gesetzt werden, wenn Indy10 eingesetzt wird.
Tut mir leid, daß das jeder von Hand machen muß, aber ich hab absolut nicht rausfinden können, wie man's Programmseitig ermitteln kann.

{$IFDEF INDY100} Wird in IdGlobal.pas per IdCompilerDefines.inc gesetzt. Also einfach IdGlobal einbinden und per IFDEF prüfen.

Das hab ich auch gedacht, es funktioniert aber nicht.
I IdCompilers.inc wird bei mir
Indy90
definiert.
Aber mein Compiler meckert ...
Hier mal ein Auszug aus der Unit, wo's knallt:

Delphi-Quellcode:

uses
  classes, IdComponent, IdHTTP, IdGlobal;
type
  TOnWorkEvent = procedure(Sender: TThread; AWorkCount: Integer) of object;
  TDownloadThread = Class (TThread)
    private
      procedure InternalOnWork (Sender: TObject; AWorkMode: TWorkMode; {$IFDEF Indy90} const {$ENDIF} AWorkCount: Integer);
...

In Indy9 kommt hier vor dem aWorkCount ein const, in Indy10 ist das weggefallen. Also müßte, ..., es ja eigentlich klappen.
Irgend 'ne Idee, warum es das nicht tut?
Freundliche Grüße
Marco