ActiveX_WZ

2008-05-30T13:25:00Z

ActiveX_wz is a class contain diffrent activex control such as (Listview, Treeview, Flexgrid, MaskEdit, msDatePicker, etc...) which are bounded to table (Read, Write & Update)

In addition it has class builder included, where you can right click on the control in the design time and press builder, the builder form apears where you can set all the property in much easier and faster way.

Listview_wz

Treeview_wz

MaskEdit_wz

FlexGrid_wz

mshFlexGrid_wz

Populate ActiveX From Table

2008-05-22T10:47:00Z

in here, you will find a code to populate Diffrenet ActieX (Treeview,Listview, Flexgrid, etc...) from a Table

Treeview ActiveX

1- Populate Treeview from table (Normal Format)

Listview ActiveX

1- Populate Listview from a cursor

2- Populate Listview from a cursor customized

My Story with IMDB (imdb.dll)

2008-05-02T11:59:00Z

Introduction

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

Download imdb.dll v 1.0.49 (vfp only) & v2.0.0 (vfp and vb) 02/05/2008
This download contains 2 Zip files, imdb_1.0.49.zip and imdb_2.0.0.zip
imdb_1.0.49.zip is for (VFP only), imdb_2.0.0.zip is for VFP and VB

Download imdb.dll v 2.0.1 (Fix Combatibility issue with imdb site) 04/06/2008

Download imdb.dll v 3.1.4 (Download Movie Thumb) (not Fully Tested) 30/12/2008

Having a problem?

If you have any question regarding imdb.dll or Multimedia Club Manager, Please Visit
http://forum2.aimoo.com/mcm

VFP code Example.
Here 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

VB code Example.

Dim oIMDB As imdb.imdb
Dim imdbSearch, imdbLogin As String
Dim imdbFoundMovie, imdbFoundURL As Variant
Dim I As Integer
Dim imdbDownloadMovie As Boolean

Private Sub cmdLogin_Click()
    Set oIMDB = New imdb.imdb
    imdbLogin = oIMDB.Login("aa", "aa")
    'imdbLogin = "Login Successfull" or "Login Failed"

    imdbSearch = oIMDB.Search("The Matrix")
    'imdbSearch = "No Internet" or "1 Movie Found" or "Many Movies Found"
    I = 1
    While oIMDB.GetFoundMovieNameInPosition(I) <> ""
        imdbFoundMovie = oIMDB.GetFoundMovieNameInPosition(I)
        'imdbFMIP = Fales or Movie Title or Blank
        Debug.Print imdbFoundMovie
        I = I + 1
    Wend

    I = 1
    While oIMDB.GetFoundMovieURLInPosition(I) <> ""
        imdbFoundURL = oIMDB.GetFoundMovieURLInPosition(I)
        Debug.Print imdbFoundURL
        I = I + 1
    Wend
    imdbDownloadMovie = oIMDB.DownloadMovieInPosition(1)
    Debug.Print oIMDB.GetAwards
    Debug.Print oIMDB.GetCasting
    Debug.Print oIMDB.GetCategory
    Debug.Print oIMDB.GetColor
    Debug.Print oIMDB.GetCountry
    Debug.Print oIMDB.GetDirector
    Debug.Print oIMDB.GetGoofs
    Debug.Print oIMDB.GetLanguage
    Debug.Print oIMDB.GetLocation
    Debug.Print oIMDB.GetMPAADesc
    Debug.Print oIMDB.GetMPAA
    Debug.Print oIMDB.GetPlot
    Debug.Print oIMDB.GetPlotKeywords
    Debug.Print oIMDB.GetReleaseDate
    Debug.Print oIMDB.GetRuntime
    Debug.Print oIMDB.GetScore
    Debug.Print oIMDB.GetSoundMix
    Debug.Print oIMDB.GetTitle
    Debug.Print oIMDB.GetWriters
    Debug.Print oIMDB.GetYear

End Sub

imdb v 3.1.4 New Feature

oIMDB = CREATEOBJECT("imdb.imdb")
? oIMDB.Login("aa","aa")
? oIMDB.Search("Superman")
? oIMDB.GetFoundMovie()
? oIMDB.GetFoundMovieNameInPosition(1) && You can loop untill you reach empty string
? oIMDB.DownloadMovieInPosition(1)
cImage = oIMDB.DownloadMovieThumb("c:\imagename.jpg")
&& cImage will contain the binary content for the image and
&& the image will be stored in c:\imagename.jpg

Foxite Copy/Paste

2008-04-15T06:14:00Z

Since this is my first weblog on this site, I decide that my first weblog will be a Foxite Copy/Paste for a cool Thread I found on this site, and I intend to make Foxite Copy/Paste always updated by such Thread.

I had talked to Mr. Ken and he (very Thankfully) advise me that I create my own article depending on information I found in this site in addition to my research, in order that I got the maximum understanding and increase my knowledge, Although Ken intention was for the good for my general knowledge, but I will not wait 10 years to create article my self

I had found it difficult to make research for a subject that you are not working in and my idea was to show Foxite as a Website for good resources for other developer.

I want to say thanks for Mr. Ken Murphy for his wonderfull touch in this site, and For Eric for this wonderfull site with this wonderfull people.

1- Why ODBC and Not OLEDB?