Public Event NotFound()

' Daten werden empfangen
Private Sub mSockCtrl_DataArrival(ByVal bytesTotal As Long)
  On Error Resume Next
 
  Static lngContentLength As Long
 
  Dim strData As String
  Dim strHttpHeader As String
  Dim F As Integer
  Dim lPos As Long
 
  ' Daten empfangen
  mSockCtrl.GetData strData
 
  ' Prüfen, ob HTTP-Header enthalten
  ' wenn ja: auswerten und entfernen
  If Not bHeaderSend And Left$(strData, 8) = "HTTP/1.1" Then
    strHttpHeader = Left$(strData, InStr(1, strData, _
      vbCrLf & vbCrLf) + 3)
 
    ' Datei nicht vorhanden  ?
    If InStr(1, strHttpHeader, "moved permanently", vbTextCompare) > 0 Then
      ' Datei existsiert nicht mehr!!!
      RaiseEvent NotFound
      mSockCtrl.Close
    Else
 
      ' Dateigröße ermitteln
      lPos = InStr(strHttpHeader, "Content-Length: ")
      If lPos > 0 Then
        lngContentLength = Val(Mid$(strHttpHeader, lPos + 15, _
          InStr(Mid$(strHttpHeader, lPos), vbCrLf) - 1))
      End If
 
      ' Header entfernen
      strData = Mid$(strData, Len(strHttpHeader) + 1)
      bHeaderSend = True
    End If
 
    If Not bHeaderSend Then lngContentLength = 0
 
    ' Daten in Datei speichern
    F = FreeFile
    Open strLocalFilename For Append As #F
    Print #F, strData;
    Close #F
 
    ' Fortschritt
    lngFileSize = lngFileSize + Len(strData)
    RaiseEvent Progress(lngFileSize, lngContentLength)
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de