Уеб браузър със собствените си ръце

Начало »статии Програмиране» Делфи - Всички статии »

обсъждам

Вие трябва да започнете отново Delphi. Тя позволява много бързо и без прекалено много проблеми да пишат свой собствен браузър. Когато започнете, намерете раздела "Интернет". Трябва да има компонент "WebBrowser" (тя трябва да е за последен). Ако имате версия на Delphi е по-малко от една пета, а след това този компонент не може да бъде. Той не може да бъде на разположение, а ако откаже да инсталира с интернет компоненти (те са настроени по подразбиране).

Изберете "Внос ActiveX Control" от менюто "Компонент". Пред вас трябва да видите екран, подобно на фигура 1.

Списъкът с избор на прозорец (отгоре) Намерете реда "Microsoft контрола върху интернет (версия 1.1)." Версия може да бъде различен, но ти и аз - на акваланга. Сега, кликнете върху "Install" бутон. ще се отвори прозорец пред вас, както е показано на фигура 2. По искане, което трябва да отговори на "ОК".

След това ще бъдете попитани за съставяне на пакет, както е показано на фигура 3. Съгласен съм. Delphi предкомпилирана необходимите файлове и инсталиране на компонента за работа с браузъра.

След Delphi proshurshit мозък, ще се появи прозорец, който ще информира успешното инсталиране на нов компонент. Натиснете бутона "ОК" и затворете всички отворени Delphi. За да направите това, изберете "Затваряне на всички" от менюто "Файл". Сега имате компонент "уеббраузър", само че се намира на страницата на Компонент Palette "ActiveX".

Както може би сте забелязали, ние ще използваме "Интернет контроли на Microsoft", т.е. двигател е инсталиран на компютъра ви IE. А това означава, че вашият браузър взима всички заболявания и грешки на двигателя. Единственото нещо, което може да се успокои - е фактът, че интерфейсът няма да е толкова скучно. Той ще бъде, както искате, защото тя е направена от ръцете си.

Сега сте готови да започнете програмирането. Създаване на нов проект ( "Файл" -> "Ново приложение") и веднага се промени заглавието и иконата.

Преминавайки. Разположен на формата на нашия компонент "WebBrowser" (тя се намира в раздела "Интернет" или "ActiveX") - ще бъде бял квадрат с името на WebBrowser1. След това го хвърли във формата на "CoolBar", който е на "Win32" в раздела на Компонент палитра. Това гнездо, което трябва да се приведе в съответствие с горния край на вашия вид. Сега Марк WebBrowser1 и отидете на инспектор на обекта. Кликнете върху недвижимия имот "Align" в падащия списък изберете "alClient". "WebBrowser" трябва да се простира над всички космически форми. В резултат на това, ще видите нещо подобно на фигура 4.

Сега се хвърли върху CoolBar1 (наскоро инсталирана на форма) панел "лентата" в раздела на "Win32" и "ComboBox" от раздела "Стандарт" компонент палитра. Всичко това трябва да го хвърлят в CoolBar1, в противен случай ще получите гадно. След това е необходимо, за да изберете и въведете CoolBar1 ObjectInspector. Тук трябва да се промени редът "AutoSize" на "истински" (по подразбиране е "фалшива").

Ако нещо не работи, а след това прочетете статията отново. Ако това не помогне, опитайте да се търкаля една бира, той помага да се мисли :). Ако всичко е наред, а след това разпределя ComboBox1 (падащия списък) и преминава в ObjectInspector. Тук трябва да се подчертае в раздела "Събития" и изпълняват сложни действия "OnKeyDown" DoubleKlike он-лайн. DoubleKlike трябва да се направи в дясната половина на линията. Ако не помните къде да бъде "прав" :), след това кликнете върху падащия списък на (това е "право"). Както и преди, Delphi ще създаде процедура. Тя ще се нарича всеки път, вие ще въведете всяка буква в "ComboBox". Тук трябва да напишете следното:

ЗАБЕЛЕЖКА! Писането на клавиатурата е необходимо само това, което е написано между започват и свършват, всичко останало трябва да се създаде Delphi. В този случай, трябва да се набере само "ако Key = VK_RETURN тогава WebBrowser1.Navigate (ComboBox1.Text)", и без кавичките. Цитирам само останалите линии, за да ви накарат да се чувствате комфортно да гледа и да се сравни с това, което прави Delphi за вас.

Сега едно и също нещо, но понятията:

Кликнете ToolBar1 и влиза отново в ObjectInspector. Тук трябва да се променят свойствата на "AutoSize", "ShowCaption" и "плосък" на "истински" (по подразбиране всички те са неверни). Сега щракнете с десния бутон върху ToolBar1 и менюта да се появи изберете елемента "новия бутон". На ToolBar1 трябва да се появи с новото име на Pimp "ToolButton1". Маркирайте го и ObjectInspector-е Промяна Надпис собственост на "Open". Създайте друга като бутони с надписи: Back, Forward, Постоянен, обновяване и Печат. Резултатът трябва да бъде подобна на фигура 6.

Инсталирайте друга форма на "OpenDialog" в раздела на "Диалози" компонент палитра. Той скоро ще имат нужда от нас.

Сега, "Отвори" кликнете два пъти върху бутона, и Delphi автоматично ще се създаде процедура, която ще се нарича, когато се натисне бутона. При тази процедура, трябва да се напише следното:

Както винаги, аз обясни понятията:

Сега можете да стартирате програмата и открита с този Pimp всеки файл на диска. Но, мисля, че няма нужда да се бърза. Принудени да работят до края на бутоните! "Назад" Кликнете два пъти върху бутона. Какъв ще бъде резултатът, вече сте се досетили. Пишете тук следното:

Мисля, че няма нужда да се обясни нещо тук. Ние трябва само да се WebBrowser1 да отидете на предишната страница.

Повторете същото действие за бутона "Напред", за да се създаде процедура. Напишете следния код, за да го:

За бутона за запис "Стоп": "Постоянния все още свирки в небето, с ръце от двете му страни." Шегувам се :). Напиши по-добре това:

За Pimp "Update":

И накрая, за сводник "Печат":

Има само един ред, но това е много сложно, така че аз няма да го обясня. Мога само да кажа, че в този ред, аз ще изпрати команда чрез ядрото на IE OLE. Трябва само да копирате един по един в изходния си код, и да вземат думата си.

Сега можете да натиснете "F9" и програмата трябва да се изпълнява. Опитайте се да играят с нея. Добро чувство? Затворете всички браузъри се довършва!

Вашият браузър е почти готова. Току-що донесе малък marafet.

За да започнете, актьорски състав на лентата за състоянието форма на разделите "Win32" и да променят своята собственост "SimplePanel", за да е вярно (по подразбиране невярно). Сега Марк WebBrowser1 и кликнете върху раздела "Събития" в ObjecInspector тата. Кликнете два пъти върху "OnStatusTextChange" на линията и пишат Създаване на следната процедура:

Тук ние се променливата "текст" (тя притежава текст подсказка) в StatusBar1. Сега можете да видите съветите в лентата на състоянието.

Нека добавим още индикатор за зареждане. За да направите това, хвърлят го във формата на отметките ProgressBar "Win32". Променете своята собственост "Align" на "alBottom", така че да е в долната част на границата между форма. Отново Марк WebBrowser1 и кликнете върху раздела "Събития" в ObjecInspector тата. Кликнете два пъти върху реда "OnProgressChange" и пише в установения ред:

Тук сме създали ProgressBar1 (индикатор натоварване) настроен на максимална стойност (ProgressMax) и текущата стойност (напредък).

Сега трябва да се украсяват нашите бутони, но те изглеждат като самият IE. За да направите това, хвърлят го във формуляра и да ImageList върху него DoubleKlik. Преди да отворите прозореца, както е показано на фигура 7. Необходимо е да се добавят снимки 16x16. За да направите това, натиснете бутона "Добави", и преди да отворите стандартен прозорец за отваряне на досието. Намерете снимка и натиснете "Open". Повторете този процес 6 пъти (6 снимки за 6 и бутони). След всичко това, щракнете върху "OK".

Сега Марк ToolBar1 и ObjectInspector-е редактирате изображения собственост на "ImageList1". На бутони ви се покажат на изображения. Ако добавяте изображения, които не са в реда, в който те имат стоите във формуляра, можете да ги преподредите използване ImageIndex свойства на бутона. Например: Кликнете върху "Стоп" и промяна ImageIndex до 0. изображение да се показва бутон, заяви първият ImageList1.

Можете да създадете друг ImageList, който е заместен в HotImages. В този случай, по образа на този ImadzheLista ще бъде заместен върху бутона, когато стигаме до нея Mouse.

Всички ремонт е завършен. Натиснете върху "F9" и Delphi беше последният път, когато ще се създаде окончателната версия. На Фигура 8 можете да видите резултатите от днешната работа.

Можете да се насладите пълноправен браузър в удоволствието. Разбира се, това не е всички функции, които могат да бъдат vytsepit на WebBrowser1. Това все още е много възможно да се добави - най-важното е да имате достатъчно въображение и умения. Но това е специфичните детайли, а аз няма да ги опише, защото ще трябва да обясни на всички принципи на програмирането в Делфи. И това - цялата история. Пишете ми, ако това, и на добър час!

Той ще бъде, както искате, защото тя е направена от ръцете си.

Не мога да разбера - всичко свети всеки пазар около войната в Интернет браузър. Т.е., Ново строителство, Opera. Всички нещо в момента е избран. Аз имам този проблем не ме интересува, аз мога да си представя себе си, за да напишете в браузъра - като искам да. И ти слаб? Мисля, че не. Десет минути по-късно, вие също ще бъде вашият навигатор.

Изпратено от: паша
забавно, но по някаква причина, когато нещо се гледа meil връзки отворени в Explora.