Text 1, 105 rader
Skriven 2004-10-30 07:52:00 av Michael (1:278/230)
Ärende: internet transfer control
=================================


I am trying to use the internet transfer active x control (v6.0) using the 
execute method.

But my control does not want to trigger the StateChanged event.  I put a 
breakpoint on the frmProgress.Hide in GetDataBase and also on On Error 
Resume Next in InetDb_StateChanged.  Only the first one is reached

I cannot figure out why....

Any help appreciated

=======================================================

Private Function GetDataBase(txtURL As String, FName As String, Size As 
Long) As Boolean

    frmProgress.Show
    'reset file size value
    m_lngDocSize = 0
    'reset the ProgressBar control
    frmProgress.prgBar.Value = 0.001

    'clear the label control
    frmProgress.Frame.Caption = "Downloading " & FName

    'define protocol for the ITC
    InetDb.Protocol = icHTTP

    ' open the file to write to
    FNum = FreeFile
    Open FName For Binary Access Write As FNum

    'call the Execute method to send
    'HTTP request to the webserver
    If Len(txtURL) > 0 Then
        InetDb.Execute Trim$(txtURL), "GET"
    End If

    frmProgress.Hide

    Close #FNum
End Function

Private Sub InetDb_StateChanged(ByVal State As Integer)
    Dim vtData As Variant
    Dim sngProgerssValue As Single

    On Error Resume Next
    Select Case State
        Case icHostResolvingHost ' 2
            MsgBox "Resolving Host"

        Case icResponseReceived ' 8
            MsgBox "Response Received"
            If m_lngDocSize = 0 Then
                'retrieve size of the document
                If Len(InetDb.GetHeader("Content-Length")) > 0 Then
                    m_lngDocSize = CLng(InetDb.GetHeader("Content-Length"))
                End If
            End If

        Case icError ' 11
           MsgBox InetDt.ResponseInfo

        Case icResponseCompleted ' 12
            Dim bDone As Boolean: bDone = False
            Dim tempArray() As Byte
            Do  'retrieve data from the buffer
                DoEvents
                vtData = InetDb.GetChunk(1024, icByteArray)

                If Len(vtData) = 0 Then
                    bDone = True
                End If

                If Not bDone Then
                    tempArray = vtData
                    Put #FNum, , tempArray
                    DoEvents

                    If m_lngDocSize > 0 Then
                        If Len(strBuffer) > 0 Then
                            'get percent value
                            sngProgerssValue = ((Loc(FNum) / m_lngDocSize) * 
100)
                        End If
                        'update the label control with new caption
                        frmProgress.Frame.Caption = "Downloading " & FName & 
" " & CStr(Loc(FNum)) & " bytes"
                        'update the PregressBar control with new value
                        frmProgress.prgBar.Value = sngProgerssValue
                    End If
                End If
            Loop Until bDone
    End Select
End Sub
---
ū RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info@bbsworld.com

---
 * RIMEGate(tm)V10.2á˙* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 10/30/04 7:52:27 AM
 * Origin: MoonDog BBS, Brooklyn,NY, 718 692-2498, 1:278/230 (1:278/230)