|
|
I have DVD Movie Retail Shop, In addition to my work in a company as IT Manager. The biggest problem in having such shop is the customer who came and ask for specific movie by Category, Last Release, etc...
I have contacted IMDB team in roder they give me access to there movie library in order to use them in my program so I can manage my movie collection and the ability to search according to the customer creteria. IMDB Reply was they want 25,000$ / Month. ( I wonder how/what software or project or business that can make more than 25,000$ / Month while using the IMDB). Mean they are saying GO AWAY nicely.
So I decide to make my own project for getting movies information automatically from the internet. Where all you have to do is write down the movie name, and the imdb.dll will do the rest.
imdb.dll is part of my Project (Multimedia Club Manager) which can be installed from www.cdcity.org in the download section.
If you like the dll and you want to purchase it, and prevent the MessageBox from appearing, send email to sales@cdcity.org
Download imdb.dll v1.0.28
If you have any question regarding imdb.dll or Multimedia Club Manager, Please Visit
http://forum2.aimoo.com/mcmHere is the dll and how ot use it
1- Register the dll on you computer
Put the dll in a folder. Let suppose C:\MyDLLFolder
START >> RUN >> CMD Enter
REGSVR32 C:\MyDLLFolder\IMDB.DLL
2- Create Dll Instance
oIMDB = CREATEOBJECT("imdb.imdb")
3- Register the dll on the interent in order to use it
oIMDB.Register('Samir Ibrahim','Lebanon','samir.ibrahim@wilcopm.com','Password123')
4- Login
oIMDB.Login('samir.ibrahim@wilcopm.com','Password123')
5- Search for movie
lcSearchResult = oIMDB.Search("The Matrix")
lcSearchResult could be 1 of the following:
Please Login First: in case you do search before doing login
No Internet: There is no internet connection in your computer
1 Movie Found: The search found 1 movie
Many Movies Found: The search found many movies
6- Display the found Movie
? oIMDB.GetFoundMovieNameInPosition(1) && Get Movie Title of the first found movie
The Matrix (1999)
? oIMDB.GetFoundMovieNameInPosition(2)
The Matrix (1999)
? oIMDB.GetFoundMovieNameInPosition(3)
The MAtrix Reloadded (2003)
? oIMDB.GetFoundMovieNameInPosition(4)
The MAtrix Revolutions (2003)
Note: You can loop untill oIMDB.GetFoundMovieNameInPosition(I) gives Blank
7- Display the URL of Found Movie
? oIMDB.GetFoundMovieURLInPosition(1)
www.imdb.com/title/tt0133093/
? oIMDB.GetFoundMovieURLInPosition(2)
www.imdb.com/title/tt0133093/
? oIMDB.GetFoundMovieURLInPosition(3)
www.imdb.com/title/tt0234215/
? oIMDB.GetFoundMovieURLInPosition(4)
www.imdb.com/title/tt0242653/
8- Download the required movie
llDownloadMovie = oIMDB.DownloadMovieInPosition(1)
llDownloadMovie could be on of the following:
.T.: if the download successfull
.F.: if the download Failed
9- Getting the movie information
? oIMDB._GetAwards()
? oIMDB._GetCasting()
? oIMDB._GetCasting()
? oIMDB._GetCategory()
? oIMDB._GetColor()
? oIMDB._GetCountry()
? oIMDB._GetDirector()
? oIMDB._GetGoofs()
? oIMDB._GetLanguage()
? oIMDB._GetLocation()
? oIMDB._GetMPAA()
? oIMDB._GetMPAADesc()
? oIMDB._GetPlot()
? oIMDB._GetPlotKeywords()
? oIMDB._GetRuntime()
? oIMDB._GetScore()
? oIMDB._GetSoundMix()
? oIMDB._GetTitle()
? oIMDB._GetWriters()
? oIMDB._GetYear()
10- Remove the DLL from Memory
Release oIMDB
Comment Notification
If you would like to receive an email when updates are made to this post, please register here
Subscribe to this post's comments using
|
|