Discussion :

[Frédodido94520]

Bonjour à tous et à toutes et MERCI par avance pour votre aide précieuse!

Je suis Frédéric, mes compétences en développement ne sont pas extra ordinaires, mais j'adore ça.

J'ai besoin, dans le cadre d'un import de produits sur une boutique en ligne de vérifier si l'image correspondant à mon produits est disponible sur nos serveurs ou non afin de pouvoir charger une image de remplacement si cela est nécessaire.

J'ai l'impression d'avoir tout essayer depuis trois jours (ce n'est forcément pas le cas!) et je ne m'en sors pas...

Pourriez-vous svp me donner le code VB6 qui pourrait répondre à cette demande, ainsi que les éventuelles références à ajouter à mon projet svp?

Voici une URL valide :

https://www.cvs-mediatheques.com/hom...2/1029322z.jpg

et une qui ne l'est pas :

https://www.cvs-mediatheques.com/hom...4/1141324z.jpg

MERCI PAR AVANCE A TOUS ET A TOUTES !!!

[ProgElecT]

Salut

Une façon de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
On Error Resume Next
Picture1.Picture = LoadPicture("chemin non valide")
If Err Then
    On Error Resume Next
    Picture1.Picture = LoadPicture("C:\PersoFrancis\PetitPersonage3.bmp")
    If Err Then
        On Error Resume Next
        MsgBox "Alors là, c'est la catastrophe", vbCritical
    End If
End If

[Frédodido94520]

Merci beaucoup pour ta réponse et pour ton aide.

L’image est sur le net, à l’adresse url que j’ai posté dans mon premier message, pas en local. Je ne veux pas la télécharger, mais juste savoir si elle existe.
Du coup je ne pense pas pouvoir utiliser LoadPicture.
En plus mon traitement portera sur plusieurs milliers de fichiers, il faut donc que je réduise au maximum le temps de traitement.

Merci beaucoup.

[Jipété]

Salut,

Très très longtemps que je n'ai plus fait de VB, mais de toute façon ce n'est pas un problème de VB.

Documente-toi par exemple sur la récupération de la taille d'un fichier : s'il n'existe pas --> erreur, s'il existe tu récupéreras une valeur > à 0.

[ProgElecT]

Salut

En adaptant cela doit pouvoir faire:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Explicit
 Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
 Private Const INTERNET_OPEN_TYPE_DIRECT = 1
 Private Const INTERNET_OPEN_TYPE_PROXY = 3
 
 Private Const scUserAgent = "VB OpenUrl"
 Private Const INTERNET_FLAG_RELOAD = &H80000000
 
 Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
 (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
 ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
 
 Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _
 (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, _
 ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
 
 Private Declare Function InternetReadFile Lib "wininet.dll" _
 (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _
 lNumberOfBytesRead As Long) As Integer
 
 Private Declare Function InternetCloseHandle Lib "wininet.dll" _
 (ByVal hInet As Long) As Integer
 
 
Private Function VerifFichierExist(Url As String) As Boolean
    Dim hOpen               As Long
    Dim hOpenUrl            As Long
    Dim sUrl                As String
    Dim bDoLoop             As Boolean
    Dim bRet                As Boolean
    Dim sReadBuffer         As String * 2048
    Dim lNumberOfBytesRead  As Long
    Dim sBuffer             As String
 
    sUrl = Url
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
 
    bDoLoop = True
    While bDoLoop
        sReadBuffer = vbNullString
        bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
        sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
        If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    Wend
    If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
    If hOpen <> 0 Then InternetCloseHandle (hOpen)
    If InStr(sBuffer, "404 Not Found") Then VerifFichierExist = False Else VerifFichierExist = True
 
End Function
 
Private Sub Form_Load()
MsgBox "Fichier 1029322z.jpg trouvé = " & VerifFichierExist("https://www.cvs-mediatheques.com/home/notices/0/322/1029322z.jpg")
MsgBox "Fichier nexistepas.jpg trouvé = " & VerifFichierExist("https://www.cvs-mediatheques.com/home/notices/0/322/nexistepas.jpg")
End Sub

[ProgElecT]

Re

Si tu veux récupérer l'image, tu peux ajouter çà juste avant le End Function

Code :

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

1
2
3
4
5
6
7
8
    If VerifFichierExist = True Then
        'récupération du fichier image        
        Open "C:\PersoFrancis\A TESTftp\log.txt" For Binary Access Write As #1
        Put #1, , sBuffer
        Close #1
        'affichage        
        Picture1.Picture = LoadPicture("C:\PersoFrancis\A TESTftp\log.txt")
    End If

[Frédodido94520]

Super, merci.
J’essaye ça dès demain.
J’ai essayé plein de choses, mais jusqu’à maintenant ça fonctionne en http, mais jamais en https.
Merci pour votre aide et je ne manquerai pas de vous dire si c’est Ok.
Merci encore et bonne soirée.

[Frédodido94520]

Bonjour,

Je n'arrive décidément pas a résoudre mon problème...

Le code fourni par ProgElec fonctionne parfaitement en HTTP, mais malheureusement pas en HTTPS...

J'ai finalement réussi à "résoudre" mon problème en testant mon répertoire local, mais je n'y arrive pas en testant mon site web...

Merci malgré tout pour votre aide!

Du coup, je ne sais pas trop si je dois mettre "Résolu" ou pas...

Très cordialement.