スクリプト

;
;	ファイルの表示
;	画像ファイルをネットから取得してcelputで表示します。
;
#include "hsp3dish.as"

;	URLを指定
url = "https://cyberjapandata.gsi.go.jp/xyz/std/6/57/23.png"
fname = getpath(url, 8)	; ファイル名

; "DOWNLOAD 開始"
httpload url
if stat : goto *bad	; 正しくリクエストができなかった

isLoading = 1
widImg = 1
message = ""

*main
	redraw 1 : await 16 : redraw 0 : color 255, 255, 255 : boxf : color : pos 0,0

	if isLoading {
		;	読み込み中
		; 読み込みが完了するまで待機する処理です。
		httpinfo res, HTTPINFO_MODE
		if res = HTTPMODE_READY : gosub *comp : isLoading = 0
		if res <= HTTPMODE_NONE : gosub *bad  : isLoading = 0
	} else {
		;	読み込み完了後
		pos 10,10
		celput widImg, 0
	}
	pos 10, 280
	mes message
	goto *main



*bad
	;	エラー
	httpinfo estr,HTTPINFO_ERROR
	message = "ERROR "+estr
	return

*comp
	; "DOWNLOAD 完了"
	httpinfo buf,  HTTPINFO_DATA	; PGN画像
	httpinfo size, HTTPINFO_SIZE


	// メモリストリーム設定
	memfile buf, 0, size
	celload "MEM:.png", widImg

	message = "読み込み完了\n" + fname + "(" + size + " byte)"
	
	return

powered by hsp3dish.js / OpenHSP