WinAPI

[sobi]

Hallo,

*peinlich* - doofe Frage:
Auf dem Rechner meiner Freundin (XP) habe ich PB installiert. Allerdings funktionieren die WinAPI Funktionen nicht so, wie auf meinem Rechner (Win98)
Woran liegt das?
Liebe Grüße,

Simon

[roherter]

wahrscheinlich daran das bei xp die api viel mehr funktionen enthält als windows 98!

[sobi]

wahrscheinlich daran das bei xp die api viel mehr funktionen enthält als windows 98!

Aber was ich auf win98 gemacht habe, läuft auf winXP fehlerhaft.

[Kiffi]

> Aber was ich auf win98 gemacht habe, läuft auf winXP fehlerhaft.

kannst Du mal ein konkretes Beispiel nennen? Dann könnten wir schauen, ob
sich bei dem entsprechenden Aufruf zwischen beiden System was verändert
hat.

Grüße ... Kiffi

[sobi]

kannst Du mal ein konkretes Beispiel nennen? Dann könnten wir schauen, ob sich bei dem entsprechenden Aufruf zwischen beiden System was verändert hat.

Im Moment habe ich nur noch einen Fehler:

Code: Alles auswählen

    Buffer.s=Space(40) 
    GetObject_(GetClassLong_(WindowID(),#GCL_HBRBACKGROUND),40,@Buffer.s) 
    farbe.l=PeekL(@Buffer.s+4)

Damit lese ich (zumindest unter Win98) ganz erfolgreich die Hintergrundfarbe aus.
Grüße
Simon

[ts-soft]

Code: Alles auswählen

BufferLength = GetObject_(GetClassLong_(WindowID(),#GCL_HBRBACKGROUND),0,@Buffer)
*Buffer = AllocateMemory(BufferLength) 
GetObject_(GetClassLong_(WindowID(),#GCL_HBRBACKGROUND),BufferLength,*Buffer)

so in etwa sollte es gehen, nicht einfach 40 als Buffer, sondern die Länge ermitteln. Nachher den Speicher wieder freigeben nicht vergessen

[hardfalcon]

@ts-soft: Hab zwar grad kein PB zur Hand, aber kann man mit den aktuellen PB-Versionen überhaupt noch Memory freigeben? Ich dachte, die Memory-Nummern (also z.B. #Memory) seien schon vor längerer Zeit abgeschafft worden, und PB würde das jetzt alles automaisach besorgen... Bitte korrigiert mich, wenn ich falsch liege...

//EDIT: ach nee, hab grad auf PureArea.net nachgeschaut, FreeMemory(*MemoryID) gibts trotzdem. Wundert mich aber, wie er da die Länge des zu freeenden Buffers rausfinden will... früher war das doch immer FreeMemory(#Memory), oder etwa nicht?

[ts-soft]

Zum freigeben benutzt Du den MemoryPointer von AllocateMemory

Code: Alles auswählen

MyMemory = AllocateMemory(100)
; tu was
FreeMemory(MyMemory) 

; oder so
*MyMemory = AllocateMemory(100)
; tu was
FreeMemory(*MyMemory) 

[Lebostein]

Wie kann ich eigentlich anhand des Memory-Pointers die Größe des dazugehörigen Speicherbereiches ermitteln? Geht das irgendwie? (Aber bitte nicht mit der Antwort kommen: "Naja, du musst die Größe ja beim Allocieren angben, wozu willst du sie dann noch ermitteln?")

[ts-soft]

Code: Alles auswählen

MyMemory = AllocateMemory(100)
; tu was
Debug GlobalSize_(MyMemory)
FreeMemory(MyMemory)

MEM = AllocateMemory(100)
Debug GlobalSize_(MEM)
MEM = ReAllocateMemory(MEM, 200)
Debug GlobalSize_(MEM)
FreeMemory(MEM)
Debug GlobalSize_(MEM)
FreeMemory(-1)
Debug GlobalSize_(MEM)

Das zweite Beispiel verdeutlicht, was es mit FreeMemory in PB so auf sich hat