ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить заголовок по URL ссылке
4 сообщений из 4, страница 1 из 1
Получить заголовок по URL ссылке
    #39794249
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Доброе время суток.

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



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

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

Нет.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
31.03.2019, 15:09
| Ответить | Цитировать | Написать  
Получить заголовок по URL ссылке
    #39794278
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tech N9ne
Участник
Ладно.
Сделал через 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:16
| Ответить | Цитировать | Написать  
Получить заголовок по URL ссылке
    #39794281
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Tech N9neЯ так понял нужно определять в какой кодировке сам сайт и соответственно конвертить. Но не знаю как определять.

по стандарту

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

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

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

-----------

Можешь посмотрет ьисходники THTMLViewer - он правда с HTTP не работает, а только с HTML, но хотя бы частично увидишь
...
Рейтинг: 0 / 0
31.03.2019, 17:19
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Получить заголовок по URL ссылке
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39794281&tid=2039644]:
 0ms
get settings:
 12ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 244ms
total:  547ms
созд. / загр.: 547ms
x
x
Закрыть


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