As Rosanne Rosanna Dana would say, "Never Mind!" I fixed it. John
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of john harvey Sent: Sunday, August 20, 2006 12:04 AM To: 'ProFox Email List' Subject: RE: [OT] -- pull picture from IE 7 Christof Lange sent me a program a few months ago that would copy an image from IE 6, but the code doesn't work in IE 7. Anyone know why? Here's a link that I'm trying to pull pictures from: http://www.shelby-sheriff.org/inmateinfo/kiosk/kiosk_detailPhoto.php?BIDf=3D 7BA99C-3EA6-4BEE-A758-C41E8018C586&BIDr=362999D8-261F-451A-B504-01AD32B4BDF4 Here's the code I have: Lparameters toWeb * Thanks to Christof * pass the oie object Local loImg, lnImg DECLARE INTEGER URLDownloadToFile IN urlmon Long, STRING, STRING, Long, Long loImg = toWeb.Document.getElementsByTagName("img") For lnImg=0 to loImg.Length-1 *!* IF PARAMETERS()<2 lcimage=oie.Document.Images.Item(i).src lcjfile=UPPER(JUSTFNAME(lcimage)) IF OCCURS(lcjfile,UPPER(justfname(loImg.item(m.lnImg).Src)))>0 IF UPPER(loImg.item(m.lnImg).Src)=lcjfile * the urldownloadtofile method will iterate all images on the webpage and name them img1,img2,img3,etc with the proper extension * I am going to modify the code to allow passing an image name and saving only that image to a particular location * Also,this code saves the images to the current folder URLDownloadToFile(0, loImg.item(m.lnImg).Src, "img"+Transform(m.lnImg)+"."+JustExt(loImg.item(m.lnImg).Src), 0,0) endif ENDIF EndFor [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
