XProfan

Español

Michael
Dell

En folgender Source bin Yo überfragt worans liegt, jedenfalls läufts en Profano de v7.6 wärend Profano2Cpp fehlerwerte liefert (todos Versionen) je después de Compiler son el Fehlerwerte incluso unterschiedlich. Oder tener Yo como vieleicht nen Fehler drin?
Kompilieren Marca Separación

!Proc GetFreeMem  Gibt Freien RAM Speicher zurück (- (2-4Mb))
Def GlobMemStat(1) !"KERNEL32.DLL","GlobalMemoryStatus"
Declare MemStat#,ret&
Dim MemStat#,32
Long MemStat#,0 = 32
GlobMemStat(MemStat#)
ret& = Long(MemStat#,29)
Case (ret& > (8 * $0100000)): ret& = (ret& - $0200000)
ret& = (ret& - $0200000)
Dispose MemStat#
Return ret&

EndProc

Print Str$(Int(GetFreeMem() / (1024 * 1024)))
WaitInput
End

MemStat.zip	309 kB

Kurzbeschreibung:	__Demos__

Hochgeladen:	11.12.2006

Ladeanzahl:
		Descargar

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

11.12.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

¡Hola Michael,

muy seltsam - en liefert el Code incluso en el XProfan 10-Interpreter una más Ergebnis como el Profano 7.6-Exe de el Archiv...

Yo melde mich otra vez, sobald Yo algo herausgefunden habe.

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

11.12.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

Zwei Dinge son me aufgefallen:

1. Gibt GetMemoryStatus() seit XProfan 8.0 y con Profano2Cpp una Fehlercode zurück - dass se entonces o más weniger zufällige Werte ergeben, es klar...

2. Sollte el Valor a Offset 28 ausgelesen voluntad, pero si el API-Aufruf ya no funktioniert, es el primero nebensächlich.

Was Yo desafortunadamente todavía no herausfinden podría es, por qué el API-Aufruf fehlschlägt...

EDIT: Yo sehe gerade: This function does not volver a value. - el macht el Sache todavía undurchsichtiger. Mit Profano 7.6 es el Rückgabewert 0, con späteren Versionen entonces algo, el muy una Fehlercode aussieht...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

11.12.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
König

Ok, Yo denke, Yo una Erklärung:

Was Usted abfragst, es el Attribut dwAvailVirtual de el Struktur. Dazu es como Descripción en el Documentación: [quote:146fd6843f=MSDN]Indicates the number of bytes of unreserved and uncommitted memory en the user mode portion of the virtual address space of the calling process.[/quote:146fd6843f]
Das erklärt wohl, por qué el Werte así unterschiedlich son - lo kommt bastante en el Prozess a, also auch darauf, como y womit el Exe-Expediente erstellt wurde y welchen Zustand se el Programa para Zeitpunkt des Aufrufs befindet.

Yo vermute veces, Usted bist más a dwAvailPhys interessiert, el wäre entonces Offset 12

En me son así el Werte entonces en allen Varianten auch en el Rahmen el Schwankung en algunos MB identisch...

Relacionado con la Rückgabewert es vermutlich Zufall.

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

11.12.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Dell

Funktioniert besten, vielen Dank!!!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

11.12.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola ihr beiden...

Nur a Info:
Commited = virtueller Speicher, el una realen Speicher zugewiesen wurde
Reserved = como belegt markierter virtueller Speicher, el aber keinem realen Speicher zugewiesen wurde
Libre = freier virtueller Speicher, el realem Speicher zugewiesen voluntad kann

Nur commited Memory kann wirklich ausgelesen voluntad, como en allenanderen Fällen gar kein Speicher como es, el uno wirklich auslesen kann. Versucht uno en Speicher zuzugreifen, el no commited es, hay el bekannte Zugriffsverletzung (Messagebox y el Proggi se vom OS gekillt).

El API GlobalMemoryStatus liefert, si en el virtuellen Speicher va, no wirklich brauchbaren Werte. Will uno Werte encima el virtuellen Speicher otro Prozesse erfahren, debería uno en el Nativo API ausweichen.

Saludo

Andreas

15.12.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita