Zeiger verschieben beim x64 Compiler

[Codehunter]

Hi,

ich versuche die rkGlassButton-Komponente unter x64 zu kompilieren. Dummerweise steigt der Compiler da in der Zeile 400 aus: inc(Integer(s1), ptrD); s1 ist hier ein Pointer, ptrD ein Integer (die Benennung finde ich zwar seltsam, aber naja). Der Compiler läuft bei x86 durch, bei x64 sagt er "Der linken Seite kann nichts zugewiesen werden" und meint damit den Typcast s1 auf Integer. Wie verschiebe ich den Zeiger in dem Fall richtig?

Wahrscheinlich muss die Schrittweite auch verdoppelt werden, da ja Pointer bei x64 auch doppelt so groß sind. Richtig?

Grüße
Cody

[Der schöne Günther]

Vor dem Problem stand ich neulich auch, wenn ich es richtig im Hinterkopf hatte, hat es in dieser einen Methode den Integer auf NativeInt zu ändern.

Ich habe meine .pas nochmal angehängt, anscheinend waren es nur zwei Stellen (mit "TODO"-Kommentar markiert). Läuft bei mir unter 64Bit problemlos.

[Bernhard Geyer]

Evtl. würde sich hier der Wechsel auf NativeInt helfen.
Der normale Integer bleibt (wie auch bei .NET/Java/...) auch unter x64 bei 4 Byte größe.

[himitsu]

Man kann auch gern auf PAnsiChar casten, statt auf Integer NativeInt.
Für die PChar-Typen ist die Zeigerarithmetik aktiviert.

Und es müsste auch einen IntPtr-Typen geben (oder wie der nochmal hieß), welcher hier eigentlich für die Pointer-Typkonvertierung genommen werden sollte.

Integer war mal ein dynamischer Typ (z.B. in DOS und Win 1.0 war er noch 16 Bit), aber vorallem Intel, Microsoft und Co. hatten sich dann entschieden diesen Typen einzufrieren und Delphi ist hier blöder Weise mit dem Strom mitgeschwomen.

[Codehunter]

Danke euch beiden dreien! Das ging ja wirklich easy. Ich hätts mir schlimmer vorgestellt weil da sehr viel an Pointern rumgeschubst wird.

Diese simple Lösung hätte Emba ruhig auch mal in seinem entsprechenden Docfile erwähnen können (Abschnitt Zeigeroeprationen)

[Der schöne Günther]

Nach dem ersten Reinschauen in den Quellcode dachte ich auch erst "Dann eben nicht..." aber glücklicherweise war es wirklich nur diese Stelle. Die ganzen anderen Clever-Komponenten liefen ohne jegliche Anpassung direkt auf 64 Bit

[Codehunter]

Ja er schreibt schon wirklich coole Sachen. War nicht das gute alte TBX auch von ihm? Den GlassButton finde ich besonders faszinierend, weil er da eigentlich das Unmögliche schafft: Ohne Layered-Window den Hintergrund des Buttons zu zeichnen und dann als Hintergrund für das Canvas-Objekt des Buttons zu verwenden. Das klappt so gut, dass man ihn sogar auf ein Stretched-Image legen und dann das Image in der Größe ändern kann. Der Button wird trotzdem transparent und ohne Artefakte gezeichnet.

Scheint aber so als würde er zur Zeit nicht viel machen, die meisten Updates stammen aus 2011.

[jaenicke]

Zitat von Der schöne Günther:

Die ganzen anderen Clever-Komponenten liefen ohne jegliche Anpassung direkt auf 64 Bit

Hätte Embarcadero den Datentyp Integer bei der Einführung von 64-Bit entsprechend der Dokumentation behandelt, hätte auch dieser Fall hier sofort kompiliert.

[Der schöne Günther]

Was soll das heißen? Haben sie früher gesagt, er wäre dynamisch?

[Namenloser]

Zitat von Der schöne Günther:

Was soll das heißen? Haben sie früher gesagt, er wäre dynamisch?

Ja, genau das.

Und wenn dann irgendwann 128 Bit-CPUs kommen und Delphi dann noch existiert, dann kommt wahrscheinlich ActualNativeInt