тільки корисні матеріали
Головний акціонер Alibaba став найбагатшою людиною в Китаї
статті
Microsoft почала закрите тестування Office 16
статті
Фахівці знайшли діри в безпеці Windows 8.1
статті
У московському метро з'явиться єдина мобільна мережа
статті
eBay буде приймати Bitcoin
статті
Vivitek представила «шкільний» проектор D755WTIR
статті
У Твіттері з'явилася кнопка «Купити»
статті
«Яндекс.Новини» тепер можна переглядати і на iPhone
статті
mshtml, ActiveX, COMObj, IdHTTP, idURI;
Створимо нову процедуру за допомогою якої наша програма буде парсити посилання. Після ключового слова public напишемо наступний код:
procedure ExtractLinks (const url: String; const strings: TStrings);
Далі натискаємо вже знайому нам комбінацію клавіш CTRL + Shift + C в результаті чого Delphi згенерує нам шаблон для майбутньої процедури.
Оголошуємо локальні змінні
var
iDoc. IHTMLDocument2;
strHTML. string;
v. Variant;
x. integer;
links. OleVariant;
docURL. string;
URI. TidURI;
aHref. string;
idHTTP. TidHTTP;
У тілі процедури тоесть між Begin. end пишемо наступний код:
Так з основними приготуваннями ми закінчили, і дуже скоро наш робот іграшка покаже себе в дії. А зараз давайте кинемо на форму 3 компонента з закладки Standard: Edit, Button, Memo
Наостанок, створимо обробник подій OnClick на кнопці, в якому викличемо нашу процедуру з потрібними параметрами (між begin. End пишемо)
Ось в принципі і все запускаємо і компілюємо проект.