Personal Video Database

English => Development => Scripts and Templates => Topic started by: oenghus on November 14, 2013, 04:25:33 am

Title: IAFD People
Post by: oenghus on November 14, 2013, 04:25:33 am

There is a problem loading the image for some people and I think it's where the image URL contains spaces. The URL for the person is:

http://www.iafd.com/person.rme/perfid=alishaadams/gender=f/alisha-adams.htm

The current procedure in the script I use is:

---

procedure ParsePhoto(PhotoURL : String);
begin
   LogMessage('PARSING PHOTO...' + PhotoURL);
   PhotoURL:=HTMLToText (PhotoURL);
   AddImageURL(4,PhotoURL);
   
end;

---

PVD log:

---

PARSING PHOTO...http://www.iafd.com/graphics/headshots/alishaadams_f_alisha adams aalluredotcom hs.jpg
Url di download: Foto
GET: http://www.iafd.com/graphics/headshots/alishaadams_f_alisha adams aalluredotcom hs.jpg
HTTP/1.1 400 Bad Request

---

I tried replacing spaces in PhotoURL with %20 before AddImageURL but it didn't make any difference.

Does anyone have any ideas how to fix this ?

Thx
Oenghus

Title: Re: IAFD People
Post by: afrocuban on November 14, 2013, 08:19:40 pm

I have no knowledge about scripting, but just a lucky guess. Is it possbile, not to put "%20" instead of spaces in url, but to put whole url under quotes (double, or single, I'm not sure)?

Title: Re: IAFD People
Post by: nostra on January 22, 2014, 02:51:54 am

No, URLs are not allowed to have spaces in them.

Title: Re: IAFD People
Post by: Ivek23 on January 08, 2015, 01:26:46 pm

Quote from: nostra on January 22, 2014, 02:51:54 am

No, URLs are not allowed to have spaces in them.

Simple solution for this:

Code: [Select]

//Foto
curPos :=Pos('src="/graphics/headshots',HTML);
if curPos >0 then begin
EndPos:= PosFrom('>',HTML,curPos);
LogMessage ('URL Foto: '+PhotoURL);
PhotoURL := BASE_URL + Copy(HTML,curPos + 6, EndPos - curPos - 7);
PhotoURL := StringReplace(PhotoURL, ' ', '%20', true, false, true);
LogMessage ('URL Foto: '+PhotoURL);
ParsePhoto(PhotoURL);
end
else
begin
PhotoURL := '';
LogMessage ('URL Foto: NESSUNO');
end;

Title: Re: IAFD People
Post by: pra15 on April 23, 2015, 01:12:09 am

Hello everybody,

It seems iafd.com has changed URL photo of headshot.
Correction :

Code: [Select]

//Foto
curPos :=Pos('id="headshot">',HTML);
if curPos >0 then begin
PhotoURL := TextBetween(HTML,'src="','"></div>',True,curpos);
LogMessage ('URL Foto: '+PhotoURL);
ParsePhoto(PhotoURL);
end
else
begin
PhotoURL := '';
LogMessage ('URL Foto: NESSUNO');
end;
I've tested only some page it seems work good.

Title: Re: IAFD People
Post by: Frank MT on May 03, 2015, 12:37:28 pm

Thx pra15,

works fine again.  :)

Title: Re: IAFD People
Post by: pra15 on May 03, 2015, 05:15:45 pm

you're welcome

Title: Re: IAFD People
Post by: AimHere on June 08, 2015, 02:43:48 pm

Can someone post a link/attachment for the complete, corrected, up-to-date version of this script, please? Thanks.

Title: Re: IAFD People
Post by: Ivek23 on June 09, 2015, 05:24:46 am

Quote from: AimHere on June 08, 2015, 02:43:48 pm

Can someone post a link/attachment for the complete, corrected, up-to-date version of this script, please? Thanks.

The revised script is attached here:

http://www.videodb.info/forum_en/index.php/topic,3951.msg19154.html#msg19154