QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 28, 2020, 09:35:50 am

Title: Random generated pictures from string using Robohash API!
Post by: SpriggsySpriggs on July 28, 2020, 09:35:50 am

This API hashes a string that you send it and will display an image generated based on that hash. This could be useful for people developing RPG style games where the character's picture can be generated based on the name or for a profile picture for a website where you don't want your actual face. See below for a screenshot of an image using "qb64.org" as the string:
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
And here is the source code:

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. _TITLE "Robohash API"
3.  
4. DIM i&
5. i& = Robohash("qb64.org")
6.  
7. IF i& <> 0 THEN
8.     SCREEN i&
9. END IF
10.  
11. FUNCTION Robohash& (stringhash AS STRING)
12.     DIM URL AS STRING
13.     DIM URLFile AS STRING
14.     DIM a%
15.     URLFile = stringhash + ".png"
16.     URL = "https://robohash.org/" + stringhash
17.     a% = API_request(URL, URLFile)
18.     DIM U AS INTEGER
19.     U = FREEFILE
20.     OPEN URLFile FOR BINARY AS #U
21.     IF LOF(U) <> 0 THEN
22.         Robohash = _LOADIMAGE(URLFile, 32)
23.     ELSE
24.         CLOSE #U
25.         KILL URLFile
26.         Robohash = 0
27.     END IF
28.     CLOSE #U
29.     KILL URLFile
30. END FUNCTION
31.  
32.  
33. DECLARE DYNAMIC LIBRARY "urlmon"
34.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
35. END DECLARE
36.  
37. FUNCTION API_request (URL AS STRING, File AS STRING)
38.     API_request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
39. END FUNCTION

Text Only | Text with Attachments