inet1でオーバーフローします。 (ID:143274)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 流さ指定にある分Ｄ／Ｌ出来ず、「オーバーフロー」というエラーになります。 それ自体は、Inet とは無関係のエラーでは無いでしょうか。 Dim a As Long, b As Long a = 6000 b = 150 * 50 * 8 の場合、a は問題ありませんが、b は実行時エラーとなることに注意してください。 これは、150 や 50 や 8 などは Integer 値なので、演算結果も Integer となるためです。 たとえ変数 a が Long であっても、計算段階で Integer の最大値(32767)を 越えてしまうため、その時点でオーバーフローとなってしまいます。 MsgBox TypeName(150) 'これは「Integer」 MsgBox TypeName(60000) 'これは「Long」 MsgBox TypeName(150&) 'これは「Long」 > 他にも手段があるとのことですが、 XMLHTTP であれば、大抵の OS 環境に既に含まれているはずなので、 MSInet.ocx よりも導入しやすいであろうと思って提示したのですが、 自身でしか使わないアプリなら、環境の問題は考慮する必要は無さそうですね。 ただ、Inet には不具合も多く報告されています。そのため、 選択肢の少なかった10年前ならいざ知らず、今となっては、 個人的にはあまりお奨めしていなかったりします > これも分からず教えて貰ったとおり使っています。 開発ライセンスをお持ちなのであれば、Inet を使う事は可能です。 先に述べた不具合の件についても、実際に問題なく使えているならば、 Inet を使い続けても構わないと思いますよ。 > 取込終了のケースです。 イベントによる非同期処理ではなく、OpenURL メソッドによる 同期処理を使う手法もあったります。 (OpenURL の場合、サーバーによっては正しく取得できないことがあります) Dim URL As String, bin() As Byte URL = "http://www.tepco.co.jp/forecast/html/images/juyo-2012.csv" bin = Inet1.OpenURL(URL, icByteArray) Dim fno As Integer fno = FreeFile() Open "juyo-2012.csv" For Binary As #fno Put #fno, , bin Close #fno Debug.Print StrConv(bin, vbUnicode) まぁ、「これ以上新たな業はコリゴリ」とのことでしたから、 あまり他の案を提示しない方が良いのかも知れませんが…。 > getchunkをデータが無くなるまでループさせる方法は分かります。 今回の場合、GetChunk に指定するサイズ指定方法を見直すだけで 問題を解決できるとは思いますが、ループ手法だと都合が悪かったのでしょうか?