How to find free memory?

[Petr]

Hi. Do you already know what happens if you exceed the available free memory? The MEM field reports that the memory has been freed. I was now opening an MP3 file with a length of 1 hour and 33 minutes, and I had about 40 songs with a length of about 3 minutes each loaded in my memory. The great news is that it ended in an error message, so you know what to look for. That's absolutely perfect. Yeah, I'm testing my program with really brutal methods, because I don't want to be ashamed of it. So. Is there any direct function in QB64, please?

[SMcNeill]

https://www.qb64.org/forum/index.php?topic=2694.msg118969#msg118969

Are these routine what you're looking for?

[Petr]

I forgot! Thank you very much! I'll look into it immediately! Thanks wery much! Perfect, absolutly perfect!

[Petr]

Yes! I've tried it, it's clear, understandable, that's exactly what I need. I'll use it in my program, which is still running in the background, the fan on the processor is roaring, but the speakers will overroaring it, just a complete idyll according to my taste!

Thank you again, Steven.

[SMcNeill]

Glad they’re what you're looking for.  👍

[Petr]

This is my status now:

  [ You are not allowed to view this attachment ]  

[Pete]

I like Steve's Library. I rate it 5 out of 5: 🎃🎃🎃🎃🎃

That's right, I learned where the emojis were hiding. Wooohahahahah!

[Petr]

Want to see how I solved the problem in my program? I offer stable source code. If you are interested, I will publish it (in the same functionality as in thread about convertoffset but stable). Definitely tomorrow (I have 23:25) I will continue hard, because I finally have a stable engine. I'm literally excited. I am very happy. I have a lot of ideas about what to add to the program and I know how to do it. Now there is nothing to stop it. Amazing. It's just absolutely amazing.

[SpriggsySpriggs]

You don't actually need Steve's header files to do this. It can be done entirely within QB64. I have code for this somewhere

[Richard]

@Petr

try this

Code: QB64: [Select]

1. DIM SHARED memstat AS MEMORYSTATUSEX
2. DIM SHARED Result AS _INTEGER64
3. TYPE MEMORYSTATUSEX
4.     dwLength AS LONG
5.     dwMemoryLoad AS LONG
6.     ullTotalPhys AS _UNSIGNED _INTEGER64
7.     ullAvailPhys AS _UNSIGNED _INTEGER64
8.     ullTotalPageFile AS _UNSIGNED _INTEGER64
9.     ullAvailPageFile AS _UNSIGNED _INTEGER64
10.     ullTotalVirtual AS _UNSIGNED _INTEGER64
11.     ullAvailVirtual AS _UNSIGNED _INTEGER64
12.     ullAvailExtendedVirtual AS _UNSIGNED _INTEGER64
13. END TYPE
14. DECLARE CUSTOMTYPE LIBRARY 'Memory Information using KERNEL32
15.     FUNCTION GlobalMemoryStatusEx& (Mstat AS MEMORYSTATUSEX)
16. END DECLARE
17.  
18. gosub Free_MEM:
19. END
20.  
21. Free_MEM:
22. memstat.dwLength = LEN(memstat): Result = GlobalMemoryStatusEx&(memstat)
23. Free_MEM&= memstat.ullAvailPhys:print "freeMEM= ";:print using "###,###,###,###";memstat.ullAvailPhys;:print " bytes";
24. return
25.  

[FellippeHeitor]

I like Steve's Library. I rate it 5 out of 5: 🎃🎃🎃🎃🎃

That's right, I learned where the emojis were hiding. Wooohahahahah!

Oh, God. It starts.
🙊🙈🙉