Hi!
Try to use another loop than "FOR EACH ...". For example,
FOR I=oIEobj.Document.Links.Count
if type(oIEobj.Document.Links(I)) == "O"
oLink = oIEobj.Document.Links(I)
....
endif
ENDFOR
Another thing you can try is working using oIEobj.Object... reference, sometimes it is more reliable. Finally, VFP can crash when working with interfaces assigned to the variable. So try to do not assign oIEobj.Document.Links(I) to the variable, just do immediate work with it:
REPLACE linktext WITH oIEobj.Document.Links(I).InnerText, ;
linkurl WITH oIEobj.Document.Links(I).HREF
HTH.
>I am controlling an instance of InternetExplorer from inside VFP6. I have a simple program designed to get me a list of all the links on a designated web site. After navigating to the site and checking my readystates, I just have a simple section of code to get the list of links and save them to a database. The code looks like this:
>
>FOR EACH oLink IN oIEobj.Document.Links
> REPLACE linktext WITH oLink.InnerText
> REPLACE linkurl WITH oLink.HREF
>ENDFOR
>
>On most web sites, it works fine, but on a few I get a FATAL EXCEPTION ERROR COOOO5, and the whole thing crashes out to the OS. On the web sites that crash the program, I can even rem out the two REPLACE lines and it still crashes (giving me the same error with the line number of the ENDFOR command). Has anyone experienced this and is there a fix?
>
>Thanks in advance
>
>John Dennis
Vlad Grynchyshyn, Project Manager, MCP
vgryn@yahoo.comICQ #10709245
The professional level of programmer could be determined by level of stupidity of his/her bugs
It is not appropriate to say that question is "foolish". There could be only foolish answers. Everybody passed period of time when knows nothing about something.