Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 25, 2020, 02:02:38 pm

Title: Place kittens in your programs
Post by: SpriggsySpriggs on July 25, 2020, 02:02:38 pm
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]
  2.  
  4. IF _FILEEXISTS("neededimage.jpg") = 0 THEN
  5.     a = LoadKitten("720", "480")
  6.     SCREEN a
  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
  27.  
  29.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
  31.  
  32. FUNCTION API_request (URL AS STRING, File AS STRING)
  33.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
Title: Re: Place kittens in your programs
Post by: johnno56 on July 25, 2020, 07:07:44 pm
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...)
Title: Re: Place kittens in your programs
Post by: bplus on July 25, 2020, 07:20:27 pm
Cat puns: me-ow!
Title: Re: Place kittens in your programs
Post by: +KZ on July 26, 2020, 06:36:57 pm
lel
Title: Re: Place kittens in your programs
Post by: SpriggsySpriggs on July 26, 2020, 06:40:25 pm
Quote from: johnno56 on July 25, 2020, 07:07:44 pm
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.
Title: Re: Place kittens in your programs
Post by: bplus on July 26, 2020, 06:59:29 pm
Yeah like the dog deleted my image image:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Place kittens in your programs
Post by: johnno56 on July 26, 2020, 08:21:10 pm
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
Title: Re: Place kittens in your programs
Post by: johnno56 on July 26, 2020, 08:23:18 pm
bplus,

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

You know I just 'had' to do it, right?
Title: Re: Place kittens in your programs
Post by: SMcNeill on July 26, 2020, 10:29:45 pm
Quote from: johnno56 on July 26, 2020, 08:23:18 pm
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.
Text Only | Text with Attachments