The image does exist on the IMDB page so I know it's there.
Cobbled together the code below to show that I am not going mad.
Code: Select all
#FileNotFound = -1
#FileIsDirectory = -2
IllegalCharacters.s = "\/:*?" + Chr(34) + "<>|"
PictureDirectory.s = "D:\Itest\"
PictureFilename.s = #Empty$
PosterFile.s = "http://ia.media-imdb.com/images/M/MV5BMTM5NjU5MzMzMF5BMl5BanBnXkFtZTcwMTEzODYyMQ@@._V1_SX300.jpg"
NetworkUpStatus.i = InitNetwork()
If NetworkUpStatus.i <> #False
StringData.s = URLEncoder(PosterFile.s)
ExtensionPart.s = GetExtensionPart(StringData.s)
PictureFilename.s = "SmegittyFlapDoodle." + ExtensionPart.s
For KillBadChars.i = 1 To Len(IllegalCharacters.s)
PictureFilename.s = ReplaceString(PictureFilename.s, Mid(IllegalCharacters.s, KillBadChars.i, 1), " ", #PB_String_NoCase)
Next KillBadChars.i
ReplaceString(PictureFilename.s, " ", " ", #PB_String_NoCase)
PictureDownloadStatus.i = URLDownloadToFile_(0, StringData.s, PictureDirectory.s + PictureFilename.s, 0, 0)
If PictureDownloadStatus.i = #S_OK
PictureFoundStatus.i = FileSize(PictureDirectory.s + PictureFilename.s)
If PictureFoundStatus.i <> #FileNotFound And PictureFoundStatus.i <> #FileIsDirectory
Else
Debug "Picture file wasn't saved, not found or is a directory::: Filesize = " + Str(FileSize(PictureDirectory.s + PictureFilename.s))
EndIf
Else
Debug "Could not fetch::: " + StringData.s + " ::: Status ::: " + Str(PictureDownloadStatus.i)
EndIf
Else
Debug "Could not start the network functions. Status code is ::: " + Str(NetworkUpStatus.i)
EndIf
End