Поправка композиторов:
//Composers
curPos := PosFrom('<b>Композитор:</b>', HTML, EndPos);
if curPos > 0 then begin
EndPos := curPos;
curPos := PosFrom('../people.php?id=', HTML, curPos);
while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
curPos := curPos + Length('../people.php?id=');
EndPos := PosFrom('"', HTML, curPos);
URL := BASE_URL + '/people.php?id=' + Copy(HTML, curPos, EndPos - curPos);
curPos := PosFrom('>', HTML, curPos) + 1;
EndPos := PosFrom('</a>', HTML, curPos);
TransName := Copy(HTML, curPos, EndPos - curPos);
curPos := PosFrom(' / ', HTML, EndPos);
if (curPos > 0) AND (curPos - EndPos < 10) then begin
curPos := PosFrom('>', HTML, curPos) + 1;
EndPos := PosFrom('</a>', HTML, curPos);
Name := Trim(RemoveTags(Copy(HTML, curPos, EndPos - curPos), False));
end else
curPos := EndPos;
AddMoviePerson(Name, TransName, '', URL, ctComposers);
curPos := PosFrom('../people.php?id=', HTML, curPos);
end;
end;
Вопрос: такая проблема только с композиторами? (тебе быстрее поди будет это выяснить)