ファイル転送中（Inet）に処理がフリーズしないには？ (ID:89194)

名前

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

本文

ねろさん、度々ありがとうございます(/_;)

>>Execute メソッドで送信した要求への応答が指定時間内に返されなかった場合は、
>>StateChanged イベントが発生し、エラー コードが返されます。

ということは、ダウンロード中はサーバが応答している状態なので、
タイムアウトに設定した時間には影響しないんですね。
そうすると、以下のソースで問題ないでしょうか・・・？

Dim strInetFlg    As String

Grt_Proc:
Inet1.RequestTimeout = 60        ' タイムアウト時間を60秒に設定
Inet1.Excecue "Get --- 省略 --- "

If strInetFlg = "1" Then         ' タイムアウトした場合、再度処理を実行（Get_Procへ移動）
    Goto Get_Proc                
Elseif strInetFlg = "9" Then     ' エラーが発生した場合、サーバとの通信を切断する
    Inet1.Excecue "Close"
    Inet1.Excecue "Quit"
End If

Private Sub StateChanged()
    Dim blnInetFlg    As Boolean
    blnInetFlg = False

Do
    	Select Case State
    	Case icRequestCompleted
            blnInetFlg = True
            strInetFlg = "0"        ' 正常に処理を終了
    	Case icError
	    If Inet1.Responsecode = "(タイムアウトの場合)" Then
                blnInetFlg = True
                strInetFlg = "1"    ' タイムアウトによる処理の終了
 	    Else
                blnInetFlg = True
                strInetFlg = "9"    ' エラーにて処理を終了
            End If
         End Select
    Loop Until blnInetFlg

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る