|
PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile |
| | | | | |
| Wx - Baixando um site e salvando em disco |
| Started by Boller, Mar., 11 2016 2:00 AM - 1 reply |
| |
| | | |
|
| |
Registered member
4,521 messages |
|
| Posted on March, 11 2016 - 2:00 AM |
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/ |
| |
| |
| | | |
|
| | |
| |
Registered member
4,521 messages |
|
| Posted on March, 11 2016 - 2:02 AM |
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
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)
--
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/ |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|