PureBasic

SPH a écrit :Imaginons que sur le site "http://toto.free.fr", il y a un fichier "1.txt".
Comment mettre dans a$ le contenu de "http://toto.free.fr/1.txt" ??

;/ Author : Pille
; Proxy like this : "192.168.0.1:8080"
Global Site.s= "http://michel.dobro.free.fr/bidouilles/SPH.txt"
;Global Site.s="http://michel.dobro.free.fr/index.htm"


; toute la page web est dans "Url2Text(#Site)
; toute la page web est dans "Url2Text(#Site)
; toute la page web est dans "Url2Text(#Site)
; toute la page web est dans "Url2Text(#Site)
; toute la page web est dans "Url2Text(#Site)








ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
     ; 1 INTERNET_OPEN_TYPE_DIRECT Resolves all host names locally.
     ; 0 INTERNET_OPEN_TYPE_PRECONFIG Retrieves the proxy Or direct configuration from the registry.
     ; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file.
     ; 3 INTERNET_OPEN_TYPE_PROXY Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT.
    
    isLoop.b=1
    INET_RELOAD.l = $80000000
    hInet.l=0
    hURL.l=0
    Bytes.l=0
    Buffer.s= Space (2048 )
    RES.s= ""
    
    
    hInet = InternetOpen_ ( "" , OpenType, ProxyAndPort, "" , 0)
    hURL = InternetOpenUrl_ (hInet, Url, #Null , 0, INET_RELOAD, 0)
    
     Repeat
         InternetReadFile_ (hURL,@Buffer, Len (Buffer), @Bytes)
         If Bytes = 0
            isLoop=0
         Else
            RES = RES + Left (Buffer, Bytes)
         EndIf
     Until isLoop=0
    
     InternetCloseHandle_ (hURL)
     InternetCloseHandle_ (hInet)
     ProcedureReturn RES
EndProcedure

ProcedureDLL.s Url2Text(Url.s)
     ProcedureReturn Url2Text2(Url,1, "" )
EndProcedure


;/ Test

OpenWindow (0,10,10,800,600, "resultat" , #PB_Window_SystemMenu )
CreateGadgetList ( WindowID (0))
EditorGadget (2, 10, 10, 800,580)
AddGadgetItem (2, -1, Url2Text(Site.s))
Repeat
    Event= WindowEvent ()
    
Until Event = #PB_Event_CloseWindow

SPH a écrit :J'aurais aimé plutot le telecharger en toute transparence plutot que d'ouvrir une quelconque fenetre...

Dr. Dri a écrit :

SPH a écrit :J'aurais aimé plutot le telecharger en toute transparence plutot que d'ouvrir une quelconque fenetre...

bah n'utilise pas de fenêtre, t'as une procédure toute faite je vois pas ton probleme

Dri

;-
;- Win32 - Wininet.lib
;-

Enumeration 0 ; #INET_
  #INET_RELOAD = $80000000
EndEnumeration
Enumeration 0 ; #INTERNET_OPEN_TYPE_
  #INTERNET_OPEN_TYPE_PRECONFIG                   = 0 
  #INTERNET_OPEN_TYPE_DIRECT                      = 1 
  #INTERNET_OPEN_TYPE_PROXY                       = 3 
  #INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4 
EndEnumeration

ProcedureDLL.s Url2Text(Url.s, AccessType.l = #INTERNET_OPEN_TYPE_DIRECT, ProxyName.s = #Null$, ProxyBypass.s = #Null$)
  
  Protected hInet.l, hURL.l, Bytes.l, Result.s, Buffer.s{2048}
  
  hInet = InternetOpen_(#Null$, AccessType, ProxyName, ProxyBypass, #Null)
  If hInet
    hURL = InternetOpenUrl_(hInet, Url, #Null$, #Null, #INET_RELOAD, #Null)
    If hURL
      While InternetReadFile_(hURL, @Buffer, 2048, @Bytes) And Bytes
        Result + Left(Buffer, Bytes) 
      Wend
      InternetCloseHandle_(hURL)
    EndIf
    InternetCloseHandle_(hInet)
  EndIf
  
  ProcedureReturn Result
  
EndProcedure

;- 
;- TEST
;- 

a$ = Url2Text("http://michel.dobro.free.fr/")
b$ = Url2Text("http://michel.dobro.free.fr/bidouilles/SPH.txt")

Debug a$
Debug b$