A awama Active Member Licensed User Longtime User Dec 15, 2019 #1 Hallo, I use this Code to downoad a Web-Site for parsing the content. Dim j As HttpJob j.Initialize("", Me) j.Download("https://www.google.com") Wait For (j) JobDone(j As HttpJob) If j.Success Then Log(j.GetString) End If j.Release The function is well if internet speed is fast 3G, 4G H+ ... But if internet speed is slow (2G) then this Code does not work if Android Version < 8 Has anywhere a solution? Many Thanks awama
Hallo, I use this Code to downoad a Web-Site for parsing the content. Dim j As HttpJob j.Initialize("", Me) j.Download("https://www.google.com") Wait For (j) JobDone(j As HttpJob) If j.Success Then Log(j.GetString) End If j.Release The function is well if internet speed is fast 3G, 4G H+ ... But if internet speed is slow (2G) then this Code does not work if Android Version < 8 Has anywhere a solution? Many Thanks awama
DonManfred Expert Licensed User Longtime User Dec 15, 2019 #2 awama said: But if internet speed is slow (2G) then this Code does not work if Android Version < 8 Click to expand... What is the error you get? Upvote 0
awama said: But if internet speed is slow (2G) then this Code does not work if Android Version < 8 Click to expand... What is the error you get?
A awama Active Member Licensed User Longtime User Dec 15, 2019 #3 Most of the time there is no report, sometimes no success "If j.Success Then ..Code ... Else Msgbox (" No Success "," ") End if Upvote 0
Most of the time there is no report, sometimes no success "If j.Success Then ..Code ... Else Msgbox (" No Success "," ") End if
DonManfred Expert Licensed User Longtime User Dec 15, 2019 #4 awama said: Else Msgbox (" No Success "," ") Click to expand... 1. Do not use MsgBox! Use LOG instead. 2. Log the Error! Code: If j.Success Then ..Code ... Else log("No Success:"&j.ErrorMessage) End if j.Release Upvote 0
awama said: Else Msgbox (" No Success "," ") Click to expand... 1. Do not use MsgBox! Use LOG instead. 2. Log the Error! Code: If j.Success Then ..Code ... Else log("No Success:"&j.ErrorMessage) End if j.Release
DonManfred Expert Licensed User Longtime User Dec 15, 2019 #5 awama said: Dim j As HttpJob j.Initialize("", Me) j.Download("https://www.google.com") Wait For (j) JobDone(j As HttpJob) If j.Success Then Log(j.GetString) End If j.Release Click to expand... Please use [CODE]code here...[/CODE] tags when posting code. Upvote 0
awama said: Dim j As HttpJob j.Initialize("", Me) j.Download("https://www.google.com") Wait For (j) JobDone(j As HttpJob) If j.Success Then Log(j.GetString) End If j.Release Click to expand... Please use [CODE]code here...[/CODE] tags when posting code.
A awama Active Member Licensed User Longtime User Dec 15, 2019 #6 Hi I don't know why it didn't work for hours yesterday, but now the same code works again. I will contact you again if there are problems again. Greetings awama Upvote 0
Hi I don't know why it didn't work for hours yesterday, but now the same code works again. I will contact you again if there are problems again. Greetings awama