Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2019-08-08 19:25:03 ЛС | профиль | цитата
Как загрузить из интернета страницу содержащую текст на русском и иврите в программу используя HTTP_Get? Нужно загрузить страницу, программно найти текст на иврите в загруженном из интернета тексте и сохранить его. Проблема в том, что после загрузки страницы получаю текст символами и в Unicode пакете тоже. Если использовать вместо HTTP_Get - HTTPClient, то в Unicode пакете не компилируется программа под любыми компиляторами, если компилировать в Delphi, то получаю ошибку hiHTTPClient.pas(837) Error: Undeclared identifier: 'CodePage1ToCodePage2'
Add(MainForm,2953706,56,196)
{
}
Add(RichEdit,13426251,252,196)
{
Left=20
Top=50
Width=785
Height=435
ScrollBars=2
}
Add(Edit,16271115,203,84)
{
Left=95
Top=15
Width=710
Text="https://www.facebook.com/grisha.fainberg"
}
Add(Button,16737238,112,196)
{
Left=20
Top=15
Caption="GET"
link(onClick,6510574:doEvent1,[])
}
Add(CookieManager,13703496,217,147)
{
Name="cook"
Point(doGetIECookies)
Point(onGetIECookies)
Point(Filename)
link(URL,3936536:Text,[])
}
Add(VisualStrings,3936536,224,119)
{
Lines=#23:https://m.facebook.com/|
}
Add(HTTP_Get,2624368,203,266)
{
UserAgent="Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:68.0) Gecko/20100101 Firefox/68.0"
Point(Headers)
link(onDownload,3977081:doConvert,[])
}
Add(StreamConvertor,3977081,252,273)
{
Mode=6
}
Add(Charset,13301068,252,315)
{
Type=7
Point(doCharset)
}
Add(HTTPClient,3079135,203,203)
{
Point(Headers)
link(URL,16271115:Text,[])
link(onFinish,13426251:doText,[])
link(Headers,13703496:Cookies,[])
}
Add(Hub,6510574,161,196)
{
link(onEvent1,13703496:doGetIECookies,[(196,202)(196,181)])
link(onEvent2,3079135:doLoadString,[])
}

Вот такая схема не компилируется с пакетом Unicode
карма: 4

0
Редактировалось 1 раз(а), последний 2019-08-08 19:33:12