[VB2008] Bild aus Webbrowsersteuerelement auf PC abspeichern

[Ichbinalex]

Hallo,
wie die Überschrift schon sagt will ich ein Bild aus Webbrowsersteuerelement auf PC abspeichern. Ich hab leider keine Idee wie ich das umsetze

 

[Nico Graichen]

Hi

Willst du das komplette Control als Bild speichern?
Dann schau dir mal die Methode Control.DrawToBitmap an!

Wenn es sich nur um ein Bild aus einer Webseite dreht, musst du im HtmlDocument danach "suchen"

 

[Ichbinalex]

Also ich möcht nur da Bild speichern kann das bild natürlich allein ins Webbrowsersteuerelement laden, sollte weniger das Problem sein.
Aber Webbrowser1.DrawtoBitmap gibt es iwie ned

 

[Nico Graichen]

Also ich möcht nur da Bild speichern kann das bild natürlich allein ins Webbrowsersteuerelement laden, sollte weniger das Problem sein.

Dann musst du dich durch das HtmlDocument arbeiten.

Aber Webbrowser1.DrawtoBitmap gibt es iwie ned

Irgendwie schon: http://msdn.microsoft.com/en-us/library/system.windows.forms.webbrowserbase.drawtobitmap.aspx

 

[ripkens]

wWeb bitte durch den Namen des WebBrowser Controls ersetzen

Speichert alle Images aus der Webseite in einen Ordner

      Private Sub wWeb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
          Dim TempFolder
          Dim collImages As IHTMLElementCollection
          Dim img As IHTMLImgElement
          Dim strFileName As String
          Dim strExtension As String
          Dim lResult As Long
          Dim i As Long
          Dim nAnomalies As Long
         
          TempFolder = App.Path & "\Temp Files\"
        
          Set collImages = pDisp.Document.getElementsByTagName("IMG")
         
          For i = 0 To collImages.Length - 1
              Set img = collImages.Item(i)
              strFileName = Right(img.src, Len(img.src) - InStrRev(img.src, "/"))
              strExtension = LCase(Right(strFileName, Len(strFileName) - InStrRev(strFileName, ".")))
              If (strExtension = "gif" Or strExtension = "jpg" Or strExtension = "jpeg" Or strExtension = "png") Then
                  lResult = URLDownloadToFile(0, img.src, TempFolder & strFileName, 0, 0)
              Else
                  If (InStr(1, img.mimeType, "GIF", vbTextCompare)) Then
                      lResult = URLDownloadToFile(0, img.src, TempFolder & "anomaly" & nAnomalies & ".gif", 0, 0)
                  ElseIf (InStr(1, img.mimeType, "JPG", vbTextCompare)) Then
                      lResult = URLDownloadToFile(0, img.src, TempFolder & "anomaly" & nAnomalies & ".jpg", 0, 0)
                  End If
              End If
              Set img = Nothing
          Next i
          Set collImages = Nothing
      End Sub

 

[Ichbinalex]

Ich werds probiern, wenn ich VS auf meinen neuen Rechner installiert hab.
Vielen Dank schonmal für eure Bemühungen

 

[Ichbinalex]

Hallo

IHTMLElementCollection und IHTMLImgElement werden nicht erkannt. Braucht man dafür irgendwelche imports?

Edit Ok mshtml.dll hinzufgefügt ,aber leider kennt er trotzdem URLDownloadToFile nicht

Edit 2 Was ist pDisp. Es wurde nicht deklariert