CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

michael-schou Novice

21. februar 2017 - 10:07 Der er 11 kommentarer og
1 løsning

DELPHI - Få fat på IMDB Rating på film fra IMDB.com - Nogen der ved Hvordan?

Hej Eksperter :-)
Er der nogen af jer der ligger inde med viden om hvordan man fanger IMDB rating på film fra IMDB.com?

F.eks.:

Filmen Transformers 1
Link : http://www.imdb.com/title/tt0418279/
Har en IMDB Rating : 7.1

Nogen der ligger inde med et eksempel?

Mange Tak på Forhånd.

Synes godt om

acore Ekspert

21. februar 2017 - 11:15 #1

Vil du gøre det i delphi? Uanset sprog er det lettest at bruge en eller andet html parser.

I PHP ville jeg bruge simple_html_dom, og koden kunne se sådan ud:

include("simple_html_dom.php");

$html = file_get_html("http://www.imdb.com/title/tt0418279/");
$rating = $html->find("div[class=ratingValue]", 0)->plaintext;
echo($rating); // Should print "7,1/10"

Synes godt om

michael-schou Novice

21. februar 2017 - 12:15 #2

Dit eksempel viker super fint :-) - TAK.

Nu skal der bare lige tweaks på det så jeg kan bruge det til mit program.

Synes godt om

acore Ekspert

21. februar 2017 - 12:52 #3

Det var godt. Hvilket programmeringssprog vil du bruge?

Synes godt om

michael-schou Novice

21. februar 2017 - 13:04 #4

Jeg har i forvejen en parser til Delphi som hiver Film Titlen ud fra IMDB Film link så den prøver jeg lige om jeg kan få tilpasset til dette eksempel.

Synes godt om

arne_v Ekspert

21. februar 2017 - 19:44 #5

I Delphi bruger du bare Indy til at hente link med.

Synes godt om

michael-schou Novice

26. februar 2017 - 21:12 #6

Har ikke helt haftr tid til at se på det her de sidste par dage :-) .. Men skal nok vende tilbage når jeg har fundet ud af om jeg kan få det tilpasset.

Til arne_v : Har du et eksempel? .. Er lidt ny i det når det angå at grappe info fra nettet via. Delphi :-) - Tak.

Synes godt om

arne_v Ekspert

26. februar 2017 - 21:31 #7

Et eksempel fra mit lager:

program currency;

uses
Classes,
IdHTTP,
DOM,
XMLRead,
XPath;

var
con : TIdHTTP;
xmlstr : string;
doc : TXMLDocument;
xmlstm : TStringStream;
allcurr : TNodeSet;
i : integer;
onecurr : TDOMElement;

begin
con := TIdHTTP.Create;
xmlstr := con.Get('http://www.nationalbanken.dk/_vti_bin/DN/DataService.svc/CurrencyRatesHistoryXML?lang=da');
con.Free;
doc := TXMLDocument.Create;
xmlstm := TStringStream.Create(xmlstr);
ReadXMLFile(doc, xmlstm);
xmlstm.Free;
allcurr := EvaluateXPathExpression('//Cube/Cube/Cube', doc.DocumentElement).AsNodeSet;
for i := 0 to allcurr.Count - 1 do begin
onecurr := TDOMElement(allcurr[i]);
writeln(onecurr.AttribStrings['currency'] + ' ' + onecurr.AttribStrings['rate'] + ' ' + onecurr.AttribStrings['name']);
end;
allcurr.Free;
doc.Free;
readln;
end.

Synes godt om

michael-schou Novice

01. marts 2017 - 13:41 #8

Jeg har denne PHP kode :

<KODE START>

<?php
include("simple_html_dom.php");

$html = file_get_html("http://www.imdb.com/title/tt0418279/");
$rating = $html->find("div[class=ratingValue]", 0)->plaintext;

echo($rating); // Should print "7,1/10"
?>

<KODE SLUT>

Tænker lidt at den kan flettes in i en Delphi kode eller at man kan grappe Clear teksten fra PHP filen og sætte det ind på en label i en Delphi Form.

Synes godt om

michael-schou Novice

02. marts 2017 - 08:16 #9

Glem min sidste kommentar det er jo den kode jeg har fået fra acore :-)

Det jeg ville spørge om er om der er en der kan hjælpe med at forklare hvordan man grapper den ClearTxT der kommer fra PHP siden :-) .....

For jeg vil egentlig gerne lære og forstå konceptet.

Synes godt om

acore Ekspert

02. marts 2017 - 10:29 #10

Er det ikke bare de 3 første linier (efter Begin) i Arne's kode (#7) med et kald til en fil med php-koden i #1, så har du data i din variabel?

Synes godt om

michael-schou Novice

22. marts 2017 - 12:28 #11

Det virker ikke som det skal :-)
Nu har jeg forsøgt mig med følgende :

var
Form1: TForm1;
con : TIdHTTP;
xmlstr : string;
xmlstm : TStringStream;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
con := TIdHTTP.Create;
xmlstr := con.Get('http://MIN-HJEMMESIDE.DK/IMDB.php');
con.Free;
xmlstm := TStringStream.Create(xmlstr);

Label1.Caption := xmlstr;
end;

For følgende fejl :
Socket Error #10022
Invalid Argument.

Synes godt om

michael-schou Novice

03. september 2017 - 16:36 #12

Jeg fik det ikke rigtigt til at virke som det skulle, så hare lavet en smule om på mit program så man nu bare manuelt kan sætte IMDB Score'en ind.

Men tak for forsøget.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Kodning af element i custom css Af Jacob Hedelund i Andet programmering	3	14/10/202410:35	14/10/202419:46
Delphi 11 - converter webp til jpg fil Af juzas i Andet programmering	5	12/10/202413:28	14/10/202403:54
Trim tekst i batch script Af Dan Elgaard i Andet programmering	5	05/09/202411:08	10/09/202415:29
ASP Classic fil fra subfolder Af bsn i Andet programmering	3	07/05/202416:14	08/05/202401:00
Session Variable Af bsn i Andet programmering	3	01/05/202409:44	02/05/202409:29

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS