HSPTV!掲示板

プログレスバーでダウンロード進行状況の表示に成功したのですが
分からない事があるので質問させて頂きます。
50MB程度の大きなファイルになると途中の30%辺りで-30%と表示され
29%>>28%>>27%...................と言う形になって途中でダウンロードが止まってしまいます。
アドバイスを教授頂ければと思っております。

#include "hspinet.as"

	DOWNLOAD = ""
	netinit
	SIZES = getpath(DOWNLOAD,8)
	header = ""
	neturl ""+getpath(DOWNLOAD,32)
	netfileinfo header,""+SIZES

	notesel header
	FEW = ""
	repeat notemax
	noteget FEW,cnt
	if instr(FEW,0,"Content-Length: ")=0:break
	loop
	
	filesize=int(strmid(FE,strlen("Content-Length: "),256))
	netdlname ""+SIZES
	neturl ""+getpath(DOWNLOAD,32)
	netrequest ""+SIZES
	
	winobj "msctls_progress32", "", , $50000000, 200, 20
	hProgress = objinfo(stat, 2)
	
	repeat 
	exist SIZES
	sendmsg hProgress, $402,(100*strsize/filesize)
	title ""+100*strsize/filesize+"%"
	netsize size : netexec res
	loop

17行目致命的におかしいぞ

>>backdrop
ご指摘ありがとうございます。
ここにソースを書く際に誤って記述してしまったものです。

でも修正ソース全部載せてもね。
修正部分だけ教えてくれれば確認できます

と言うより、最初からコピペしたほうが手っ取り早いのでは?

>>backdrop
ご指摘ありがとうございます。
確かに必要のないソースの削減とコピー&ペーストにしとくべきでした。すいません。

まあいいけど、とりあえず修正ソース上げてくれないと回答できません。

あ、申し訳ありません。

17行目を

filesize=int(strmid(FEW,strlen("Content-Length: "),256))
</per>
に修正です。

やってみたが50MBでもとりあえず問題なく動くぞ。
最悪の場合回線依存ってこともありうる。

>>backdrop

確かにその可能性が有り得そうですね。
私はADLSで最高でも通信速度200KBほどしか出せないので・・・。

容量などの問題ではなくダウンロード中にかかっている
時間が問題なのかなって思います。

int型の許容範囲を超えているからです。
int型の許容範囲は-2147483648〜2147483647です。
なので、

	title ""+100*strsize/filesize+"%"

で100倍したときに2147483647を超すとおかしな数字が表示されます。

そこで、

	repeat 
	exist SIZES
	sendmsg hProgress, $402,(100*strsize/filesize)
	title ""+100*strsize/filesize+"%"
	netsize size : netexec res
	loop

の部分を

	percent = 0
	repeat 
	exist SIZES
	percent = int(double(strsize) / filesize * 100)
	sendmsg hProgress, $402,percent
	title ""+percent+"%"
	netsize size : netexec res
	loop

のようにすればうまく動くと思います。

>>アイガモ
回答ありがとうございます。
int型にそんなものがあったとは全く持って自分の知識不足でした。
お陰さまで解決しました。ありがとうございました。