Код: Выделить всё
This product includes software developed by the OpenSSL Project for use in the OpenSSL Toolkit.
ynkas писал(а):Не помогло, тоже пришлось откатиться
Код: Выделить всё
page := MovieBase.GetGetURL('https://www.kinopoisk.ru/film/' + MovieCode);
Код: Выделить всё
page := MovieBase.GetGetURL('http://www.kinopoisk.ru/level/1/film/' + MovieCode);
ynkas писал(а):to bolide
ps. Исправленная версия на 1й странице этой темы
Код: Выделить всё
page := MovieBase.GetGetURL('https://www.kinopoisk.ru/film/' + MovieCode);
//При загрузке инфы о фильме получаем 'СЗоР'
i := pos('Система защиты от роботов (СЗоР)', page); // Ищем 'СЗоР'
if (i > 0) or (page = '') then // Если находим 'СЗоР' загружаем инфу о фильме альтернативным методом
begin
LoadForm.Label1.Caption := 'Идет загрузка фильма...';
LoadForm.Show;
Application.ProcessMessages;
page := Form.IdHTTP1.Get('https://www.kinopoisk.ru/film/' + MovieCode); //Тут первая ошибка
LoadForm.Close;
i := pos('Система защиты от роботов (СЗоР)', page);
if (i > 0) or (page = '') then
begin
ShowMessage('Система защиты от роботов (СЗоР)');
Form.Free;
MovieBase.Free;
Exit;
end;
end;
Сейчас этот раздел просматривают: 7 гостей