¡¡httpload¤ËÅϤ¹url¤Ë´Ö°ã¤¨¤Æ¸ºß¤·¤Ê¤¤¥µ¡¼¥Ð¡¼¤ä¡¢¥µ¡¼¥Ð¡¼¤Ç¤Ï¤Ê¤¤Ê¸»úÎó¤òÅϤ·¤Æ¤·¤Þ¤Ã¤¿¾ì¹ç¡¢httpinfo¤ÏHTTPMODE_ERROR¤òÊÖ¤·¤Þ¤¹¡£¤½¤Î¸å¡¢Àµ¤·¤¤url¤òhttpload¤ËÅϤ·¤Ê¤ª¤·¤Æ¤âhttpinfo¤Ï¾ï¤ËHTTPMODE_ERROR¤òÊÖ¤¹¤è¤¦¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤ä¤êÊý¤¬°¤¤¤Î¤«¡¢¥¨¥é¡¼¤«¤é¤ÎÉüµ¢¤¬¤Ç¤¤Þ¤»¤ó¡£
¡¡¥¨¥é¡¼È¯À¸¸å¤ËÉüµ¢¤µ¤»¤ë¤¿¤á¤Î½èÃÖÊýË¡¤Ï¤É¤Î¤è¤¦¤Ë¤¹¤ë¤Î¤¬Îɤ¤¤Î¤Ç¤·¤ç¤¦¤«¡£Ìµ¸ú¤Êurl¤Ï¤¢¤ëÄøÅÙ¡¢»öÁ°¤Ë¥Á¥§¥Ã¥¯¤¹¤ë¤È¤·¤Æ¤â´°Á´¤Ë¤Ï¤Ç¤¤Ê¤¤¤Î¤Ç»ö¸å½èÍýɬ¿Ü¤Ç¤¹¡£
¡¡°Ê²¼¤ÏÌäÂê¤ò³Îǧ¤¹¤ë¤¿¤á¤Î¥¹¥¯¥ê¥×¥È¤Ç¤¹¡£¡Ê¥Æ¥¹¥È´Ä¶ HSP3.7¦Â10¡Ë
¡¡¼Â¹Ô¤¹¤ë¤È²èÁü¤¬3¤Äɽ¼¨¤µ¤ì¤Þ¤¹¡£
#include "hsp3dish.as" ; ²èÁüURL¥ê¥¹¥È ; ²èÁü¤Î½Ðŵ¡§https://maps.gsi.go.jp/development/ichiran.html sdim img_urls, 128, 3 img_urls(0) = "https://cyberjapandata.gsi.go.jp/xyz/std/15/29099/12902.png" img_urls(1) = "https://cyberjapandata.gsi.go.jp/xyz/std/15/29098/12902.png" img_urls(2) = "https://cyberjapandata.gsi.go.jp/xyz/std/15/29097/12902.png" dim wid, 3 wid = 1,2,3 idLoad = 0 dim stateLoad, 3 ; 0 ½é´ü¾õÂÖ ; 1 ¥í¡¼¥ÉÃæ ; 2 ¥í¡¼¥É¤¬Àµ¾ï½ªÎ»¤·¤¿ ; 3 ¥í¡¼¥É¤¬°Û¾ï½ªÎ»¤·¤¿ ;------------------------------ ; ¥¨¥é¡¼¤òµ¯¤³¤¹¤¿¤á¤Îurl ;------------------------------ ; 2¸ÄÌܤβèÁü¤Îurl¤òÀµ¤·¤¯¤Ê¤¤¤â¤Î¤ËÃÖ¤´¹¤¨¤Þ¤¹¡£ ; ¡Â¸ºß¤·¤Ê¤¤¥µ¡¼¥Ð¡¼¤ò»ØÄꤷ¤¿¾ì¹ç ; ¡Ö¥ê¥¯¥¨¥¹¥È¤¬¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡×¤È¤Ê¤ê¡¢½èÍý¤¬·Ñ³¤Ç¤¤Ê¤¤¡£ ;img_urls(1) = "https://aaaabbbbcccc.jp/" ; ¢¥µ¡¼¥Ð¡¼¤Ç¤Ï¤Ê¤¤Ê¸»úÎó¤òÅϤ·¤¿¾ì¹ç ; ¡Ö̵¸ú¤Ê¥µ¡¼¥Ð¡¼¤¬»ØÄꤵ¤ì¤Þ¤·¤¿¡×¤È¤Ê¤ê¡¢½èÍý¤¬·Ñ³¤Ç¤¤Ê¤¤¡£ ;img_urls(1) = "" ; £404¤Î²èÁü¥¢¥É¥ì¥¹¤Î¾ì¹ç ; ¥¨¥é¡¼¤Ë¤Ï¤Ê¤é¤Ê¤¤¤Î¤Ç½èÍý¤¬·Ñ³¤µ¤ì¤Þ¤¹¡£ ; 2¸ÄÌܤβèÁü¤Î¤ßÆɤ߹þ¤Þ¤ì¤Þ¤»¤ó¤¬¡¢½èÍý¤Ï·Ñ³¤µ¤ì¤Æ3¤ÄÌܤβèÁü¤âÆɤ߹þ¤Þ¤ì¤Þ¤¹¡£ ;img_urls(1) = "https://cyberjapandata.gsi.go.jp/xyz/std/none.png" ;------------------------------ ; ¥á¥¤¥ó¥ë¡¼¥× ;------------------------------ *main redraw 1 : await 16 : redraw 0 : color 255, 255, 255 : boxf : color : pos 0,0 if idLoad < 3 { if stateLoad(idLoad) = 0 { stateLoad(idLoad) = 1 httpload img_urls(idLoad) if stat : gosub *bad } ; ·ë²ÌÂÔ¤Á¤Î¤¿¤á¤Î¥ë¡¼¥× if stateLoad(idLoad) { httpinfo res, HTTPINFO_MODE if res = HTTPMODE_NONE : logmes "" + idLoad + ":ÄÌ¿®½é´ü²½¥¨¥é¡¼ " + HTTPMODE_NONE if res = HTTPMODE_READY : logmes "" + idLoad + ":ÄÌ¿®²Äǽ¾õÂÖ " + HTTPMODE_READY if res = HTTPMODE_REQUEST : logmes "" + idLoad + ":¥ê¥¯¥¨¥¹¥ÈÄÌ¿®½àÈ÷ " + HTTPMODE_REQUEST if res = HTTPMODE_SEND : logmes "" + idLoad + ":¥ê¥¯¥¨¥¹¥ÈÁ÷¿® " + HTTPMODE_SEND if res = HTTPMODE_DATAWAIT : logmes "" + idLoad + ":ÄÌ¿®·ë²ÌÂÔµ¡Ãæ " + HTTPMODE_DATAWAIT if res = HTTPMODE_DATAEND : logmes "" + idLoad + ":ÄÌ¿®½ªÎ» " + HTTPMODE_DATAEND if res = HTTPMODE_ERROR : logmes "" + idLoad + ":¥¨¥é¡¼È¯À¸ " + HTTPMODE_ERROR if res = HTTPMODE_READY : gosub *comp if res <= HTTPMODE_NONE : gosub *bad } ; ¼¡¤òÆɤ߹þ¤ß if stateLoad(idLoad) >= 2 : idLoad++ } ; ²èÁü¤òɽ¼¨ if stateLoad(0) = 2 : pos 10, 70 : celput wid(0), 0 if stateLoad(1) = 2 : pos 50, 120 : celput wid(1), 0 if stateLoad(2) = 2 : pos 100, 170 : celput wid(2), 0 ; Æɤ߹þ¤ß¤Î¾õÂÖ pos 10, 10 repeat 3 mes "stateLoad = "+stateLoad(cnt) loop goto *main ;------------------------------ ; ¥¨¥é¡¼½èÍý ;------------------------------ ; ¡Ö̵¸ú¤Ê¥µ¡¼¥Ð¡¼¤¬»ØÄꤵ¤ì¤Þ¤·¤¿¡× ; https:°Ê³°¤¬»ØÄꤵ¤ì¤¿¡£ ; ; ¡Ö¥ê¥¯¥¨¥¹¥È¤¬¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡× ; ¸ºß¤·¤Ê¤¤¥µ¡¼¥Ð¡¼¤¬»ØÄꤵ¤ì¤¿¡£ *bad stateLoad(idLoad) = 3 httpinfo estr, HTTPINFO_ERROR logmes "Error : " + estr logmes img_urls(idLoad) return ;------------------------------ ; ¥À¥¦¥ó¥í¡¼¥É´°Î» ;------------------------------ *comp stateLoad(idLoad) = 3 httpinfo buf,HTTPINFO_DATA httpinfo size,HTTPINFO_SIZE if size <= 0 { message = "Error:¥Ç¡¼¥¿¤¬¤¢¤ê¤Þ¤»¤ó¡£" return } if (peek(buf, 0) ! 0x89) & (peek(buf, 1) ! 0x50) & (peek(buf, 2) ! 0x4E) { ; PNG message = "Error:²èÁü¤¬¤¢¤ê¤Þ¤»¤ó¡£" return } stateLoad(idLoad) = 2 ; ¥á¥â¥ê¥¹¥È¥ê¡¼¥à¤ÇÆɤ߹þ¤à memfile buf, 0, size celload "MEM:.png", wid(idLoad) return
¡¡¢¢¤¤¤º¤ì¤«¤Î¥³¥á¥ó¥È¤ò³°¤¹¤ÈÌäÂ꤬ºÆ¸½¤Ç¤¤Þ¤¹¡£
ÍýÁۤȤ·¤Æ¤Ï¡¢£¤Î¥³¥á¥ó¥È¤ò³°¤·¤¿¾ì¹ç¤ÈƱÍͤεóÆ°¤Ë¤Ê¤Ã¤Æ¤Û¤·¤¤¤È¤³¤í¤Ç¤¹¡£