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