Wx - Baixando um site e salvando em disco - WINDEV 25 - Forums développeurs

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil | Messages récents | Connexion | | Français

Accueil → WINDEV 25 → Wx - Baixando um site e salvando em disco

Wx - Baixando um site e salvando em disco

Débuté par adrianoboller, 11 mar. 2016 02:00 - 1 réponse

adrianoboller

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 11 mars 2016 - 02:00

Prezados,

Segue exemplo de como baixar um site em disco:

Procedure BaixarSalvar()

HourGlass(True)

ok is boolean = False

PROGBAR_01..Value = 0

PROGBAR_01..MaxValue = Registros

FOR EACH T001_Help 
 
 IF T001_Help.T001_Localizou = False
  
  ok  =  HTTPRequest(T001_Help.T001_Link)
  
  IF ok = True THEN
   
   Multitask(1)
   
   PROGBAR_01..Value += 1
   
   BufferSite is Buffer = HTTPGetResult(httpResult)
   
   ok = fSaveText(T001_Help.T001_Arquivo+".baixado",BufferSite)
   
  END
  
 END
 
END

PROGBAR_01..Value = Registros

HourGlass(False)

Bons estudos!

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/

Signaler

Vous devez être connecté pour évaluer ce message

adrianoboller

Membre enregistré
3 659 messages
Popularité : +175 (223 votes)

Posté le 11 mars 2016 - 02:02

Procedure AbrirTraduzirSalvar()

HourGlass(True)

x is int = 0

ok is boolean = False

PROGBAR_01..Value = 0

PROGBAR_01..MaxValue = Registros

FOR EACH T001_Help 
 
 IF fFileExist(T001_Help.T001_Arquivo) = True  THEN
  
  x+= 1
  IF  x = 10 THEN
   x = 0
   Info("Pause")
  END
 
  bStarted is boolean
  sParameters is string = T001_Help.T001_Link
  
  // Starts the application
  bStarted = ExeRun("""C:\Program Files\Mozilla Firefox\firefox.exe"" " + sParameters, exeMaximize, exeDontWait, "C:\Program Files\Mozilla Firefox\")
  
  IF ErrorOccurred THEN
   Error() 
  END
  
 END
 
END

PROGBAR_01..Value = Registros

HourGlass(False)

Signaler

→ Revenir à WINDEV 25