',Zag)+6);","type":"blockquote","key":"2a10f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(Zag,(pos('

{"draftJsState":{"blocks":[{"data":{"image":{"id":"60bfaac4d7c53f09a8ada50f"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"10ovo"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"6npht"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В этой статье напишем парсер новостей с сайта. Код конечно можно было оптимизировать например процедурами или функциями. Все писалось на скорую руку.","type":"unstyled","key":"1l3es"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Если будут проблемы с SSL попробуйте установить ","type":"blockquote","key":"ahhs4"},{"data":{},"depth":0,"entityRanges":[{"key":0,"length":39,"offset":0}],"inlineStyleRanges":[],"text":"https://disk.yandex.ru/d/pY3vi7PhtmdJRg ","type":"blockquote","key":"ehjok"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":10,"style":"BOLD"},{"length":16,"offset":25,"style":"BOLD"}],"text":"Запускаем Delphi создаем VCL Appplication.","type":"unstyled","key":"6djbq"},{"data":{"image":{"id":"60bf5ce58a65337e9d673165"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"231o4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Новости будем брать тут https://oblast45.ru/news","type":"blockquote","key":"6j10g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":27,"offset":16,"style":"BOLD"}],"text":"Кидаем на форму memo, image, idhttp, button.","type":"unstyled","key":"fess5"},{"data":{"image":{"id":"60bf60bd942ceb0598be6571"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"d8j89"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":168,"style":"BOLD"},{"length":4,"offset":183,"style":"BOLD"},{"length":8,"offset":192,"style":"BOLD"}],"text":"Первым делом нам нужно получить ссылку на самую верхнюю новость на сайте. Для этого нам нужно получить HTML страницы со списком новостей. Создаем глобальную переменную HTML в разделе Var типа String. ","type":"unstyled","key":"7t6bf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"HTML:string;","type":"blockquote","key":"akom"},{"data":{"image":{"id":"60bf62d12b92e05b9b3775da"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"eup75"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":19,"style":"BOLD"},{"length":8,"offset":54,"style":"BOLD"}],"text":"Двойным щелчком по Button1 создаем обработчик событий OnClick.","type":"unstyled","key":"8482m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Помещаем HTML сайта в переменную HTML","type":"unstyled","key":"c1eo5"},{"data":{"image":{"id":"60bf659b8a65337e9d873637"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"29i2m"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"//получаем HTML страницы","type":"blockquote","key":"cu6g7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"html:=idhttp1.Get('https://oblast45.ru/news');","type":"blockquote","key":"eobtn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// выводим в мемо","type":"blockquote","key":"a2p5v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=html;","type":"blockquote","key":"ck8l7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"5hfom"},{"data":{"image":{"id":"60bf6d0600b57b75b67d0d19"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"1p86q"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Запускаем нажимаем на Button1 смотрим, что получилось.","type":"unstyled","key":"bbvn0"},{"data":{"image":{"id":"60bf6dfe998fbd525ed830d0"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"5pls0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Заходим на сайт жмем на самую первую новость ПКМ и в меню выбираем просмотреть код.","type":"unstyled","key":"brios"},{"data":{"image":{"id":"60bf7194cb26a468ff98da92"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"di2i6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В появившемся окне видим ссылку на новость","type":"unstyled","key":"4qtl7"},{"data":{"image":{"id":"60bf720d00b57b75b68f7df1"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"fdo7f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В моем случае это ","type":"blockquote","key":"bnj3f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":8,"offset":143,"style":"BOLD"},{"length":7,"offset":156,"style":"BOLD"}],"text":"Теперь нам нужно (спарсить) вытащить из кучи HTML кода в мемо ссылку на новость. Возвращаемся в делфи и создаем еще одну глобальную переменную URLNews типа String.","type":"unstyled","key":"8566r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"HTML,URLNews:string;","type":"blockquote","key":"aot92"},{"data":{"image":{"id":"60bf741cbc5873677571fccf"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"2ddok"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В button дописываем","type":"unstyled","key":"f7e58"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// помещаем HTML в переменную","type":"blockquote","key":"1cni6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"URLNews:=html;","type":"blockquote","key":"790ji"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// Убираем лишнее","type":"blockquote","key":"6n78s"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(URLNews,1,pos('/publication/',URLNews));","type":"blockquote","key":"dnof5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(URLNews,(pos('>',URLNews)-2),URLNews.Length);","type":"blockquote","key":"89k54"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// подставляем полученный адрес новости в переменную","type":"blockquote","key":"ccdvd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"URLNews:='https://oblast45.ru/'+URLNews;","type":"blockquote","key":"9rh4l"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// выводим в memo для проверки","type":"blockquote","key":"9qsdd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=URLNews;","type":"blockquote","key":"96cqr"},{"data":{"image":{"id":"60bf7911eeb0cd2673243a4b"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"f2a4l"},{"data":{"embedData":{"type":"yandex-zen-video","uuid":"vRN3T-3iAgHQ","previewImageData":{"id":"608b04e5be0496753e0b86d0","namespace":"zen_doc","groupId":1881575,"imageName":"pub_608b04e5be0496753e0b86cf_608b04e5be0496753e0b86d0","meta":{"mainColor":"#F8F8F8","origFormat":"JPEG"}}}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:embed","key":"ehtno"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"7vq8v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"93ivs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Запускаем жмем на кнопку смотрим что получилось","type":"unstyled","key":"8hpsk"},{"data":{"image":{"id":"60bf84e0faeaaf49e4de73bf"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"cqug3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Ссылку на последнюю новость мы получили теперь нужно получить HTML страницы с новостью и распарсить его.","type":"unstyled","key":"fmf5c"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Пока писал статью добавились новые новости","type":"blockquote","key":"78gcn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Дописываем в кнопку","type":"unstyled","key":"4h1j4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// получаем HTML новости","type":"blockquote","key":"46lo8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"html:=idhttp1.Get(URLNews);","type":"blockquote","key":"8jgd4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// выводим в мемо","type":"blockquote","key":"6bs1u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=html;","type":"blockquote","key":"998ns"},{"data":{"image":{"id":"60bf88014adb2513a32779ab"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"ehg39"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"b27lv"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Запускаем смотрим что получилось","type":"unstyled","key":"n2o4"},{"data":{"image":{"id":"60bf883d00b57b75b6dd6db8"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"3ao1e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"На скриншоте видно, что в теге title написан заголовок новости.","type":"unstyled","key":"97nmi"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":11,"offset":35,"style":"BOLD"}],"text":"Для него так же создаем переменную Zag:string;","type":"unstyled","key":"8npvk"},{"data":{"image":{"id":"60bf890eeeb0cd26735bd9c4"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"7ldbn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":5,"offset":9,"style":"BOLD"},{"length":4,"offset":27,"style":"BOLD"},{"length":5,"offset":44,"style":"BOLD"}],"text":"Помещаем HTML в переменную Zag и парсим тег title","type":"unstyled","key":"clhs3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Дописываем в кнопку","type":"unstyled","key":"f04r6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// заполняем переменную для парсинга","type":"blockquote","key":"8vqqr"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Zag:=html;","type":"blockquote","key":"8c582"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// удаляем лишнее","type":"blockquote","key":"28bf8"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(Zag,1,pos('',Zag)+6);","type":"blockquote","key":"2a10f"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(Zag,(pos('',Zag)),Zag.Length);","type":"blockquote","key":"fr8jh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// выводим в мемо","type":"blockquote","key":"96sko"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=Zag;","type":"blockquote","key":"cmsmp"},{"data":{"image":{"id":"60bf8bd2d7c53f09a8440500"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"3ue41"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"вот, что у нас получилось.","type":"unstyled","key":"6hd3g"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":6,"offset":68,"style":"BOLD"}],"text":"Теперь нужно получить ссылку на картинку. Создаем так же переменную imgUrl.","type":"unstyled","key":"48ln8"},{"data":{"image":{"id":"60bf8cbf5bad2d210ce7d7e1"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"6f9b9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Помещаем в нее HTML и парсим. Все как и с заголовком только с небольшими изменениями.","type":"unstyled","key":"bop5e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"На странице с новостью жмем на правую кнопку мыши по картинке из новости и в появившемся меню посмотреть код.","type":"unstyled","key":"3ugq4"},{"data":{"image":{"id":"60bf8e8eda90ce7052328456"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"e8lk7"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В моем случае картинка лежит тут /uploads/publications/images/","type":"blockquote","key":"bs055"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Дописываем в кнопку","type":"unstyled","key":"fmtil"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// заполняем переменную для парсинга","type":"blockquote","key":"67qmb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"imgUrl:=html;","type":"blockquote","key":"3jred"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// удаляем лишнее","type":"blockquote","key":"9ac4d"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(imgUrl,1,pos('/uploads/publications/images/',imgUrl));","type":"blockquote","key":"6hsrb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(imgUrl,(pos('\"',imgUrl)),imgUrl.Length);","type":"blockquote","key":"1kakb"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"imgUrl:='https://oblast45.ru/'+imgUrl;","type":"blockquote","key":"9s0hd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// выводим в мемо","type":"blockquote","key":"vnef"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=imgUrl;","type":"blockquote","key":"dqt24"},{"data":{"image":{"id":"60bf9473e9a4e92dd2da9e43"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"26t36"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[{"length":7,"offset":77,"style":"BOLD"}],"text":"Теперь нам нужно получить текст новости с сайта. Создаем еще одну переменную Content","type":"unstyled","key":"dok9g"},{"data":{"image":{"id":"60bf95f8e9a4e92dd2df9983"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"e9dvu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Делаем все тоже самое только сразу удалим часть расшареного кода.","type":"unstyled","key":"4ds7t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// заполняем переменную для парсинга","type":"blockquote","key":"fssc3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Content:=html;","type":"blockquote","key":"8rub1"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// удаляем лишнее","type":"blockquote","key":"65qu4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(Content,1,pos('/uploads/publications/images/',Content));","type":"blockquote","key":"9qfvu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(Content,1,pos('publication__desc',Content)+18);","type":"blockquote","key":"e7kki"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"delete(Content,(pos('',Content)),Content.Length);","type":"blockquote","key":"27k8u"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// выводим в мемо","type":"blockquote","key":"71hdn"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=Content;","type":"blockquote","key":"d49nj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Запускаем смотрим","type":"unstyled","key":"ae8q1"},{"data":{"image":{"id":"60bf97dddf00c7571da7f782"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"bqss"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Обратите внимание я специально оставил теги может быть такая ситуация , что в новости будут присутствовать теги в середине контента. А так же могут быть спецсимволы например","type":"unstyled","key":"2lqr5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" «Область 45»","type":"blockquote","key":"dubmq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В данном случае это кавычки. Вот как выглядит новость на сайте","type":"unstyled","key":"3brqt"},{"data":{"image":{"id":"60bf98d1731a0e2792d88b2b"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"v0mu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Теперь о том как это обойти можно найти в интернете.","type":"unstyled","key":"5ag7t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"например тут https://www.cyberforum.ru/delphi-beginners/thread1163412.html","type":"blockquote","key":"58gcu"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"6u3ub"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Для удаления тегов можно воспользоваться таким методом создаем 3 переменные","type":"unstyled","key":"6paf0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"tmp: string; p1,p2: Cardinal;","type":"blockquote","key":"1khqc"},{"data":{"image":{"id":"60bf9d17d7c53f09a88064b6"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"9ts3t"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"v1cd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В кнопку дописываем","type":"unstyled","key":"ba856"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"// очистить текст от тегов ","type":"blockquote","key":"2lk8r"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"tmp:= Memo1.Text; ","type":"blockquote","key":"1fopq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"while (pos('<',tmp) <> 0) or (pos('>',tmp) <> 0) do ","type":"blockquote","key":"99upe"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" begin ","type":"blockquote","key":"b1mj9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"p1:= pos('<',tmp); ","type":"blockquote","key":"65lq3"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"p2:= pos('>',tmp); ","type":"blockquote","key":"k6sj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"if p1 = 0 then Delete(tmp,p2,1) else ","type":"blockquote","key":"b2kdq"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" if p2 = 0 then Delete(tmp,p1,1) else ","type":"blockquote","key":"7b8co"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"if p2 > p1 then Delete(tmp,p1,p2-p1+1) ","type":"blockquote","key":"53idg"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"else Delete(tmp,p2,1); end; ","type":"blockquote","key":"3r47"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Memo1.Text:= tmp;","type":"blockquote","key":"5082v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"6883b"},{"data":{"image":{"id":"60bf9d273d5d2a17501752fc"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"2fmel"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Ну а заменить спец символы на кавычки можно дописав в кнопку:","type":"unstyled","key":"9vbc6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" tmp := StringReplace(tmp, '«', '<<',[rfReplaceAll, rfIgnoreCase]);","type":"blockquote","key":"dudh0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" tmp := StringReplace(tmp, '»', '>>',[rfReplaceAll, rfIgnoreCase]);","type":"blockquote","key":"aoq55"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Memo1.Text:= tmp;","type":"blockquote","key":"e0i40"},{"data":{"image":{"id":"60bf9f6888a596444308746c"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"2v4aj"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"после запуска получим","type":"unstyled","key":"3kvmb"},{"data":{"image":{"id":"60bf9f9776438e156cf18bbb"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"2a6k2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Теперь качаем картинку URL которой мы получили.","type":"unstyled","key":"ence6"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Создаем 2 переменные","type":"unstyled","key":"e1cfk"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Stream: TMemoryStream; jpeg: TJPEGImage;","type":"blockquote","key":"7ih9v"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"В Uses дописываем jpeg","type":"blockquote","key":"77ev4"},{"data":{"image":{"id":"60bfa196731a0e2792f3fdbc"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"d45ms"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"в кнопку дописываем","type":"unstyled","key":"62cos"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" // качаем картинку","type":"blockquote","key":"1gu7b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Stream:=TMemoryStream.Create;","type":"blockquote","key":"danop"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" jpeg:=TJPEGImage.Create;","type":"blockquote","key":"5uke0"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" try","type":"blockquote","key":"642t9"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" idhttp1.Get(imgUrl,Stream);","type":"blockquote","key":"72d9c"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Stream.Position:=0;","type":"blockquote","key":"eobll"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" jpeg.LoadFromStream(Stream);","type":"blockquote","key":"29ren"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" if FileExists(ExtractFilePath(Application.ExeName)+'img.jpeg') then","type":"blockquote","key":"ahjvs"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" begin","type":"blockquote","key":"di3ea"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" DeleteFile(ExtractFilePath(Application.ExeName)+'img.jpeg');","type":"blockquote","key":"acla5"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" jpeg.SaveToFile('img.jpeg');","type":"blockquote","key":"6kb6k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" //showmessage('Yes!')","type":"blockquote","key":"fbpra"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" end","type":"blockquote","key":"6v845"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" else","type":"blockquote","key":"36sth"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" begin","type":"blockquote","key":"17tru"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" //showmessage('No!');","type":"blockquote","key":"84q95"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" jpeg.SaveToFile('img.jpeg')","type":"blockquote","key":"9peb4"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" end;","type":"blockquote","key":"b883b"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" finally","type":"blockquote","key":"fkbkf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" jpeg.Free;","type":"blockquote","key":"9mkgh"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Stream.Free;","type":"blockquote","key":"at6cf"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" idhttp1.Free;","type":"blockquote","key":"6doho"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" end;","type":"blockquote","key":"du42e"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"blockquote","key":"bdij"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" image1.Stretch:=true;","type":"blockquote","key":"6h0av"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":" Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'img.jpeg');","type":"blockquote","key":"5bt30"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"9ge0b"},{"data":{"image":{"id":"60bfa74825327203cb7ea033"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"cmgfd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"И последний штрих допишем в кнопку","type":"unstyled","key":"ba35k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"memo1.Text:=Zag+#13#10+tmp+#13#10+'Взято в сайта '+URLNews;","type":"blockquote","key":"m3sp"},{"data":{"image":{"id":"60bfa914cc10d27a0d40f98a"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"1mg70"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Запускаем жмем на кнопку и вуаля!","type":"unstyled","key":"46sjf"},{"data":{"image":{"id":"60bfa92df1a1045de7f78040"}},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"atomic:image","key":"fnov2"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"de6de"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"Исходник тут","type":"blockquote","key":"efb61"},{"data":{},"depth":0,"entityRanges":[{"key":1,"length":39,"offset":0}],"inlineStyleRanges":[],"text":"https://disk.yandex.ru/d/VKCh8sqWn108fg","type":"blockquote","key":"410ok"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"5tp9k"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"unstyled","key":"bq7kd"},{"data":{},"depth":0,"entityRanges":[],"inlineStyleRanges":[],"text":"","type":"marker","key":"0P37AyZhahJvfoFYNhtc"}],"entityMap":{"0":{"data":{"url":"https://disk.yandex.ru/d/pY3vi7PhtmdJRg"},"mutability":"MUTABLE","type":"LINK"},"1":{"data":{"url":"https://disk.yandex.ru/d/VKCh8sqWn108fg"},"mutability":"MUTABLE","type":"LINK"}}},"mentions":[]}