Hi Denis
welcome to the club! It was the first API for me, too! But with the help of Bob you get everything running.
Url is string
HTTP_Res is JSON, description ="IMDB-API-SearchResult"
//IMDB-API-SearchResult is an external file descipton it looks like this (see image)
//Just run the call without description, debug the result and save it as json file (then you have your desription)
HTTPError is string
lcMovieToSearch is string = Replace(MovietoSearch," ","%20")
Url = StringBuild("
https://imdb-api.com/%1/API/%2/%3/%4","EN","SearchMovie",gcIMDBAPIKey,lcMovieToSearch)
// gcIMDBAPIKey is your personal API key you receive when registering
//lcMovietosearch is the name of the movie you are looking for (all spaces replaced with %20
IF HTTPRequest(Url) THEN
// The request was sent, it was a valid URL
HTTP_Res = HTTPGetResult()
IF Length(HTTP_Res) = 0 THEN
// Error of the Web server,
// the error details can be found in the page header
HTTPError = HTTPGetResult(httpHeader)
Error(HTTPError)
RETURN
END
ELSE
HTTPError = HTTPGetResult(httpHeader)
Error(HTTPError)
RETURN
END
after you have entered the description, you can just reference it as normal variables
lnIndex = 0
lnMaxIndex = HTTP_Res.results..Count
// check to find out how many lines the result has
TableDeleteAll(Table_Result)
FOR lnIndex = 1 TO lnMaxIndex
TableAddLine(Table_Result,HTTP_Res.results[lnIndex].id, HTTP_Res.results[lnIndex].title, HTTP_Res.results[lnIndex].description, HTTP_Res.results[lnIndex].image)
END
IF Table_Result..Count THEN
ListSelectPlus(Table_Result,1)
BrowseImage = Table_Result.Image
END
HTH
Have Fun!