home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / IMDB_Movie1840511162005.psc / frmIMDB.frm < prev    next >
Text File  |  2004-09-28  |  11KB  |  421 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Begin VB.Form frmIMDB 
  5.    AutoRedraw      =   -1  'True
  6.    BackColor       =   &H8000000C&
  7.    ClientHeight    =   4230
  8.    ClientLeft      =   3105
  9.    ClientTop       =   4065
  10.    ClientWidth     =   6480
  11.    BeginProperty Font 
  12.       Name            =   "Tahoma"
  13.       Size            =   8.25
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    Icon            =   "frmIMDB.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MDIChild        =   -1  'True
  23.    ScaleHeight     =   282
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   432
  26.    Begin VB.PictureBox tmpPic 
  27.       Appearance      =   0  'Flat
  28.       AutoRedraw      =   -1  'True
  29.       AutoSize        =   -1  'True
  30.       BackColor       =   &H8000000C&
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H80000008&
  33.       Height          =   1635
  34.       Left            =   2520
  35.       ScaleHeight     =   109
  36.       ScaleMode       =   3  'Pixel
  37.       ScaleWidth      =   85
  38.       TabIndex        =   6
  39.       Top             =   1620
  40.       Visible         =   0   'False
  41.       Width           =   1275
  42.    End
  43.    Begin MSWinsockLib.Winsock sckPicture 
  44.       Left            =   840
  45.       Top             =   2160
  46.       _ExtentX        =   741
  47.       _ExtentY        =   741
  48.       _Version        =   393216
  49.    End
  50.    Begin MSComctlLib.ListView setTree 
  51.       Height          =   1935
  52.       Left            =   1980
  53.       TabIndex        =   2
  54.       Top             =   300
  55.       Width           =   2355
  56.       _ExtentX        =   4154
  57.       _ExtentY        =   3413
  58.       View            =   3
  59.       LabelEdit       =   1
  60.       LabelWrap       =   -1  'True
  61.       HideSelection   =   -1  'True
  62.       HideColumnHeaders=   -1  'True
  63.       FullRowSelect   =   -1  'True
  64.       _Version        =   393217
  65.       ForeColor       =   -2147483640
  66.       BackColor       =   -2147483643
  67.       Appearance      =   0
  68.       NumItems        =   2
  69.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  70.          Text            =   "Field"
  71.          Object.Width           =   38100
  72.       EndProperty
  73.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  74.          SubItemIndex    =   1
  75.          Text            =   "Data"
  76.          Object.Width           =   38100
  77.       EndProperty
  78.    End
  79.    Begin VB.PictureBox picTitle 
  80.       Appearance      =   0  'Flat
  81.       AutoRedraw      =   -1  'True
  82.       BackColor       =   &H80000005&
  83.       BorderStyle     =   0  'None
  84.       BeginProperty Font 
  85.          Name            =   "Tahoma"
  86.          Size            =   8.25
  87.          Charset         =   0
  88.          Weight          =   700
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   &H80000008&
  94.       Height          =   315
  95.       Left            =   1800
  96.       ScaleHeight     =   315
  97.       ScaleWidth      =   3315
  98.       TabIndex        =   1
  99.       Top             =   60
  100.       Width           =   3315
  101.    End
  102.    Begin VB.PictureBox picCover 
  103.       Appearance      =   0  'Flat
  104.       AutoRedraw      =   -1  'True
  105.       BackColor       =   &H8000000C&
  106.       BorderStyle     =   0  'None
  107.       ForeColor       =   &H80000008&
  108.       Height          =   1455
  109.       Left            =   0
  110.       ScaleHeight     =   97
  111.       ScaleMode       =   3  'Pixel
  112.       ScaleWidth      =   113
  113.       TabIndex        =   0
  114.       Top             =   120
  115.       Width           =   1695
  116.       Begin MSComctlLib.ProgressBar picProgress 
  117.          Height          =   315
  118.          Left            =   300
  119.          TabIndex        =   4
  120.          Top             =   600
  121.          Visible         =   0   'False
  122.          Width           =   1035
  123.          _ExtentX        =   1826
  124.          _ExtentY        =   556
  125.          _Version        =   393216
  126.          BorderStyle     =   1
  127.          Appearance      =   0
  128.          Scrolling       =   1
  129.       End
  130.       Begin VB.Label lblPic 
  131.          Height          =   195
  132.          Left            =   360
  133.          TabIndex        =   5
  134.          Top             =   960
  135.          Visible         =   0   'False
  136.          Width           =   975
  137.       End
  138.    End
  139.    Begin VB.Label lblPlot 
  140.       BackColor       =   &H80000005&
  141.       Height          =   375
  142.       Left            =   1320
  143.       TabIndex        =   3
  144.       Top             =   1680
  145.       Width           =   435
  146.    End
  147. End
  148. Attribute VB_Name = "frmIMDB"
  149. Attribute VB_GlobalNameSpace = False
  150. Attribute VB_Creatable = False
  151. Attribute VB_PredeclaredId = True
  152. Attribute VB_Exposed = False
  153. Private thisIMDBData As MOVIE_DATA_IMDB
  154. Private PIC_DATA As String
  155. Public FP As Boolean
  156.  
  157. Public PICSIZE As Long
  158.  
  159.  
  160. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  161. 'find the linked object and
  162. 'clear info
  163. For i = 0 To UBound(WNDWS)
  164.     With WNDWS(i)
  165.         If .pHwnd = Me.hwnd Then
  166.             'this the form
  167.             For ii = 1 To frmMain.wnds.Buttons.Count
  168.                 If frmMain.wnds.Buttons(ii).Tag = i Then
  169.                     'remove the associated tab
  170.                     frmMain.wnds.Buttons.Remove (ii)
  171.                     Exit Sub
  172.                 End If
  173.             Next
  174.         End If
  175.     End With
  176. Next
  177. End Sub
  178.  
  179. Private Sub Form_Resize()
  180. On Error Resume Next
  181. picCover.Move 2, 2, (Me.ScaleWidth / 2) - 4, Me.ScaleHeight - 4
  182. picTitle.Move picCover.Left + picCover.Width + 2, 2, Me.ScaleWidth - (picCover.Width + 6)
  183. setTree.Move picTitle.Left, picTitle.Top + picTitle.Height + 2, picTitle.Width
  184. setTree.ColumnHeaders(1).Width = ((setTree.Width / 2) - 3)
  185. setTree.ColumnHeaders(2).Width = ((setTree.Width / 2) - 3)
  186. lblPlot.Move picTitle.Left, setTree.Top + setTree.Height + 2, picTitle.Width, Me.ScaleHeight - (picTitle.Height + setTree.Height + 8)
  187. picProgress.Move 24, (picCover.Height / 2) - (picProgress.Height / 2), picCover.Width - 48
  188. lblPic.Move picProgress.Left, picProgress.Top + picProgress.Height, picProgress.Width
  189. DRAW_IMAGE
  190. Set_Title
  191. End Sub
  192.  
  193. Public Sub Set_Title()
  194. picTitle.Cls
  195. picTitle.CurrentX = (picTitle.ScaleWidth / 2) - (picTitle.TextWidth(thisIMDBData.mTitle) / 2)
  196. picTitle.CurrentY = (picTitle.ScaleHeight / 2) - (picTitle.TextHeight(thisIMDBData.mTitle) / 2)
  197.  
  198. picTitle.Print thisIMDBData.mTitle
  199.  
  200. End Sub
  201.  
  202. Public Sub LoadIMDBData(sF1 As String, sF2 As String, sF3 As String, sF4 As String, sF5 As String, sF6 As String, sF7 As String, sF8 As String, sF9 As String)
  203. With thisIMDBData
  204.     .Country = sF1
  205.     .CoverURL = sF2
  206.     .Language = sF3
  207.     .mDate = sF4
  208.     .mGenre = sF5
  209.     .mSypnosys = sF6
  210.     .mTitle = sF7
  211.     .Runtime = sF8
  212.     .userRating = sF9
  213.     
  214. End With
  215.  
  216. setTree.ListItems.Clear
  217.  
  218. Dim aa As ListItem
  219. With thisIMDBData
  220.     Set aa = setTree.ListItems.Add(, , "Date :")
  221.         aa.SubItems(1) = .mDate
  222.     Set aa = setTree.ListItems.Add(, , "Genre:")
  223.         aa.SubItems(1) = .mGenre
  224.     Set aa = setTree.ListItems.Add(, , "Runtime:")
  225.         aa.SubItems(1) = .Runtime
  226.     Set aa = setTree.ListItems.Add(, , "Language:")
  227.         aa.SubItems(1) = .Language
  228.     Set aa = setTree.ListItems.Add(, , "Country:")
  229.         aa.SubItems(1) = .Country
  230.     Set aa = setTree.ListItems.Add(, , "User Rating:")
  231.         aa.SubItems(1) = .userRating
  232. lblPlot.Caption = FixPlot(.mSypnosys)
  233. Me.Caption = .mTitle
  234.  
  235. If Trim(.CoverURL) <> "" Then
  236.     Me.Show
  237.     Form_Resize
  238.     DownloadImage .CoverURL, sckPicture
  239.     'DownloadImage "http://www.get-right.com/getright52beta4.exe", sckPicture
  240. End If
  241.  
  242. End With
  243.  
  244. Form_Resize
  245. End Sub
  246.  
  247.  
  248.  
  249. Private Sub sckPicture_DataArrival(ByVal bytesTotal As Long)
  250.  
  251. Dim SS() As String
  252. Dim NEWDATA As String
  253. Dim HSPL() As String
  254. Dim HYSPL() As String
  255.  
  256. sckPicture.GetData NEWDATA
  257.  
  258. SS = Split(NEWDATA, vbCrLf & vbCrLf)
  259. If Not (FP) Then
  260. If UBound(SS) > 0 Then
  261.  
  262.  
  263.     'get image size
  264.     HSPL = Split(SS(0), "content-length: ", , vbTextCompare)
  265.     If UBound(HSPL) > 0 Then
  266.         HYSPL = Split(HSPL(1), vbCrLf, , vbTextCompare)
  267.         If UBound(HYSPL) > 0 Then
  268.             PICSIZE = Val(HYSPL(0))
  269.             picProgress.Max = PICSIZE
  270.             picProgress.Visible = True
  271.             
  272.             
  273.         Else
  274.             GoTo nopicsize:
  275.         End If
  276.     Else
  277.         GoTo nopicsize:
  278.     End If
  279.     
  280.     
  281.     
  282. nopicsize:
  283.  
  284.     NEWDATA = ""
  285.     For i = 1 To UBound(SS)
  286.         If i <> UBound(SS) Then
  287.             NEWDATA = NEWDATA & SS(i) & vbCrLf & vbCrLf
  288.         Else
  289.             NEWDATA = NEWDATA & SS(i)
  290.         End If
  291.     Next
  292.     FP = True
  293. End If
  294. End If
  295. DoEvents
  296. PIC_DATA = PIC_DATA & NEWDATA
  297. If picProgress.Visible Then
  298.     On Error GoTo progerr:
  299.     picProgress.Value = Len(PIC_DATA)
  300.     lblPic.Caption = "Getting Picture: " & Round(Len(PIC_DATA) / 1024, 2) & " of " & Round(PICSIZE / 1024, 2) & " KB"
  301. Else
  302.     
  303.     lblPic.Caption = "Getting Picture: " & Round(Len(PIC_DATA) / 1024, 2) & " KB"
  304.     
  305. End If
  306.  
  307. progerr:
  308.  
  309.  
  310.  
  311.  
  312. End Sub
  313.  
  314. Public Sub GotPicture(Optional sOutFile As String)
  315. 'MsgBox Len(PIC_DATA)
  316. Dim OutFile1 As String
  317. OutFile1 = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & sOutFile
  318.  
  319. 'remove trailing VBCRLF
  320.  
  321. 'PIC_DATA = Left(PIC_DATA, Len(PIC_DATA) - 2)
  322.  
  323.  
  324. Open OutFile1 For Output As #1
  325.     Print #1, PIC_DATA
  326. Close #1
  327.  
  328. picProgress.Visible = False
  329. gotheader = False
  330. lblPic.Visible = False
  331.  
  332. tmpPic.Picture = LoadPicture(OutFile1)
  333. DRAW_IMAGE
  334.  
  335. PICSIZE = 0
  336. End Sub
  337.  
  338. Public Sub StartImage()
  339. PIC_DATA = ""
  340. FP = False
  341. picProgress.Visible = False
  342.  
  343. PICSIZE = 0
  344. DoEvents
  345. lblPic.Visible = True
  346. picProgress.Value = 0
  347. End Sub
  348.  
  349. Public Sub DRAW_IMAGE()
  350.  
  351. Dim ORIGW As Long
  352. Dim ORIGH As Long
  353.  
  354. Dim SCLW As Long
  355. Dim SCLH As Long
  356.  
  357. Dim IMGW As Long
  358. Dim IMGH As Long
  359. Dim XX As Long
  360. Dim YY As Long
  361.  
  362. Dim ASPW As Long
  363. Dim ASPH As Long
  364.  
  365.  
  366. ORIGW = tmpPic.ScaleWidth
  367. ORIGH = tmpPic.ScaleHeight
  368. SCLW = picCover.ScaleWidth
  369. SCLH = picCover.ScaleHeight
  370.  
  371. XX = 0
  372. YY = 0
  373.     
  374. IMGW = SCLW
  375. IMGH = SCLH
  376.  
  377.     
  378. If ORIGW < SCLW And ORIGH < SCLH Then
  379.     'picture is small enough to fit into the
  380.     'picture box!
  381.     If frmMain.mnuVSC.Checked = False Then
  382.         XX = (SCLW / 2) - (ORIGW / 2)
  383.         YY = (SCLH / 2) - (ORIGH / 2)
  384.         IMGW = ORIGW
  385.         IMGH = ORIGH
  386.     Else
  387.         XX = 0
  388.         YY = 0
  389.         IMGW = SCLW
  390.         IMGH = SCLH
  391.     End If
  392.     GoTo DRAWIT:
  393. End If
  394.  
  395. If ORIGW > SCLW And ORIGH > SCLH Then
  396.     'image is too large to fit into the picture
  397.     'box, shrink it with aspect ratio
  398.     XX = 0
  399.     YY = 0
  400.     
  401.     IMGW = SCLW
  402.     IMGH = SCLH
  403.     
  404.     
  405.     GoTo DRAWIT:
  406. End If
  407.  
  408. If ORIGW > SCLW Then
  409.     'only the width is too large to fit
  410.     'resize for aspect ratio
  411. End If
  412.  
  413.  
  414.  
  415. DRAWIT:
  416. picCover.Cls
  417. SetStretchBltMode picCover.hdc, STRETCH_HALFTONE
  418. StretchBlt picCover.hdc, XX, YY, IMGW, IMGH, tmpPic.hdc, 0, 0, ORIGW, ORIGH, vbSrcCopy
  419.  
  420. End Sub
  421.