Cauta poster pentru film

[Smash]

Cod:

;===============================================================================
;
; Nume functie:        poster_film()
; Descriere:           Returneaza un array cu calea catre imagini
; Parametrii:          $cod_imdb - Codul filmului de pe IMDb
; Valorile returnate:  Un array cu subtitrarile de forma
;                         $array[$i][1] - cale poster mic
;                         $array[$i][2] - cale poster mare
;                      In cazul in care nu gaseste poster seteaza
;                         @error = 1 si returneaza un array gol
; Autor:               Neagu Ionut (aka Smash)
;
;===============================================================================
Func poster_film($cod_imdb)
Local $cale_fisier_large = @ScriptDir & "\large_" & $cod_imdb & ".jpg"
Local $cale_fisier_small = @ScriptDir & "\small_" & $cod_imdb & ".jpg"
Local $raspuns[3]
InetGet("http://posters.motechnet.com/covers/" & $cod_imdb & "_smallCover.jpg", $cale_fisier_small)
If StringInStr(FileRead($cale_fisier_small), "") = 0 Then
InetGet("http://posters.motechnet.com/covers/" & $cod_imdb & "_largeCover.jpg", $cale_fisier_large)
$raspuns[1] = $cale_fisier_small
$raspuns[2] = $cale_fisier_large
SetError(0)
Return $raspuns
Else
SetError(1)
Return $raspuns
EndIf
EndFunc   ;==>poster_film

[SkullAds]