HSPTV!掲示板

メモリ解放ソフトを作っております、kaiです。
物理メモリの合計を取得したくて、以下のようなスクリプトを作りましたが

allmem = sysinfo(34)/(1024*1024)
mes allmem

2GB以上のサイズは取得できないようで-34MBとなってしまいます。
これをどうにかして取得できないでしょうか？

よろしくお願いします。

2GBは、バイトに直すと約2147483648バイトになります。
HSPが標準で扱える変数の値の限界は2147483648だったと思います。

2GB以上を取得しようとすると限界値の2147483648を変数が越えてしまうので、
そのようなことになるのだと思います。

外部のdllに2147483648以上の変数を扱えるものがあった気がするので、
そちらを探してみてください。

私も探します。

たぶんこれです。
青い葉っぱさんのページのlongint.dllってやつだと思います。

http://hp.vector.co.jp/authors/VA034288/

sample\new\ntmem.hsp を見る限り、kernel32の中の
GlobalMemoryStatusEx
を呼べば解決できそうですよ？

;一例　(とりあえずdouble型に突っ込んでみる)
#uselib "KERNEL32.DLL"
#func GlobalMemoryStatusEx "GlobalMemoryStatusEx" var
	dim buf,16
	buf(0) = 64 
	GlobalMemoryStatusEx buf
	fmem = 0.0
	fmem += buf(3)
	fmem *= 0x10000
	fmem += ( buf(2)>>16 ) & 0xFFFF
	fmem *= 0x10000
	fmem += buf(2) & 0xFFFF
	mes strf("メモリ容量:%f MB (%f GB)",fmem / 1024/1024 , fmem/1024/1024/1024)

buf(3)はともかくbuf(2)をunsignedで計算しなきゃならない辺りは注意ですね。

doubleで行くならこうするのがかんたんです

#uselib "KERNEL32.DLL"
#func GlobalMemoryStatusEx "GlobalMemoryStatusEx" var
	ddim buf,8
	lpoke buf,0,64
	GlobalMemoryStatusEx buf
	fmem=double(strf("%I64u",buf.1))
	mes strf("メモリ容量:%f MB (%f GB)",fmem / 1024/1024 , fmem/1024/1024/1024)

gouponさんのスクリプトを使用させていただきたいのですが、小数点以下を表示させないようにするにはどうすればよろしいでしょうか？

>小数点以下を表示させない
int関数……は使わない方向で考えると、

1. 当該実数(浮動小数)をstr関数で文字列にする
2. instr関数で文字列内の「.」の位置を探し出し、strmid命令で切り出し。
   もしくはsplit命令で「.」を区切りとして分割し、出力文字列配列の先頭要素を取り出す。

となりますね。四捨五入したい場合は「.」の次の数字で場合分けすれば良いでしょう。

最後の一行を以下に変えれば小数点以下は表示されません。
ただし四捨五入されますけど。

mes strf("メモリ容量:%.0f MB (%.0f GB)",fmem / 1024/1024 , fmem/1024/1024/1024)

ありがとうございます。できました!!

解決ボタンの押しわすれー