Page 1 sur 2

Les nouvelles fonction http ! Bug ou pas???

Publié : mer. 04/juin/2008 19:41
par Stefou
Salut à tous !

Je commence à tester les fonctions http, et plus particulièrement celle pour downloader un fichier. Le code marche impeccable pour certaine page, mais pas pour d'autre et en particulier celle sur mon site...

Bug ou pas tel est la question : :roll:

Code : Tout sélectionner

        InitNetwork()
       ; If ReceiveHTTPFile("http://www.cpur.fr/index.html", "d:\down_ess.txt") ; ne fonctionne pas
       If ReceiveHTTPFile("http://www.purebasic.com/index.php3", "d:\down_ess.txt") ; fonctionne
          Debug "Succes"
        Else
          Debug "Erreur"
        EndIf

Publié : mer. 04/juin/2008 21:18
par Backup
c'est pas une question de mot de pass par hasard ?? 8O

Publié : jeu. 05/juin/2008 13:04
par Stefou
Salut Dobro

Normalement il n'y a pas besoin de code :?
Mais voilà je ne sais pas...

Publié : jeu. 05/juin/2008 13:32
par Backup
je viens d'essayer avec mon site sur Free et ça marche !! :)

Code : Tout sélectionner

InitNetwork()
       ; If ReceiveHTTPFile("http://www.cpur.fr/index.html", "d:\down_ess.txt") ; ne fonctionne pas
If ReceiveHTTPFile("http://michel.dobro.free.fr/", "d:\robots.txt") ; fonctionne
  Debug "Succes"
Else
  Debug "Erreur"
EndIf
a mon avis il faut mettre juste "http://www.cpur.fr/"

[Reedit]

oui je viens de faire le test et juste avec "http://www.cpur.fr/"
ça marche !! :)

:)

Publié : jeu. 12/juin/2008 10:55
par Stefou
Désolé Dobro mais j'ai beaucoup de boulot en ce moment...

Je ne suis pas convaincu par ton explication, j'ai fait le test avec un autre fichier et cela ne marche pas non plus.

Le problème vient d'un Bug ou d'une configuration particulière de mon site ???

Code : Tout sélectionner

InitNetwork()
If ReceiveHTTPFile("http://www.cpur.fr/services_domicile/parametre.ini", "d:\down_ess.txt") ; ne fonctionne pas
;If ReceiveHTTPFile("http://michel.dobro.free.fr/", "d:\robots.txt") ; fonctionne
  Debug "Succes"
Else
  Debug "Erreur"
EndIf

Publié : jeu. 12/juin/2008 14:51
par Backup
as tu essaye ça sans rien changer au listing ?

Code : Tout sélectionner

InitNetwork()
 If ReceiveHTTPFile("http://www.cpur.fr/", "d:\down_ess.txt") ;  fonctionne 
;If ReceiveHTTPFile("http://michel.dobro.free.fr/", "d:\robots.txt") ; fonctionne
  Debug "Succes"
Else
  Debug "Erreur"
EndIf
chez moi ça marche tel quel !!
les deux ligne fonctionne !! :)

Publié : jeu. 12/juin/2008 18:05
par Stefou
On est d'accord cela marche mais...pourquoi pas lorsque l'on donne un fichier en particulier ?

Publié : jeu. 12/juin/2008 20:12
par Backup
Stefou a écrit :On est d'accord cela marche mais...pourquoi pas lorsque l'on donne un fichier en particulier ?
[REEDIT]


if ReceiveHTTPFile("http://www.cpur.fr/index.php", "d:\down_ess.php") ; fonctionne
ce qui est en bleu c'est le chemin Source pour arriver au fichier (http://www.cpur.fr/index.php)
et ce qui est en rouge c'est le chemin de Destination ... :D

Publié : ven. 13/juin/2008 6:08
par Stefou
Et les gars vous avez fumer trop de gaga ou c'est moi qui n'est rien compris !!! :?

Code : Tout sélectionner

Syntaxe

Resultat = ReceiveHTTPFile(URL$, NomDeFichier$)
Description

Télécharge un fichier sur le disque à partir de l'URL$ spécifiée. Si l'URL$ n'existe pas ou qu'une erreur survient lors du téléchargement, le 'Resultat' sera 0. 

InitNetwork() doit avoir été appelé avec succès avant de pouvoir utiliser cette commande. 

Exemple: 
  InitNetwork()

  NomDeFichier$ = SaveFileRequester("Where to save index.php3 ?", "", "", 0)
  If ReceiveHTTPFile("http://www.purebasic.com/index.php3", NomDeFichier$)
    Debug "Succes"
  Else
    Debug "Erreur"
  EndIf

URL$ est un nom de fichier. "http://michel.dobro.free.fr/" est une adresse qui renvoie sur le fichier index.html (ou php).

J'ai fait fonctionnée cette fonction sur des site pour les pomper, et elle marche impeccable. Mais bug ou pas, elle ne marche pas sur mon site, et je suppose, sur d'autre site aussi.

Alors la question est de savoir si c'est un bug ou si c'est mon site qui a une option particulière ?

Publié : ven. 13/juin/2008 9:48
par Backup
bah oui :oops: :)

cet exemple marche bien chez moi :D

Code : Tout sélectionner

InitNetwork()

  NomDeFichier$ = SaveFileRequester("Where to save index.php3 ?", "", "", 0)
  If ReceiveHTTPFile("http://www.purebasic.com/index.php3", NomDeFichier$)
    Debug "Succes"
  Else
    Debug "Erreur"
  EndIf
 

Publié : ven. 13/juin/2008 10:34
par djes
Je pense qu'il y a un bug. De toutes façons, on ne peut utiliser ces fonctions si on est derrière un serveur proxy; apparemment, elles n'utilisent pas les paramètres de l'ordinateur. Il faudrait faire un rapport sur le forum anglais.

Publié : ven. 13/juin/2008 12:51
par Backup
djes a écrit :Je pense qu'il y a un bug. Il faudrait faire un rapport sur le forum anglais.
tu t'en charge ?

parceque l'anglais et moi :?

Publié : ven. 13/juin/2008 13:53
par djes

Publié : ven. 13/juin/2008 18:54
par djes
Fred a répondu là : http://www.purebasic.fr/english/viewtop ... 836#247836

Es-tu sûr que le fichier index.html existe sur ton serveur? On dirait plutôt une redirection, comme celles qu'on fait avec Errordocument dans les fichiers htaccess. N'est-ce pas non plus une page générée dynamiquement?

Publié : ven. 13/juin/2008 21:12
par Backup
bon clarifions les choses :)


je pense que Sefou a un autre probleme :

je me tue a lui dire que ceci

Code : Tout sélectionner

InitNetwork()
If ReceiveHTTPFile("http://www.cpur.fr/index.php", "d:\index.php") ;  fonctionne
  ;If ReceiveHTTPFile("http://michel.dobro.free.fr/robots.txt", "d:\robots.txt") ; fonctionne
  Debug "Succes"
Else
  Debug "Erreur"
EndIf 
Marche bien !!! :)

si cela ne marche pas chez lui c'est due a un probleme de son prestataire ou autre

je pense moi, que la fonction ReceiveHTTPFile() , marche tres bien :) !!