投稿日	： 2005/02/07(Mon) 17:14
投稿者	： LESIA
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: Ｉｎｅｔ コントロールについて

> ご指摘の通り　"gstrRet" は "gStr"　の誤りです。
>
> 書込みする時に間違いました。実際のソースにはgStrで書いております。
> すいません＾＾；

ループの前に私が付け加えた、gStr = "" はどうなったんでしょうか？(^^;
gStr = "" が無いと、一度受信するとgStr <> ""となるのでループを素通り
してしまうのでは？

文字列でうまくいかないなら、バイト配列にしてみる手もあります。
Private Sub Inet_StateChanged(ByVal State As Integer)
    Dim bytHTML() As Byte
    Dim lngLength As Long
    Dim strXML As String

    If State = icResponseCompleted Then
        Do
            DoEvents
            bytHTML() = Inet1.GetChunk(1024, icByteArray)
            lngLength = UBound(bytHTML)
            If lngLength >= 0 Then
                strXML = strXML & strConv(bytHTML, vbUnicode)
            End If
        Loop Until lngLength = -1
        gStr = strXML
    End If
End Sub

★ - Ｉｎｅｔ コントロールについて - たすけて〜 02/04-16:49No.1973
• Re: Ｉｎｅｔ コントロールについて - LESIA 02/04-18:27 No.1976
  • Re^2: Ｉｎｅｔ コントロールについて - たすけて〜 02/07-09:58 No.1997
    • Re^3: Ｉｎｅｔ コントロールについて - LESIA 02/07-11:35 No.2002
      • Re^4: Ｉｎｅｔ コントロールについて - たすけて〜 02/07-16:45 No.2011
        • Re^5: Ｉｎｅｔ コントロールについて - LESIA 02/07-17:14 No.2012
          • Re^6: Ｉｎｅｔ コントロールについて - たすけて〜 02/08-09:14 No.2041