Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Pause code until operation is completed
Message
De
31/01/2002 07:59:17
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00613179
Message ID:
00613275
Vues:
15
Nadya
The code stops the processing from proceeding but the web form that is created freezes. I also found another problem with the web form in that it will not let me download the file from the web form.

I had been using the following code which works fine, howeverI wanted to try the web form in the gallery section as it was mentioned in the FoxPro Advisor Tips section as a way to incorporate the web into your application.

O = createobject("shell.application")
O.open("http://quote.yahoo.com/")

Thanks for your input. It did get me thinking as to how I can stop the processing for another application I am working on.

Gaylen



>How about the following lines:
>
>lnStartTime=seconds()
>lnElapsedTime = seconds()- m.lnStartTime
>do while m.lnElapsedTime < MAX_WAITING_TIME and !m.llInterrupt
>   if adir(laFilesToDownload,m.lcFileName)>0 ;
>      and laFilesToDownload[1,2]=ActualFileSize
>      exit && We downloaded the file
>   endif
>   lnElapsedTime = seconds()- m.lnStartTime
>enddo
>
>This code is of the top of my head and not tested, but should give you the idea.
>
>>I use the following code to get data from the internet.
>>
>> x = NEWOBJECT("_webform", HOME()+"\gallery\_webview")
>> x.olewebbrowser.navigate2("http://quote.yahoo.com")
>> x.show()
>>
>> *** subsequent code follows which uses the data that is downloaded.
>>
>>The problem is that the subsequent code runs before I get the data downloaded.
>>
>>I can put the web access in one command button and the subsequent code under another command button and have it two step process. However, I would prefer to have the user click only one command button.
>>
>>Any thoughts would be appreciated
>>
>>Thanks
>>Gaylen Jungling
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform