blackman12 Posted January 15, 2012 Share Posted January 15, 2012 (edited) IMDB sitesinin kendi apisi maalesef yok fakat farklı siteler bu büyük eksiklik için seçenekler sunmuş bunlardan biri de http://imdbapi.poromenos.org sitesi, bende bu siteyi kullanarak imdbden film aramamızı sağlayan ufak bir script yazdım. Elimde bir kaç tane daha site var onlarında verilerini kullanarak güzel bir imdb udf si yapıcam vaktim olduğunca [code]#include <string.au3> #include <Array.au3> $arat = InputBox("aranacak kelimeyi girin","film adı içindeki bir kelimeyi girin") if not @error then $film = _IMDBFilmBul($arat) if @error Then MsgBox(0,"Hata: "&@error,$film) Else _ArrayDisplay($film) EndIf endif Func _IMDBFilmBul($aranacakkelime) Local $sonuc[1][2] = [[0,0]] $aramasonucu= BinaryToString(InetRead("http://imdbapi.poromenos.org/js/?name=%"&$aranacakkelime&"%",1)) if not @error Then $basla = StringInStr($aramasonucu,"[") $son = StringInStr($aramasonucu,"]") $filmler = StringMid($aramasonucu,$basla+1,$son-12) $filmler = _StringBetween($filmler,"{","}") ReDim $sonuc[UBound($filmler)+1][2] $sonuc[0][0] = UBound($filmler) $sonuc[0][1] = UBound($filmler) for $i = 0 to UBound($filmler)-1 $filmiayir = StringSplit($filmler[$i],'"') $sonuc[$i+1][0] = $filmiayir[4] $sonuc[$i+1][1] = StringReplace($filmiayir[$filmiayir[0]],": ","") Next _ArraySort($sonuc, 1, 1, 0, 1) Return $sonuc Else SetError(1) Return "Bağlantı Yok" EndIf EndFunc[/code] Edited May 30, 2012 by MostWanted Quote Link to comment Share on other sites More sharing options...
bedir17 Posted May 30, 2012 Share Posted May 30, 2012 [font="Georgia"]Merhabalar Burada imdb film arama yerine başka bir siteden örneğin bir program nasıl arata biliriz ?[/font] Quote Link to comment Share on other sites More sharing options...
blackman12 Posted May 31, 2012 Author Share Posted May 31, 2012 Sitesine göre değişir, buna bir genelleme yapamayız. Quote Link to comment Share on other sites More sharing options...
bedir17 Posted May 31, 2012 Share Posted May 31, 2012 Anladım.Teşekkürler Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.