[VB6]Opslaan van afbeelding vanaf Internet

[pkouwer]

Ik wil met VB6 een afbeelding opslaan vanaf he Internet, http://domein/subje/plaatje.gif.

Ik denk dat ik de internetexplorer-referentie moet gebruiken (weet het haast wel zeker), maar weet niet hoe ik de afbeelding kan opslaan. Ik heb al ge-googled en ge-msdn-t, maar ik kan niets terugvinden waarmee ik de afbeelding kan opslaan:

stukje code:

code:

Dim IE As InternetExplorer

Set IE = New InternetExplorer
IE.Navigate2 "http://domein/subje/plaatje.gif"
Do While Not IE.Busy = True
    DoEvents
Loop

als ik ie visible maak, zie ik wel het plaatje. OK, ik kan hem ook handmatig opslaan, maar dat is nou net niet de bedoeling. Wie kan mij het laatste zetje geven ?

[ Voor 4% gewijzigd door pkouwer op 21-01-2004 20:20 ]

[flexje]

zoiets misschien? :

code:

Private Sub Command1_Click()
    WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate ("http://www.tweakers.net/ext/i.dsp/1034896067.gif")
End Sub

[pkouwer]

ja, bijna goed, alleen wil ik het dialoogvenster opzeilen. Hij moet automatisch opslaan in een vooraf gedef. directory

[Sponge]

Internet Transfer control gebruiken, lijkt mij . Ik denk als je daarop zoekt, dat je genoeg vind . Soms moet je even de naam hebben

[pkouwer]

kom ik ook niet veel verder mee. De webbrowser komt nog het meest in de buurt, alleen zit ik tegen het dialoogvenster aan te hikken.

ik denk dat ik iets gevonden heb...

[ Voor 13% gewijzigd door pkouwer op 21-01-2004 21:45 ]

[flexje]

pkouwer schreef op 21 januari 2004 @ 21:43:
kom ik ook niet veel verder mee. De webbrowser komt nog het meest in de buurt, alleen zit ik tegen het dialoogvenster aan te hikken.

ik denk dat ik iets gevonden heb...

verander SAVEAS in SAVE en DODEFAULT in DONTPROMPTUSER

Ik denk dat je hier wel verder mee komt, anders gebruik je google maar is, je vind hier genoeg over.

[pkouwer]

de oplossing:

code:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
For x = 1 To 100
    y = Format(x, "000")
returnValue = URLDownloadToFile(0, "http://www.url/" & CStr(y) & ".gif", "c:\pics\" & CStr(y) & ".gif", 0, 0)
Caption = "Downloaded : " & y
Next x

End Sub

[flexje]

pkouwer schreef op 21 januari 2004 @ 22:14:
de oplossing:

code:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
For x = 1 To 100
    y = Format(x, "000")
returnValue = URLDownloadToFile(0, "http://www.url/" & CStr(y) & ".gif", "c:\pics\" & CStr(y) & ".gif", 0, 0)
Caption = "Downloaded : " & y
Next x

End Sub

code:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
Dim x As Integer
    x = 1
    y = Format(x, "000")
returnValue = URLDownloadToFile(0, "http://www.tweakers.net/ext/i.dsp/1034896067.gif", "c:\pics\" & CStr(y) & ".gif", 0, 0)
Caption = "Downloaded : " & y
End Sub

Dit had ook voldoende geweest Maargoed het werkt toppie