Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить заголовок по URL ссылке / 4 сообщений из 4, страница 1 из 1
31.03.2019, 15:04
    #39794249
Tech N9ne
Tech N9ne
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить заголовок по URL ссылке
Доброе время суток.

Пытаюсь сделать сохранение ссылок.
Народ, подскажите как можно получить заголовок из url. Текст который отображается во вкладках в браузере..



Я пробовал через синапс, гет запросом получать исходный код страницы, и парсить "Title".
Но там неразбериха получается в кодировке... То русские буквы как иероглифы, то вроде нормально. Я так понял нужно определять в какой кодировке сам сайт и соответственно конвертить. Но не знаю как определять.

Может есть простой способ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2019, 15:09
    #39794252
Dimitry Sibiryakov
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить заголовок по URL ссылке
Tech N9neМожет есть простой способ?

Нет.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2019, 17:16
    #39794278
Tech N9ne
Tech N9ne
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить заголовок по URL ссылке
Ладно.
Сделал через twebbrowser.
Решил создавать twebbrowserв рантайме...
Код: pascal
1.
2.
3.
4.
WB1 := TsWebBrowser.Create(Self);
WB1.Silent := True;
WB1.OnDocumentComplete := WB1_DOC_COMP;
WB1.Navigate(URL);



Код: pascal
1.
2.
3.
4.
5.
procedure TForm1.WB1_DOC_COMP(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant);
begin
S := wb1.OleObject.Document.TITLE;
FreeAndNil(WB1)
end;


Но процедура OnDocumentComplete не срабатывает.
Если не создавать в рантайме, а кинуть компонент на форму и сделать тоже самое, то всё работает.
Почему так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.03.2019, 17:19
    #39794281
Arioch
Arioch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить заголовок по URL ссылке
Tech N9neЯ так понял нужно определять в какой кодировке сам сайт и соответственно конвертить. Но не знаю как определять.

по стандарту

смотришь соответсвующий заголовок HTTP Response

если его нет - смотришь соответсвующий тэг http-equiv в HTML/HEAD

если и его нет - знаимаешься статичтикой и эвристикой по типу TCode

-----------

Можешь посмотрет ьисходники THTMLViewer - он правда с HTTP не работает, а только с HTML, но хотя бы частично увидишь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить заголовок по URL ссылке / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 641ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2039644]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 326ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 232ms
total:  641ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]