Аналіз та обробка пропозицій з торгівельних майданчиків

Размещено на http://www.allbest.ru/

ЗМІСТ

ціна товар пошук автоматизація

• Вступ
• 2 Постановка задачі
• 2.1 Характеристика предметної області
• 2.2 Вимоги до програми
• 2.3 Структура вхідних даних
• 2.4 Структура вихідних даних
• 3 Комп'ютерна система
• 3.1 Технічні характеристики комп'ютера та зовнішніх пристроїв
• 3.2 Вибір програмних засобів та операційної системи
• 4 Об'єктно-орієнтоване проектування
• 4.1 Інтерфейс програми
• 4.2 Алгоритм рішення задачі
• 5 Програмування та тестування
• 5.1 Розробка програми
• 5.2 Етапи відладки
• 5.3 Типи помилок
• Висновки
• Перелік джерел посилання
• Додаток А Схема алгоритму програми
• Додаток Б Лістинг програми
• Додаток В Роздрук результатів роботи

ВСТУП

Мета курсового проекту - автоматизувати пошук цін на товари за вказаною назвою в декількох інтернет-магазинах одночасно.

2 ПОСТАНОВКА ЗАДАЧІ

• 2.1 Характеристика предметної області
• Програма призначена для прискорення пошуку та купівлі товарів у інтрнеті а також порівняння цін у різних торгівельних майданчиків.
• Коли користувач буде використовувати додаток, що розроблюється, він буде економити свій час та гроші. Час, адже, користуючись можливостями Delphi, збирати інформацію з сайтів, а саме ціни на товар з різних інтернет-магазинів, набагато швидше ніж заходити на кожен сайт окремо, писати назву потрібніх товарів та ознайомлюватись з усіма пропозиціями. Гроші - бо по-перше, як результат виконання програми виводяться ціни вказаних користувачем товарів на різних сайтах, які можна відсортувати та вибрати найдешевший варіант і по-друге торгівельні майданчики, що використовуються в програмі абсолютно безпечні та купуючи товар у них, клієнта не обмануть.
• Програмний додаток повинен мати зручний інтерфейс. Він повинен містити:
• - головне меню;
• - графічне зображення шуканого товару;
• - логотипи торгівельних площадок.
• Для зручного користування необхідно розробити пункти меню «Історія пошуку», «Виділені», «Сортувати», «Переглянути» та «Новий запит».
• 2.2 Вимоги до програми
• Розроблений додаток повинен виводити на екран ціни на товари, з яких користувач повинен вибирати на якому саме сайті краще придбати товари, або просто використати кнопку головного меню Сортувати і програма сама покаже вам де краще замовити товар
• Основні вимоги до програми:
• - зробити зручний інтерфейс користувача;
• - передбачити всі можливі помилки;
• - повинні виводитись на екран ціни на товари з різних площадок;
• - повинна записуватись, з можливістю перегляду, історія пошуків;
• - повинні записуватись, з можливістю перегляду, назви виділених товарів;
• - повинне виводитись на екран зображення шуканих товарів;
• - повинні бути 2 варіанти виведених цін на товари (у доларах та у гривнях) ;
• - повинен виводитись курс валют долара до гривні.
• 2.3 Структура вхідних даних
• Вхідні дані - це дані, які необхідно ввести в програму і які необхідні для реалізації вимог, які висунуті до програми. До них належить введенні користувачем з клавіатури символи.
• Дані що вводяться: запит; назва шуканих товарів.
• Таблиця 2.1 - Структура вхідних даних

№	Ідентифікатор	Тип	Діапазон значень	Пояснення
1	Edit1.Text	string	100	Назва шуканих товарів, яку вводе користувач з клавіатури.

• 2.4 Структура вихідних даних
• Вихідні дані - це дані, які виводяться на екран або до друку і є результатом роботи програми. До них належать:
• - ціни напротив логотипів інтернет-магазинів;
• - зображення шуканих товарів;
• - історії пошуку;
• - вміст корзини;
• - курс валют долара до гривні;
• Таблиця 2.2 - Структура вихідних даних

№	Ідентифікатор	Тип	Діапазон значень	Пояснення
1	Memo11.Text	string	32000	Курс валют долар до грівні;
2	Memo12.Text	string	32000	Вміст файлу history,.txt(історія пошуку), або cart.txt(Виділене)
3	Memo10.Text	string	32000	Ціна товару на сайті Ebay.com
4	Memo1.Text	string	32000	Ціна товару на сайті Prom.ua
5	Memo4.Text	string	32000	Ціна товару на сайті OLX.ua
6	Memo5.Text	string	32000	Ціна товару на сайті DreamShoesUkraine.ua
7	Memo8.Text	string	32000	Ціна товару на сайті Brooklyn.com
8	Memo9.Text	string	32000	Ціна товару на сайті Street Brand.ua
9	Memo6.Text	string	32000	Ціна товару на сайті Krossovki.ua
10	Memo7.Text	string	32000	Ціна товару на сайті Hotline.ua
11	Memo3.Text	string	32000	Ціна товару на сайті Stileo.com
12	Memo2.Text	string	32000	Ціна товару на сайті Eobuv.com
13	WebBrowser2	HTTPS	-	Веб-сторінка з зображенням шуканих товарів.

• 3 КОМП'ЮТЕРНА СИСТЕМА
• 3.1 Технічні характеристики комп'ютера та зовнішніх пристроїв
• Під час розробки програми, було використано комп'ютер, за наступними технічними характеристиками:
• - Тип комп'ютеру - HP 23-d006er.
• - Об'єм оперативної пам'яті DDR3L - 8 ГБ.
• - Процесор - чотирьохядерний Intel Сore i7-3770S.
• - Швидкодія процесору - 3.10 ГГц.
• - Відеокарта - GeForce GT 630M
• Мінімальні технічні характеристики, потрібні для запуску програми на комп'ютері:
• - Об'єм оперативної пам'яті DDR3L - 1 ГБ.
• - Процесор - Intel Core i3 або AMD еквівалент.
• - Швидкодія процесору - 1.6 ГГц.
• - Відеокарта - GeForce GTM 510.
• 3.2 Вибір програмних засобів та операційної системи
• Програмне забезпечення - це загальне поняття, що вказує на набір кодованих інструкцій (комп'ютерна програма) для керування процесором, в тому числі CPU комп'ютера. Процесор зчитує такі кодовані інструкції та виконує їх.
• Операційна система - Windows 10. Ця базова версія, розрахована на широкий загал користувачів. Також ця версіє Windows є фінальною і її мають майже всі користувачі в наш час. Якщо ж не мають, то при наявності будь-якої попередньої ліцензованої версії Windows, користувачі мають можливість перейти до версії Windows 10.
• Для написання даного програмного продукту була використана мова програмування Visul Pascal. Borland Delphi - це середовище розробки програмного забезпечення для роботи під Microsoft Windows.
• Також були підключені такі бібліотеки як ssleay, libeay та synapse. За допомогою цих бібліотек ПЗ написане на Delphi може з легкістю зчитувати HTML5-код із захищених сайтів https.
• 4 ОБ'ЄКТНО-ОРІЄНТОВАНЕ ПРОЕКТУВАННЯ
• 4.1 Інтерфейс програми
• Інтерфейс користувача - сукупність засобів для обробки та відображення інформації, максимально пристосованих для зручності користувача; у графічних системах інтерфейс користувача реалізовується багатовіконним режимом, змінами кольору, розміру, видимості (прозорість, напівпрозорість, невидимість) вікон, їх розташуванням, сортуванням елементів вікон, гнучкими налаштовуваннями як самих вікон, так і окремих їх елементів (файли, папки, ярлики, шрифти тощо), доступністю багатокористувацьких налаштувань.
• Вимоги до інтерфейсу користувача:
• - технологічність використання означає підтримку такого стилю діалогу, який би дозволяв працювати попередньо не ознайомленому з продуктом користувачу, а також широкі підказки про можливі дії користувача;
• - прозорість інтерфейсу розглядається відносно операційної системи - користувач не повинен бачити повідомлення операційної системи.
• Перейдемо тепер до самого інтерфейсу програми.
• Програма містить одну форму:
• - форма «Purchas Helper»;
• Menu (рисунок див. В.1) містить:
• - пункт «Переглянути»;
• - пункт «Валюта»;
• - пункт «Сортувати»;
• - пункт «Новий запит»;
• - пункт «Історія пошуку»;
• - пункт «Виділені»;
• - пункт «Про програму»;
• - пункт «Вихід»;
• 4.2 Алгоритм рішення задачі
• Під час запуску проекту береться курс долара з сайту investing.com і виводиться в поле Memo11. Після запуску програми з'являється перша форма з кнопками Переглянути, Сортувати, Новий запит, Історія пошуку, Виділені, Про програму, Пошук, Вихід та недоступна кнопка «Ще 5».
• При натисканні на клавішу «Пошук» починається формування https-посилань на сторінки інтернет-магазинів та парсинг цін з цих сторінок методом добування HTML5-коду та пошуку потрібних значень у ньому. В документ history.txt записується текст пошуку. Також стає доступною кнопка Ще 5, натиснувши на яку з'явиться ще 5 результатів пошуку.
• При натисканні на «Переглянути» відкриється список назв усіх 10 сайтів, натиснувши на будь-який ви перейдете у ваш браузер за замочуванням на сторінку пошуку цього сайту з уведеним вашим запитом. Також це можна зробити натиснувши на логотип вибраного торгівельного майданчика.
• При натисканні на «Валюта», стає можливим вибрати у якій валюті показувати ціни на товар, у доларах чи у гривнях.
• При натисканні на «Сортувати» можна вибрати у порядку спадання чи збільшення будуть сортуватися ціни.
• При натисканні на «Новий запит» проект перезапуститься тим самим зкинуться результати пошуку та форма прийме первісний вид.
• При натисканні на «Історія пошуку» відкриється список з двох варіантів 1-переглянути, 2-очистити. Натиснувши на «Переглянути» відкриється файл history.txt в об'єкті Memo12 та з'являється кнопка «Закрити історію», клікнувши по якій Memo12 та кнопка «Закрити історію» зникнуть.
• При натисканні на «Виділені» відкриється список з двох варіантів 1-переглянути, 2-очистити. Натиснувши на «Переглянути» відкриється файл cart.txt в об'єкті Memo12 та з'являється кнопка «Закрити виділені», клікнувши по якій Memo12 та кнопка «Закрити виділені» зникнуть.
• При натисканні на «Про програму» відкривається вікно, в якому написано про програму.
• При натисканні на «Вихід» програма закривається.
• При натисканні на «Виділити» поле пошуку копіюється у файл cart.txt.
• 5 ПРОГРАМУВАННЯ ТА ТЕСТУВАННЯ
• 5.1 Розробка програми
• При створенні програми, спочатку треба було встановити все необхідне програмне забезпечення, а саме Delphi7 та підключити бібліотеки ssleay, libeay та synapse.
• Після встановлення всього необхідного програмного забезпечення, було створено проект. Перш за все треба було знайти перевірені сайти з великим вибором товарів та яким довіряють люди. Після цього потрібно було зробити макети https-посилань, аби потім на їх основі генерувати посилання пошуку по сайту, використовуючи поле пошуку з проекту (Edit1). Додати на форму необхідні об'єкти для реалізації пошуку та витягування HTML5-коду з захищених сайтів (idHTTP, Memo, Button та Edit).
• Коли ми помістили на форму всі необхідні об'єкти створюємо 3 алгоритми на Button1.Click. 1-й алгоритм, буде брати текст з пошукового рядка та замість пробілів встановлюватиме потрібний знак «+» або «-» . 2-й алгоритм здійснюватиме генерацію посилання шляхом вставляння модифікованого пошукового запиту в макет посилань, зроблений нами раніше та витягувати код сторінки через згенероване посилання в поле Memo. І 3-й алгоритм шукатиме ціну на товар в коді за допомогою Copy(…) та pos(…) і залишатиме її в полі Memo.
• Якщо все працює коректно додаємо ще 9 полів Memo пишемо схожі алгоритми для кожного з сайтів в ту ж процедуру.
• Додаємо ще 1 кнопку та процедуру Button2.Click і розподіляємо алгоритми по 5 на кнопку.
• Коли все це працює, додаємо помилку на поле Edit1 щоб при порожньому пошуковому рядку пошук не відбувався і надпис над рядком «Введіть запит» ставав виднішим.
• Додаємо логотипи вибраних сайтів в image1-10 та ставимо поля Memo навпроти логотипів.
• Додаємо компонент WebBrowser та дописуємо схожий алгоритм в процедуру Button1.Click до першого сайту, який буде з коду сторінки брати не ціну, а посилання на фото товару та відкривати його в браузері проекту.
• Додаємо процедури image.click до кожного логотипу які будуть відкривати сторінки цих магазинів з шуканим товаром у веб-браузері за замовчуванням.
• Додаємо об'єкт Gauge та розтавляємо по 20% після закінчення обробки кожного з інтернет-магазинів для першої кнопки та для другої аби можна було слідкувати за швидкістю пошуку.
• Тепер додаємо головне меню, пункти якого надаватимуть можливість переглядати сторінки у веб-браузері за замовчуванням, посилання на які генерувалися разом з пошуком, сортувати ціни та виводити список у полі memo12, скидувати результати пошуку, переглядати та видаляти історію пошуку, переглядати та видаляти список виділених запитів, отримувати інформацію про програму та виходити з неї.
• Після складання (побудови) проекту створюється EXE-файл, готовий до старту програми.
• 5.2 Етапи відладки
• В процесі відладки програма вірно розраховує і реалізує усі поставлені задачі, а саме:
• - чітко формує гіперпосилання згідно з пошуковим рядком;
• - правильно шукає ціни у HTML-кодах сторінок;
• - не починає пошук, якщо поле пошуку пусте;
• - відображення фігури, яка буде наступною;
• - сортує результати
• - додає шуканий текст у Історію пошуків та у Виділені.
• Під час розробки цього курсового проекту було використано регресійне тестування. Після внесення змін в програму, вони одразу ж тестувались на правильність виконання та відсутність помилок, або конфліктів з іншими функціями в проекті. Також було виконане функціональне тестування, щоб перевірити, чи виконує програма всі потрібні функції. Функціональне тестування було виконане методом білої скриньки, тому що при тестуванні мені треба було знати внутрішню структуру програми та розуміти де саме можливі помилки у написанні коду.
• 5.3 Типи помилок
• Помилки бувають наступних типів:
• - помилки аналізу - пов'язані з неповним врахуванням ситуації, яка може призвести до виникнення помилки, що спричинить невірне рішення задач. До них відносяться:
• - відсутність завдання початкових значень змінних;
• - невірна умова закінчення циклу;
• - відсутність індексації в циклі;
• - невірна вказівка гілки алгоритму для продовження процесу рішення задачі.
• - помилки загального характеру:
• - помилки через недостатнє знання або розуміння мови програмування;
• - помилки, допущені при реалізації алгоритму, коли команди не забезпечують виконання послідовності дій, вказаних в алгоритмі.
• - помилки різноманітного характеру - помилки, що викликаються невірними діями програміста;
• - синтаксичні помилки - порушення вимог мови програмування;
• - невизначені змінні;
• - порушення правильності програми - порушення логічних відносин при побудові функціональності програми і визначення області значення даних.
• ВИСНОВКИ
• Під час розробки курсового проекту був розроблений проект на тему: ”Аналіз та обробка пропозицій з торгівельних майданчиків ”. При цьому була розроблена програма, яка допомагає пришвидшити процес пошуку та купівлі товарів у інтернет-магазинах. Даний програмний продукт можна використовувати як самостійно так і у складі підсистеми.
• При розробці програми були вивчені, такі теми як алгоритми роботи з інтернет-сторінками і файлами, та команди для роботи з текстом.
• Програма може бути удосконалена шляхом додавання нових функцій, таких як вибір виду одягу, наприклад взуття, футболки, шорти, штані і на кожний вид одягу різні інтернет-магазини, поліпшення інтерфейсу користувача, розширення можливостей.
• Дана програма призначена для використання вдома, адже для її роботи потрібне підключення до інтернету.
• При розробці проекту були вдосконалені та отримані нові знання в області проектування та створення програмних продуктів на платформі Delphi, які піключаються до інтернету.
• ПЕРЕЛІК ДЖЕРЕЛ ПОСИЛАННЯ

1. Автор Дмитрий Осипов «Delphi. Профессиональное программирование» 2006 рік.

2. Архангельский А. Я., Программирование в Delphi 7. - Москва: Вильямс, 2016

3. «Delphi.NET в задачах и примерах» Автор Никита Культин 2006 рік.

4. http://www.cyberforum.ru «Питання та відповіді».

5. http://delphi.scps.ru «Онлайн-довідник Delphi».

ДОДАТОК А

Схема алгоритму програми

 ДОДАТОК Б

Лістинг програми

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, HttpSend,synacode, ssl_openssl, OleCtrls, SHDocVw, StdCtrls,

ExtCtrls, jpeg, Menus, Gauges, IdBaseComponent, IdComponent,

IdTCPConnection, IdTCPClient,ShellApi,IdAntiFreezeBase, IdAntiFreeze, IdHTTP,

IdMessageClient, IdIMAP4, AppEvnts;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

memo1: TMemo;

Memo2: TMemo;

Memo3: TMemo;

Memo4: TMemo;

img1: TImage;

Label1: TLabel;

WebBrowser1: TWebBrowser;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Memo5: TMemo;

Image5: TImage;

Gauge1: TGauge;

Memo6: TMemo;

Image6: TImage;

MainMenu1: TMainMenu;

Memo7: TMemo;

Image7: TImage;

Memo8: TMemo;

Image8: TImage;

Memo9: TMemo;

Image9: TImage;

Image10: TImage;

Memo10: TMemo;

IdHTTP1: TIdHTTP;

WebBrowser2: TWebBrowser;

Button2: TButton;

N1: TMenuItem;

ebay1: TMenuItem;

promua1: TMenuItem;

OLX1: TMenuItem;

DreamShoes1: TMenuItem;

Brooklyn1: TMenuItem;

StreetBrand1: TMenuItem;

Krossovki1: TMenuItem;

hotline1: TMenuItem;

Stileo1: TMenuItem;

eobuv1: TMenuItem;

N2: TMenuItem;

Memo11: TMemo;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Button3: TButton;

Memo12: TMemo;

Button4: TButton;

N9: TMenuItem;

N10: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Button2Click(Sender: TObject);

procedure ebay1Click(Sender: TObject);

procedure promua1Click(Sender: TObject);

procedure DreamShoes1Click(Sender: TObject);

procedure OLX1Click(Sender: TObject);

procedure Brooklyn1Click(Sender: TObject);

procedure StreetBrand1Click(Sender: TObject);

procedure Krossovki1Click(Sender: TObject);

procedure hotline1Click(Sender: TObject);

procedure Stileo1Click(Sender: TObject);

procedure eobuv1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1; linkKross,linkDrSh,linkBR,linkSB, Photo, linkProm,linkEb,linkEob,linkStil,linkOLX,t,tt,linkHot,

zaprosPlus, zaprosDif,kurs:string; N,k1,nMin,i,j,cj,k2,q,w,Eb,Kr,Dr,Sh,BR,SB,Pr,Eo,St,OLX,Hot:Integer; m:array[1..6] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var f:textfile;

begin

AssignFile(f, 'history.txt');

Append(f);

Writeln(f,Edit1.Text);

CloseFile(f);

Button2.Enabled:=True;

WebBrowser2.Width:=320;

WebBrowser2.Height:=200;

WebBrowser2.Left:=361;

WebBrowser2.Top:=80;

if Length(Edit1.Text)=0 then

begin

Label1.Font.Color:=clRed;

Label1.Font.Height:=Label1.Font.Height-3;

Label1.Left:=Label1.Left-8;

Label1.Caption:=Label1.Caption+'!!!';

end

else

begin

zaprosPlus:=Edit1.Text;

zaprosDif:=Edit1.Text;

Gauge1.Progress:=5;

for q:=0 to length(zaprosPlus) do

begin

if zaprosPlus[q]=' ' then

zaprosPlus[q]:='+';

end;

for q:=0 to length(zaprosDif) do

begin

if zaprosDif[q]=' ' then

zaprosDif[q]:='-';

end; linkEb:='https://www.ebay.com/sch/i.html?_from=R40&_nkw='+zaprosPlus+'&_sacat=0&LH_TitleDesc=0&LH_TitleDesc=0&rt=nc&LH_BIN=1';

HttpGetText(linkEb, Memo10.lines); Photo:=copy(Memo10.text,pos('images/g/',Memo10.text)-29,length(Memo10.text));

Photo:=copy(Photo,1,pos('"',Photo)-1);

WebBrowser2.Navigate(Photo);

HttpGetText(linkEb, Memo10.Lines); memo10.Visible:=True; memo10.Text:=copy(memo10.Text,pos('price">$',memo10.Text)+8,length(memo10.Text));

memo10.Text:=copy(memo10.Text,1,pos('</span>',memo10.Text)-1);

memo10.Text:= memo10.Text+' грн'; Gauge1.Progress:=20; linkProm:='https://prom.ua/search?search_term='+zaprosPlus+'&sort=-score';

HttpGetText(linkProm, Memo1.Lines);memo1.Visible:=True; memo1.Text:=copy(memo1.Text,pos('"price":',memo1.Text)+10,length(memo1.Text));

memo1.Text:=copy(memo1.Text,1,pos('.',memo1.Text)-1);

memo1.Text:= memo1.Text+' грн';

Gauge1.Progress:=40;

linkOLX:='https://www.olx.ua/list/q-'+zaprosDif+'/?search%5Bdescription%5D=1';

HttpGetText(linkOLX, Memo4.Lines);memo4.Visible:=True; memo4.Text:=copy(memo4.Text,pos('<pclass="price">',memo4.Text)+36,length(memo4.Text));

memo4.Text:=copy(memo4.Text,1,pos('</strong>',memo4.Text)-8); memo4.Text:=copy(memo4.Text,pos('>',memo4.Text)+1,length(memo4.Text)); memo4.Text:= memo4.Text+' грн';

Gauge1.Progress:=60; linkDrSh:='https://dreamshoes.in.ua/product_list/search/?q='+zaprosPlus;

HttpGetText(linkDrSh, Memo5.Lines); memo5.Visible:=True;

memo5.Text:=copy(memo5.Text,pos('class="catalogCard-price">',memo5.Text)+26,length(memo5.Text));

memo5.Text:=copy(memo5.Text,1,pos('</div>',memo5.Text)-7);

memo5.Text:= memo5.Text+' грн';

Gauge1.Progress:=80; linkBR:='https://brooklynstore.com.ua/catalog/search/?q='+zaprosPlus;

HttpGetText(linkBR, Memo8.Lines); memo8.Visible:=True;

memo8.Text:=copy(memo8.Text,pos('catalogCard-price">',memo8.Text)+19,length(memo8.Text));

memo8.Text:=copy(memo8.Text,1,pos('</div>',memo8.Text)-8);

memo8.Text:= memo8.Text+' грн';

Gauge1.Progress:=100;

end;

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = 13 then

begin

Button1.click;

Key := 0;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Height:=725;

linkKross:='https://krossovki.kiev.ua/search/?q='+zaprosPlus;

HttpGetText(linkKross, Memo6.Lines); memo6.Text:=copy(memo6.Text,pos('price="',memo6.Text)+7,length(memo6.Text);

memo6.Text:=copy(memo6.Text,1,pos('"',memo6.Text)-8);

memo6.Text:= memo6.Text+' грн';

memo6.Visible:=True;

Image6.Visible:=True;

linkHot:='https://hotline.ua/sr/?q='+zaprosPlus;

HttpGetText(linkHot, Memo7.Lines);

memo7.Text:=copy(memo7.Text,pos('<div class="price-md">',memo7.Text)+69,length(memo7.Text));

memo7.Text:=copy(memo7.Text,1,pos('</span>',memo7.Text)-1);

tt:=memo7.Text;

t:='';

for q:=0 to length (tt) do

begin

if tt[q] in ['0','1','2','3','4','5','6','7','8','9']

then

t:=t+tt[q];

end;

memo7.Text:=t+' грн';

memo7.Visible:=True;

Image7.Visible:=True; linkSB:='https://streetbrand.com.ua/site_search?search_term='+zaprosPlus;

HttpGetText(linkSB, Memo9.Lines);

memo9.Text:=copy(memo9.Text,pos('.00000"',memo9.Text)-4,length(memo9.Text));

memo9.Text:=copy(memo9.Text,1,pos('.00000"',memo9.Text)-1);

memo9.Text:= memo9.Text+' грн';

memo9.Visible:=True;

Image9.Visible:=True;

linkStil:='https://stileo.ua/poisk?search='+zaprosPlus;

HttpGetText(linkStil, Memo3.Lines); memo3.Text:=copy(memo3.Text,pos('light__regular">',memo3.Text)+16,length(memo3.Text));

memo3.Text:=copy(memo3.Text,1,pos('.</span>',memo3.Text)-7);

memo3.Text:= memo3.Text+' грн';

memo3.Visible:=True;

Image3.Visible:=True;

linkEob:='https://www.eobuv.com/s.html?q='+zaprosPlus;

HttpGetText(linkEob, Memo2.Lines);

memo2.Text:=copy(memo2.Text,pos('regular-price">',memo2.Text)+18,length(memo2.Text));

memo2.Text:=copy(memo2.Text,1,pos('</div>',memo2.Text)-11);

tt:=memo2.Text;

t:='';

for q:=0 to length (tt) do

begin

if tt[q] in ['0','1','2','3','4','5','6','7','8','9']

then

t:=t+tt[q];

end;

memo2.Text:=t;

w:=length(memo2.Text)-2;

Delete(t,w,2);

memo2.Text:=t;

memo2.Text:= memo2.Text+' грн';

memo2.Visible:=True;

Image2.Visible:=True; Memo10.Text:=IntToStr(StrToInt(Memo10.Text)*kurs);

end;

procedure TForm1.ebay1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkEb), nil, nil, SW_RESTORE);

end;

procedure TForm1.promua1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkProm), nil, nil, SW_RESTORE);

end;

procedure TForm1.DreamShoes1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkDrSh), nil, nil, SW_RESTORE);

end;

procedure TForm1.OLX1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkOLX), nil, nil, SW_RESTORE);

end;

procedure TForm1.Brooklyn1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkBR), nil, nil, SW_RESTORE);

end;

procedure TForm1.StreetBrand1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkSB), nil, nil, SW_RESTORE);

end;

procedure TForm1.Krossovki1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkKross), nil, nil, SW_RESTORE);

end;

procedure TForm1.hotline1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkHot), nil, nil, SW_RESTORE);

end;

procedure TForm1.Stileo1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkStil), nil, nil, SW_RESTORE);

end;

procedure TForm1.eobuv1Click(Sender: TObject);

begin

ShellExecute (Form1.Handle, nil, PChar(linkEob), nil, nil, SW_RESTORE);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

HttpGetText('https://ru.investing.com/currencies/usd-uah'Memo11.Lines);

memo11.Text:=copy(memo11.Text,pos('ue" placeholder="',memo11.Text)+17,length(memo11.Text));

memo11.Text:=copy(memo11.Text,1,pos('"',memo11.Text)-1);

kurs:=memo11.Text;

memo11.Text:=' Курс долара до гривні - 1 USD = '+kurs+' грн';

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Close

end;

procedure TForm1.N3Click(Sender: TObject);

var

FullProgPath: PChar;

begin

FullProgPath:=PChar(Application.ExeName);

WinExec(FullProgPath,SW_SHOW);

Application.Terminate;

end;

procedure TForm1.Button3Click(Sender: TObject);

var f:textfile;

begin

AssignFile(f, 'cart.txt');

Append(f);

Writeln(f,Edit1.Text);

CloseFile(f);

N9.Click;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Memo12.Lines.LoadFromFile('history.txt');

Button4.Caption:='Закрити історію';

Button4.Visible:=True;

Memo12.Visible:=True;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Memo12.Visible:=False;

Button4.Visible:=False;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Memo12.Lines.LoadFromFile('cart.txt');

Button4.Caption:='Закрити виділені';

Button4.Visible:=True;

Memo12.Visible:=True;

end;

procedure TForm1.N7Click(Sender: TObject);

var f:file;

begin

AssignFile(f,'history.txt');

Rewrite(f,1);

CloseFile(f);

N6.Click;

end;

procedure TForm1.N10Click(Sender: TObject);

var f:file;

begin

AssignFile(f,'cart.txt');

Rewrite(f,1);

CloseFile(f);

N9.Click;

end;

ДОДАТОК В

Роздрук результатів роботи

Рисунок В.1 - Пошук в усіх майданчиках.

Рисунок В.2 - Пошук в усіх майданчиках.

Рисунок В.3 - Перегляд історії пошуку

...