#ifndef __mod_img__
#define __mod_img__

#module "rssmod"

#deffunc rssload array _v1, array _v2, str _p1, int _p2

	;
	;	XMLパーサー(MSXML)を使用してRSSを読み込む
	;	rssload 変数1,変数2,パス,個数
	;
	;	変数1,2 = 文字列型配列変数として結果が代入されます
	;	          (変数1はRSSの内容、変数2はリンク先)
	;	パス    = URLまたはファイルパスを指定します
	;	個数    = 読み込むRSSフィールドの数を指定します
	;	          (0または省略時は5個になります)
	;
	newcom oDom,"Microsoft.XMLDOM"
	oDom("async")="FALSE"		; 同期読み込みを行う
	oDom->"load" _p1
	oRoot = oDom("documentElement")
	if varuse(oRoot)=0 : return 1
	if oRoot("tagName")!="rdf:RDF" : return 2

	maxnum=_p2
	if maxnum<=0 : maxnum=5

	comres elm_ch
	oDom->"getElementsByTagName" "title"

	comres elm_link
	oDom->"getElementsByTagName" "link"

	max=elm_ch("length")
	if max>maxnum : max=maxnum

	sdim _v1, 64, max
	sdim _v2, 64, max

	repeat max
		i=cnt
		node = elm_ch("item",i)
		node2 = node("firstChild")
		_v1.i = node2("nodeValue")

		node = elm_link("item",i)
		node2 = node("firstChild")
		_v2.i = node2("nodeValue")
	loop

	delcom node
	delcom node2
	delcom elm_ch
	delcom elm_link
	delcom oRoot
	delcom oDom

	return 0

#global

#endif