Prototype mit Structure in Parameter

[Josh]

Hallo,

kann mir wer sagen, wie ich den folgenden Code auf X64 zum laufen bringen kann?

Code: Alles auswählen

EnableExplicit

Prototype.i ProtoAccessibleObjectFromPoint (x.l, y.l, *IAcc, *vt)

Define hDll.i
Define vt.VARIANT
Define CursorPos.point
Define *pIAcc.IAccessible
Define AccessibleObjectFromPoint.ProtoAccessibleObjectFromPoint

CoInitialize_(0)
hDll = OpenLibrary (#PB_Any, "Oleacc.dll")
AccessibleObjectFromPoint=GetFunction (hdll, "AccessibleObjectFromPoint")

GetCursorPos_(@CursorPos) 

If AccessibleObjectFromPoint (CursorPos\x, CursorPos\y, @*pIAcc, @vt) = #S_OK
  Debug "OK"
EndIf

Laut Microsoft hat AccessibleObjectFromPoint als ersten Parameter eine Structur vom Typ Point, was hier beim Prototyp durch zwei longs ersetzt wurde. Wenn ich das auf X64 probiere, bekomme ich eine Meldung, dass ein Schreibfehler an der Adresse aufgetreten ist, die dem Y-Wert entspricht.

[STARGÅTE]

Du kannst ja auch nicht einfach aus einem Parameter zwei machen.
Denn (glaube ich zumindest) es wird ja auf den Stack immer nur ein Vielfaches von 4 (32Bit) bzw. 8 (64Bit) gelegt.
im 32 Bit Fall hast du also glück, das die beiden Longs wirklich zusammen liegen.
Unter 64Bit wird aber 8Byte weiter gegangen, deswegen schreibt er in Y rein, da er ja x und Y bereits in den ersten 8 Byte erwartet hat.

Richtig wäre also, ein Parameter, welcher in dem Fall eine Quad ist, um den Punkt zu beinhalten:

Code: Alles auswählen

EnableExplicit

Prototype.i ProtoAccessibleObjectFromPoint (Point.q, *IAcc, *vt)

Define hDll.i
Define vt.VARIANT
Define CursorPos.point
Define *pIAcc.IAccessible
Define AccessibleObjectFromPoint.ProtoAccessibleObjectFromPoint

CoInitialize_(0)
hDll = OpenLibrary (#PB_Any, "Oleacc.dll")
AccessibleObjectFromPoint=GetFunction (hdll, "AccessibleObjectFromPoint")

GetCursorPos_(@CursorPos) 

If AccessibleObjectFromPoint (PeekQ(@CursorPos), @*pIAcc, @vt) = #S_OK
  Debug "OK"
EndIf

[Josh]

Danke Stargate. Auf das PeekQ hätte ich auch selber kommen können

Das mit den zwei Longs stammt nicht von mir, das was ich gepostet habe ist ein gekürzter Code aus dem Forum. Wahrscheinlich stammte der noch aus einer Zeit, wo es noch keine Quads gegeben hat.

So nebenbei eine andere Frage. Was tun, wenn eine Api eine komplexere Struktur als Point verlangt?

[ts-soft]

So nebenbei eine andere Frage. Was tun, wenn eine Api eine komplexere Struktur als Point verlangt?

Es wird fast immer eine Strukture ByRef verlangt, also kein Problem. Die wenigen APIs, die eine Strukture
ByVal verlangen kannst Du an einer Hand abzählen und sind IMHO niemals größer als ein Quad.

In älteren Versionen von PB wurden solche Strukturen tatsächlich als 2 Longs übergeben, was keinen Unterschied
macht.

Gruß
Thomas

[Josh]

Danke

[Josh]

Gehört zwar nicht ganz zum Thema, aber es handelt sich um das gleiche Beispiel. Irgendwie stehe ich momentan auf der Leitung.

Code: Alles auswählen

hDll = OpenLibrary (#PB_Any, "Oleacc.dll")
AccessibleObjectFromPoint=GetFunction (hdll, "AccessibleObjectFromPoint")

Was ich nicht raffe, wo bekomme ich in diesem Fall die #Library für CloseLibrary her?

[STARGÅTE]

Die "#Library"-Nummer wird von OpenLibrary() zurückgegeben.
Also dein hDll.

Im übrigen darfst du CloseLibrary() erst beim beenden des Programms aufrufen, vorher würde es sonst ein IMA ausgeben, wenn du mit AccessibleObjectFromPoint auf die Adresse in der DLL zugreifst.

[Josh]

Du musst immer der erste sein . Dafür hats mal ein Danke gegeben.

Die "#Library"-Nummer wird von OpenLibrary() zurückgegeben.
Also dein hDll.

Das ist genau das, was ich nicht raffe. Das was ich hier zurückbekomme, ist das Handle von Windows. Sonst würde das Beispiel nicht funktionieren.

Überall anders (wie z.B. bei OpenWindow oder CreateImage) bekomme ich die #..... Nummer zurück und hole mir dann mit ....ID() das OS-Handle.

[STARGÅTE]

Das was ich hier zurückbekomme, ist das Handle von Windows.

Nein ist es nicht.

In deinem Beispiel verwendest du keine Windows-API, auch GetFunction() ist eine PB Funktion, welche eine Library-Nummer verlangt, die entweder dynamisch generiert wurde (#PB_Any) oder eine Konstante.

Das echte OS-Handel der DLL brauchst du hier nie, weil PB das alles verwaltet.

[Josh]

In deinem Beispiel verwendest du keine Windows-API

Das war das Stichwort. OMG, wie kann man nur so auf der Leitung stehen.

thxs