HSPTV!掲示板

ttp://hsp.tv/play/pforum.php?mode=pastwch&num=21665
にて2GB以上のファイルの読み込みは可能なのですが、
2GB以上のファイルの書き込み、およびファイルサイズの取得は可能でしょうか？
ファイルサイズはint型で先頭4バイト、後方4バイトでも、str取得でもどちらでも構いません。

GetFileSize関数を使用して第二引数と返り値にDWORD(符号なし32bit)で
ファイルサイズが取得できますのでエンディアンに注意しながら1Byte単位で読み込んで
判定などを行う。

第二引数と返り値はどのように取得すればよいのでしょうか。
あと書き込みはWriteFile関数を使うところまではわかったのですが、ハンドルなどよくわからないです。

ファイルサイズの取得なら

#uselib "kernel32.dll"
#cfunc CreateFile "CreateFileA" int,int,int,int,int,int,int
#func GetFileSizeEx "GetFileSizeEx" int,int
#func CloseHandle "CloseHandle" int
#cfunc GetFileSize "GetFileSize" int,int

#define GENERIC_WRITE		0x40000000
#define GENERIC_READ		0x80000000
#define FILE_SHARE_READ		0x00000001
#define FILE_SHARE_WRITE	0x00000002
#define FILE_SHARE_DELETE	0x00000004
#define CREATE_NEW			1 
#define CREATE_ALWAYS		2
#define OPEN_EXISTING		3
#define OPEN_ALWAYS			4
#define TRUNCATE_EXISTING	5

	filename = "G:\\amarectv220c\\amarec(20140725-2230).avi"
	lowdw = 0
	highdw = 0
	
	hfile = 0
	hfile = CreateFile(varptr(filename),GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0)
	mes hfile
	
	lowdw = GetFileSize(hfile,varptr(highdw))
	mes strf("%08X",lowdw)
	mes strf("%08X",highdw)
	
	CloseHandle hfile
	mes stat

先頭4バイトがhighdw、後方4バイトがlowdwに入っています

あきまささんが貼ったURL(なぜtを抜いたのかわかりませんが)に書いてあるソースと途中までしてることは同じです
見比べてみてください

あ、なるほど1関数で2つ出力されるんですね。ちょっとHSPの常識とは外れた返り方でわかりませんでした。
ありがとうございます。
あとはなんとか読み込みのモジュールを改造しながら何とかやってみます。

>あきまささんが貼ったURL(なぜtを抜いたのかわかりませんが)に書いてあるソースと途中までしてることは同じです
投稿制限回避のためのテクニックでhttpの先頭のhを抜くと言うものです。