下記のサンプルソースを使って、WEBページをDLしているのですが、
保存したファイルが33KBになっていて、すべて途中で切れてしまいます。
sdim sDest, 90000を付けても変わりませんでした。
全てをDLするにはどうしたら良いのでしょうか?
すみませんが、どなたか解決方法を教えてください。
;***** URLを指定してhtmlテキストを取得 (comobj47.hsp) ***** ;※WinNT系のみ動作します。98系は不可 (Win2000で動作確認) ;Microsoft Data Access Components (MDAC) 2.8 SP1以降が必要 ;98系は、下記よりMDACをダウンロードすることにより、ADODB.Stream オブジェクトが ;使えるようになります。(URLは長いので、折り返しています。) ; ;▼▼▼▼ Microsoft Data Access Components ダウンロード ▼▼▼▼ ;http://www.microsoft.com/downloads/details.aspx? ;FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=ja #define adTypeBinary 1 #define adSaveCreateNotExist 1 #define adSaveCreateOverWrite 2 ;▼mesboxを作成 ReturnHTML="" font "MS ゴシック",14 : objmode 2 mesbox ReturnHTML,ginfo(10)-4,ginfo(11)-24,5 objectID=0 : objsel objectID ;▼URLを指定 sURL = "http://www.onionsoft.net/hsp/" ;▼セーブする場合のHTML名 (任意) sDest = dirinfo(0)+"\\dsthtml.htm" ;▼CharCodeを指定 charcode = "Shift_JIS" ;charcode = "UTF-8" title sURL newcom objXMLHTTP, "Microsoft.XMLHTTP" objXMLHTTP->"Open" "GET", sURL, 0 objXMLHTTP->"Send" ;▼status OKならHTMLテキストファイルを指定のCharCodeで取得 if objXMLHTTP("status") = 200 { newcom objRS,"ADODB.Stream" if stat!0 : dialog "ADODB.Streamがサポートされていません。",0 : end objRS("Type") = 1 objRS->"Open" sHtml=objXMLHTTP("ResponseBody") objRS->"Write" sHtml objRS("Position") = 0 objRS("Type") = 2 objRS("Charset") = charcode ReturnHTML=objRS("ReadText") ;ファイルとして保存する場合 ;objRS->"Savetofile" sDest,adSaveCreateOverWrite objRS->"Close" }else{ dialog "接続に失敗致しました。",0,"エラー" } objprm objectID,ReturnHTML if vartype(objRS)==6 { if varuse(objRS)==1 : delcom objRS } delcom objXMLHTTP stop