Print Page - Save GIF from internet

Title: Save GIF from internet
Post by: LarryMc on May 28, 2008, 07:45:22 AM

Looking for minimum code to save .gif file from internet to harddisk without using a browser window.

Larry

Title: Re: Save GIF from internet
Post by: Egil on May 28, 2008, 10:00:15 AM

Just a little hint... I am just now studying the browser_test.eba, one of the examples that came with EmergenceBasic. When testing the program I just held the cursor over a gif and right-clicked. Then a system menu appeared, and one of the choices offerred was "Save picture as". What can be be simpler than that? ;)

Title: Re: Save GIF from internet
Post by: LarryMc on May 28, 2008, 12:03:09 PM

Thanks Egil

That's a no-brainer IF I wanted the user to have to do the saving. ;)

Guess I should have been just a "little" more specific: :-[

QuoteLooking for minimum code to save .gif file from internet to harddisk, without using a browser window.

Larry

Title: Re: Save GIF from internet
Post by: sapero on May 28, 2008, 02:29:53 PM

Very simple

Code Select

$use "Wininet.lib"
$use "Urlmon.lib"
declare import, URLDownloadToFileA(comref pCaller,string szURL,string szFileName,_
	int dwReserved, comref lpfnCB),int
declare import, DeleteUrlCacheEntryA(string szURL)

' optional, remove the file from browser's cache
DeleteUrlCacheEntryA("http://www.google.com/intl/en_ALL/images/logo.gif")

' then download it
if URLDownloadToFileA(0, "http://www.google.com/intl/en_ALL/images/logo.gif", "c:\\image.gif", 0, 0)
	Messagebox 0, "download failed", ""
else
	system "c:\\image.gif"
endif

Title: Re: Save GIF from internet
Post by: LarryMc on May 28, 2008, 04:37:04 PM

Sapero,
I knew you were going to be the one with the answer. I was just waiting for you to get on.

As always, thanks a million.

Larry

IonicWind Software

IWBasic => General Questions => Topic started by: LarryMc on May 28, 2008, 07:45:22 AM