Discussion :

[Menthe_a_l_eau]

Bonjour ,


Je voudrais en fait récuperer une image "toto.jpg" présente à une adresse "http://192.168.1.1/toto.jpg" (sur un péripherique muni d'une stack TCP/IP+client FTP). Ensuite, stocker cette image en local.


Alors je l'ai fait en FTP. Cela marche mais je voudrais bien le faire un peu comme un GET ; c'est à dire simplement copier l'image de l'url (et non se casser le à passer via ftp )

J'attend vos conseils.

[pc75]

Bonjour,

Dans Projet => Composants, tu coches "Microsoft Internet Transfer Control 6.0"

Sur une form, tu places "
un control Inet (Inet1)
un bouton (Command1)

Tu copies ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
 
Private Sub Command1_Click()
    Dim URL As String
    Dim LocalFileName As String
    Dim Contents() As Byte
Screen.MousePointer = vbHourglass
URL = "http://www.google.fr/intl/fr_fr/images/logo.gif"
Inet1.Protocol = icHTTP
Inet1.URL = URL
Contents() = Inet1.OpenURL(Inet1.URL, icByteArray)
Do Until Inet1Ready(False)
DoEvents: DoEvents: DoEvents: DoEvents
Loop
LocalFileName = "c:\logo.gif"
 
Open LocalFileName For Binary Access Write As #1
Put #1, , Contents()
Close #1
Screen.MousePointer = vbDefault
MsgBox "Terminé"
End
End Sub
 
Private Function Inet1Ready(ShowMessage As Boolean)
On Error Resume Next
If Inet1.StillExecuting Then
    Inet1Ready = False
    If ShowMessage Then
 
    End If
Else
    Inet1Ready = True
End If
End Function

[Menthe_a_l_eau]

J'étais un peu parti sur cette piste sans trop savoir ou aller.

Je teste ton code en le réadaptant et je vous tiens au courant ...

[DarkVader]

En plus court

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
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
 
 
if not  URLDownloadToFile (0, "http://<a href="http://www.developpez.net/forums/templates/subSilver/images/logo_developpez.gif"," target="_blank">http://www.developpez.net/forums/tem...veloppez.gif",</a> "c:\logo_developpez.gif", 0, 0) then msgbox "Fichier téléchargé"

[Menthe_a_l_eau]

En plus court

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
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
 
 
if not  URLDownloadToFile (0, "http://<a href="http://www.developpez.net/forums/templates/subSilver/images/logo_developpez.gif"," target="_blank">http://www.developpez.net/forums/tem...veloppez.gif",</a> "c:\logo_developpez.gif", 0, 0) then msgbox "Fichier téléchargé"

Nickel ! ça marche ! ........... Et c'est court !

Merci 8)