[..] Chargement d'un fichier d'une page web

[pierrotm777]

merci beaucoup de votre aide .

je test ça dés que possible

[bloodwolff]

Pas de problème et nul besoin de vouvoyez !

[pierrotm777]

Cela fonctionne super bien.
Une question!
C'est quoi cette line:
"areas=C*0*6.02*46.9202553153745%3B2.548828125**%3Bl%3Bl%3Bl%3Bl%3Bl&format="
Est-elle vitale ?

[bloodwolff]

Oui je l'ai expliquer en commentaire , c'est la ligne qui sert à dire la zone à capturer sur la carte du site , En ce moment la ligne indique la france encercler comme tu me l'as expliqué

[pierrotm777]

Pourtant cela semble fonctionner sans.
Voici le résultat converti en .kml

[bloodwolff]

Ce doit être du au cache ou un truc du genre , Teste d'enlever la ligne et de lancer sur une autre machine tu va voir car chez moi sans la ligne sa retourne une archive inutilisable

[pierrotm777]

Est-il possible de connêtre la taille du fichier à télécharger avant sont téléchargement .
Je sais que InetGetSize($url) fait ça trés bien , et de tester en temps réel la quantité déjà chargée .

[bloodwolff]

Est-il possible de connêtre la taille du fichier à télécharger avant sont téléchargement

Oui

tester en temps réel la quantité déjà chargée

Oui mais il faut se définir un Pas , par exemple si on décide 50 octet , on va pouvoir connaitre son avancement à chaque 50 octet

[pierrotm777]

Les fichier font ente 10000 et 800000 octets, donc ça me semble ok !

[bloodwolff]

Voilà le code. J'ai mis comme pas Taille totale/100 mais tu peux le changer si tu veux , et pour la progress bar le l'animation de windows 7 est trop lente et le download trop rapide donc sa n'a pas le temps de terminer

► Afficher le texte

Code : Tout sélectionner

#include <winhttp.au3>

Local $get,$progress = 0

$user = "*********" ;~ Nom d'utilisateur (Faire attention au caractère spéciaux @ devient par exemple %40)
$pass = "************" ;~ Mot de passe
$type = "csv" ;~ csv ou ov2

$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, "www.trapster.com")
_WinHttpSimpleSendRequest($hConnect, "Post", "do-login.php", Default, "uname=" & $user & "&pwd=" & $pass)
_WinHttpSimpleSendRequest($hConnect, "Post", "config-poi.php", Default, "areas=C*0*6.02*46.9202553153745%3B2.548828125**%3Bl%3Bl%3Bl%3Bl%3Bl&format=" & $type & "&download=Download+POIs")
$hrequest = _WinHttpSimpleSendRequest($hConnect, Default, "config-poi.php?download=" & $type, Default, Default, "Content-Type: application/zip")
_WinHttpReceiveResponse($hRequest)
$size = _WinHttpQueryHeaders($hRequest, $WINHTTP_QUERY_CONTENT_LENGTH)
If not MsgBox(4,"Voulez-vous le télécharger ?","Fichier de " & Round($size/1024,2) & " Ko") = 6 then Exit

ProgressOn("Téléchargement en cours ...", "" , "")
Do
    $progress += 1
    ProgressSet($progress)
    $get &= _WinHttpReadData($hrequest, 2, Round($size/100,0))
Until @extended = 0
ProgressOff()

$open = FileOpen("Test.zip", 26)
FileWrite($open, $get)

_WinHttpCloseHandle($hrequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
FileClose($open)

MsgBox(0,"","Téléchargement terminé")

[pierrotm777]

Cette version ne fonctionne pas.
J'obtiens un message "fichier 0 Ko" , puis un dossier Test.zip au lieu d'un fichier Test.zip

[pierrotm777]

Aprés quelque tests, si je commente la ligne _WinHttpReceiveResponse($hRequest) le chargement démarre, je vois bien la barre de progression.
Cette fois ci le zip est bien un fichier mais incomplet !

[bloodwolff]

Essaie celui-là

Code : Tout sélectionner

#include <winhttp.au3>

Local $get,$progress = 0
$user = "" ;~ Nom d'utilisateur (Faire attention au caractère spéciaux @ devient par exemple %40)
$pass = "" ;~ Mot de passe
$type = "csv" ;~ csv ou ov2

$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, "www.trapster.com")
_WinHttpSimpleSendRequest($hConnect, "Post", "do-login.php", Default, "uname=" & $user & "&pwd=" & $pass)
_WinHttpSimpleSendRequest($hConnect, "Post", "config-poi.php", Default, "areas=C*0*6.02*46.9202553153745%3B2.548828125**%3Bl%3Bl%3Bl%3Bl%3Bl&format=" & $type & "&download=Download+POIs")
$hrequest = _WinHttpSimpleSendRequest($hConnect, Default, "config-poi.php?download=" & $type, Default, Default, "Content-Type: application/zip")
_WinHttpReceiveResponse($hRequest)
$size = _WinHttpQueryHeaders($hRequest, $WINHTTP_QUERY_CONTENT_LENGTH)
If not MsgBox(4,"Voulez-vous le télécharger ?","Fichier de " & Round($size/1024,2) & " Ko") = 6 then Exit

ProgressOn("Téléchargement en cours ...", "" , "")
Do
    $progress += 1
    ProgressSet($progress)
    $read = _WinHttpReadData($hrequest, 2, Round($size/100,0))
    $extended = @extended
    $get = _WinHttpBinaryConcat($get, $read)
Until $extended = 0
ProgressOff()

$open = FileOpen("Test.zip", 26)
FileWrite($open, $get)

_WinHttpCloseHandle($hrequest)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
FileClose($open)