Error 2008 - inkompatible Typen

[WerkstattBoss]

Hallo,
ich bekomme beim, kompilieren den Fehler 2008

Delphi-Quellcode:

procedure acLoadResStr(var AValue: acString; ALib: HModule; AIdent, DefValue: integer; Suffix: acString = ''); overload;
var
  ResStringRec: TResStringRec;
begin
  if Lib <> 0 then begin
    ResStringRec.Module := {$IFDEF DELPHI5}@Longint(ALib){$ELSE}@ALib{$ENDIF} ;<-----------------------in dieser Zeile
    ResStringRec.Identifier := AIdent;

und ich weiß nicht weiter.
Der code stammt aus einer kommerziellen Library, ich habe die Sourcecode Lizenz. Versuche, den Programmierer zu erreichen, fruchten nicht.

Irgendeine Idee?

TIA Rolf

[bernau]

Dazu müsstes du auch die Deklaration von TResStringRec mal posten, damit man sehen kann wie TResStringRec.Module definiert ist.

[himitsu]

Erstmal fehlen hier "alle" wichtigen Infos:
* was für eine Lib
* was für Typen, bzw. wie ist TResStringRec deklariert? (man mag es nicht glaube, aber Strg+C funktioniert auch im Compiler-Log)
* und was soll DELPHI15 sein? (ich weiß doch nicht, wie die Definition von dem aussieht, denn das ist keine Definition von Delphi/Embarcadero)

Delphi 7 = Compiler Version 15
Delphi XE = Product Version 15
Delphi XE7 = IDE Version 15

XE2 : Compiler 23, Product 16, IDE 9

Ich denk jetzt einfach mal, das ist ein Quellcode "nur" für (bis) XE (Product 15).
{$IFDEF DELPHI5} sollte dann wohl {$IFDEF DELPHI6} oder eher {$IFDEF DELPHI5undhöher} heißen, oder was auch immer die da definiert haben.

[bernau]

Zitat von himitsu:

* und was soll DELPHI15 sein?

Wo steht Delphi15?

[himitsu]

Zitat von bernau:

{$IFDEF DELPHI5}@Longint(ALib){$ELSE}@ALib{$ENDIF}

[WerkstattBoss]

@himitsu

Lib : Alphaskin Version 11.13

Delphi-Quellcode:

TResStringRec = packed record
    Module: ^Cardinal;
    Identifier: NativeUint;
  end;

{$IFDEF DELPHI5}@Longint(ALib){$ELSE}@ALib{$ENDIF} => $Ifdef Delphi5 ... $Else
Ausnahme für Delphi 5, sonst ...

[Uwe Raabe]

In XE2 entspricht HModule = THandle = NativeUInt, was nicht strikt kompatibel zu Cardinal ist.

[WerkstattBoss]

Das bedeutet praktisch ?

[Uwe Raabe]

Zitat von WerkstattBoss:

Das bedeutet praktisch ?

Daß du für XE2 das IFDEF erweiterst und einen entsprechenden Cast machst. Aber Vorsicht: das funktioniert nur unter 32-Bit. Bei 64-Bit sind Cardinal und NativeUInt nicht mehr binär-kompatibel. Eigentlich ist die Deklaration des Module-Felds ungünstig. Wenn da immer Pointer auf HModule reinkommen, dann sollte man das auch so deklarieren. Ist das denn die zu XE2 passende Version der Lib oder gibt es da auch was neueres?

[mkinzler]

Ändere es in NativeUInt