Posted by: Ivek23
« on: June 19, 2011, 03:14:40 pm »Ibs.it script: url does not work (do not pass the url address)
For each data search is required for each movie whose information you are looking for is again necessary confirm the movie title, whereas for every search URL address is not transfer.
This code
Code: [Select]
//Get URL
EndPos := Pos('" content="index,follow">', HTML);
if EndPos > 0 then begin
curPos := PrevPos('" href="', HTML, EndPos);
EndPos := Pos('">', HTML);
AddFieldValue(mfURL, Copy(HTML, curPos + 8, EndPos - curPos - 8));
end else
AddFieldValue(mfURL, MovieURL);
I replaced with this code
Code: [Select]
//Get URL
EndPos := Pos('"><meta name="robots" content="index,follow">', HTML);
if EndPos > 0 then begin
curPos := PrevPos('" href="', HTML, EndPos);
AddFieldValue(mfURL, Copy(HTML, curPos +8, EndPos - curPos -8));
end else
AddFieldValue(mfURL, MovieURL);
and URL title it is now to write and act, I tested a few movies, there is work properly.