Place kittens in your programs

[SpriggsySpriggs]

Imagine, if you will, the image file you need for your program doesn't exist on the client's computer. Perhaps instead of an error for an invalid image handle you show them a fluffy kitten:

 

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. DIM a AS LONG
4. IF _FILEEXISTS("neededimage.jpg") = 0 THEN
5.     a = LoadKitten("720", "480")
6.     SCREEN a
7. END IF
8.  
9. FUNCTION LoadKitten (imagewidth AS STRING, imageheight AS STRING)
10.     DIM URL AS STRING
11.     DIM URLFile AS STRING
12.     DIM kitten AS STRING
13.     DIM a%
14.     URLFile = "kitten.jpg"
15.     URL = "http://placekitten.com/g/" + imagewidth + "/" + imageheight
16.     a% = API_request(URL, URLFile)
17.     OPEN URLFile FOR BINARY AS #1
18.     IF LOF(1) <> 0 THEN
19.         LoadKitten = _LOADIMAGE(URLFile, 32)
20.         CLOSE #1
21.         KILL URLFile
22.     ELSE
23.         CLOSE #1
24.         KILL URLFile
25.     END IF
26. END FUNCTION
27.  
28. DECLARE DYNAMIC LIBRARY "urlmon"
29.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
30. END DECLARE
31.  
32. FUNCTION API_request (URL AS STRING, File AS STRING)
33.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
34. END FUNCTION

[johnno56]

I am not a fan of pets. But I can see the benefit of replacing a "cold" message box with an image of a "warm" blooded quadruped. Purr-haps you could show the kitten image when the message is cat-astrophic? (Sorry. Couldn't resist...)

[bplus]

Cat puns: me-ow!

[+KZ]

lel

[SpriggsySpriggs]

I am not a fan of pets. But I can see the benefit of replacing a "cold" message box with an image of a "warm" blooded quadruped. Purr-haps you could show the kitten image when the message is cat-astrophic? (Sorry. Couldn't resist...)

@johnno56 I worded it wrong. What I meant to say was use these pictures of cats to fill placeholders for images in your programs when the image you need doesn't exist.

[bplus]

Yeah like the dog deleted my image image:
 

[johnno56]

SpriggsySpriggs,

Understood... I cringe when either the file doesn't exist or, as I most usually do, mis-spel the filename... But, with my luck, I would probably mess up the inclusion of a "file missing" image... lol

But I just couldn't let a 'pun' opportunity just slip by... lol

[johnno56]

bplus,

Possible "speech bubble"... "Hey guys! I found the paws button!"

You know I just 'had' to do it, right?

[SMcNeill]

bplus,

Possible "speech bubble"... "Hey guys! I found the paws button!"

You know I just 'had' to do it, right?

Dog gone; you beat me to it.