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

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"

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

Zitat von Ichbinalex

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.

Zitat von Ichbinalex

Aber Webbrowser1.DrawtoBitmap gibt es iwie ned

Irgendwie schon: http://msdn.microsoft.com/en-us/libr...wtobitmap.aspx

wWeb bitte durch den Namen des WebBrowser Controls ersetzen

Speichert alle Images aus der Webseite in einen Ordner

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub [B]wWeb_DocumentComplete(ByVal pDisp As Object, URL As Variant)[/B]           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

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

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