Mike
I parse the memo field looking for towns which are contained in a town and country table - works great - I then extract the date and time from the memo field and update the town information
The next time I run - if I haven't exited VFP the times in the memo field are the same
If I exit and restart I get an update
Colin
>I don't see what you do with the information contained in the cursor. Do you parse the memo field and update something?
>
>>Mike
>>
>>I still have to exit VFP to be able to get the latest time
>>
>>This is the code - have I got it wrong
>>
>>clear
>>clear all
>>SET HOURS TO 24
>>set talk off
>>set exact on
>>
>>
>>CREATE CURSOR WebPage (myMails m)
>>set century on
>>*(content m)
>>url="
http://www.timeanddate.com/worldclock/full.html"
>>objHTTP = CreateObject("MSXML2.XMLHTTP")
>>objHTTP.Open("GET", url,.f.)
>>objHTTP.Send()
>>Insert into WebPage (myMails) VALUES (objHTTP.ResponseText)
>>objHTTP = .null.
>>
>>Thanks
>>
>>Colin
>>
>>
>>>
objHTTP = .null.
>>>
>>>>Mike
>>>>
>>>>It works well but I have 1 last question - if I don't close the process I can't update the view without exiting VFP - how do I close it?
>>>>
>>>>Colin
>>>>
>>>>
>>>>>
CREATE CURSOR myWebPage (content m)
>>>>>url="http://www.timeanddate.com/worldclock/full.html"
>>>>>objHTTP = CreateObject("MSXML2.XMLHTTP")
>>>>>objHTTP.Open("GET", url,.f.)
>>>>>objHTTP.Send()
>>>>>Insert into myWebPage (content) VALUES (objHTTP.ResponseText)
>>>>>MODIFY MEMO myWebPage.content
>>>>>
>>>>>>Mike
>>>>>>
>>>>>>Sounds good but how do I code the internet query from VFP6?
>>>>>>
>>>>>>>Do a query on this internet site, parse the page and do the calculation. This page gives you the current date and time for most places in the world.
>>>>>>>
http://www.timeanddate.com/worldclock/full.html>>>>>>>
>>>>>>>>Local computer is based in the UK - it needs to know what the local time is in Chicago where the package is going
>>>>>>>>
>>>>>>>>Colin
>>>>>>>>
>>>>>>>>>Wouldn't the local computer where the application is installed know the offset to GMT?
>>>>>>>>>
On Error *
>>>>>>>>>lcComputer = "."
>>>>>>>>>loWMIService = Getobject("winmgmts:\\" + lcComputer + "\root\cimv2")
>>>>>>>>>colItems = loWMIService.ExecQuery("Select * from Win32_TimeZone")
>>>>>>>>>For Each loItem In colItems
>>>>>>>>> ?"Bias: " + transf(loItem.Bias)
>>>>>>>>> ?"Caption: " + transf(loItem.Caption)
>>>>>>>>> ?"Daylight Bias: " + transf(loItem.DaylightBias)
>>>>>>>>> ?"Description: " + transf(loItem.Description)
>>>>>>>>> ?
>>>>>>>>>Next
>>>>>>>>>
>>>>>>>>>Or you can use the GETSYSTEMTIME() (GMT time) and make the diffence against the GETLOCALTIME() API to get the offset to GMT.
>>>>>>>>>
>>>>>>>>>>Hi
>>>>>>>>>>
>>>>>>>>>>I have a database which contains information about packages to be delivered all over the world - I want to be able to find out the local time at destination without having to calculate it manually
>>>>>>>>>>
>>>>>>>>>>So for example if I have a package to be delivered to Chicago I can automatically calulate that the time difference is 6 hours behind the UK
>>>>>>>>>>
>>>>>>>>>>Anyone ever done any work in this area?
>>>>>>>>>>
>>>>>>>>>>Thanks
>>>>>>>>>>
>>>>>>>>>>Colin
Specialist in Advertising, Marketing, especially Direct Marketing
I run courses in Business Management and Marketing