Browser cu propriile lor mâini - surse delphi faq

Nu pot să înțeleg - toate aprinse orice piață în jurul valorii de război browser-ul de Internet. Adică, Ns, Opera. Tot acolo ceva curent selectat. Am această problemă nu-mi pasă, îmi pot imagina mine pentru a scrie browser-ul - cum ar fi vreau. Și tu slab? Nu cred. Zece minute mai târziu, de asemenea va fi navigator.

Ar trebui să înceapă din nou Delphi. Acesta permite o foarte rapid si fara prea multe probleme pentru a scrie browser-ul propriu. Când porniți, găsiți o filă „Internet“. Trebuie să existe componentă „WebBrowser“ (ar trebui să fie ultima). Dacă aveți o versiune de Delphi este mai mică decât o cincime, atunci această componentă nu poate fi. El poate să nu fie disponibile, iar dacă refuzați să instalați un Internet-componente (acestea sunt stabilite în mod implicit).

Alegeți "Import ActiveX Control" din meniul "Component".

Lista de selecție a ferestrei (de sus) Găsiți linia „Comenzi Microsoft Internet (versiunea 1.1)“. Versiunea pot fi diferite, dar tu și I - Aqualung. Acum, faceți clic pe butonul „Install“. Înainte de a deschide o fereastră și o cerere. La cerere trebuie să răspundă „Da“.

După Delphi proshurshit creierul, va apărea o fereastră, care va informa instalarea cu succes a unei noi componente. Faceți clic pe „OK“ și închideți toate Delphi deschise. Pentru a face acest lucru, selectați „Close All“ din meniul „File“. Acum ai componenta „WebBrowser“, numai că se află pe pagina „ActiveX“ a componentei paletă.

După cum probabil ați observat, vom folosi „Controale Microsoft Internet“, adică motor este instalat pe calculator IE. Și aceasta înseamnă că browser-ul dvs. preia toate bolile și bug-uri ale motorului. Singurul lucru care poate calma - este faptul că interfața nu va fi atât de plictisitor. El va fi la fel de dorit, deoarece este făcută de mâinile tale.

Acum sunteți gata pentru a începe programarea. Crearea unui nou proiect ( „File“ -> „New Application“) și schimbați imediat titlul și pictograma. Cum se face acest lucru, am spus în articolul despre mega-media player-ul în aceeași cameră.

Trecând mai departe. Amplasat pe forma componentei „WebBrowser“ nostru (este situat pe tab-ul „Internet“ sau „ActiveX“) - va fi un pătrat alb cu numele de WebBrowser1. După aceea, se aruncă în formă de „CoolBar“, care se află pe fila „Win32“ a componentei paletă. Acest soclu, care ar trebui să se alinieze cu marginea de sus pe formular. Acum, Mark WebBrowser1 și du-te la ObiectInspector. Dați clic pe proprietatea „align“ din lista drop-down, selectați „alClient“. „WebBrowser“ ar trebui să se extindă asupra tuturor formelor spațiale.

Acum exprimate pe CoolBar1 (recent am instalat pe formular) panoul fila „ToolBar“ a „Win32“ și „ComboBox“ din tab-ul „Standart“, paleta de componente. Toate acestea trebuie să-l arunce în CoolBar1, altfel vei primi e de rahat. Apoi, trebuie să selectați și introduceți CoolBar1 ObiectInspector. Aici trebuie să se schimbe linia „autosize“ la „true“ (implicit este „fals“).

Dacă ceva nu funcționează, apoi citiți din nou articolul. Dacă acest lucru nu ajută, apoi încercați să se rostogolească o bere, ajută să se gândească :). Dacă totul este în ordine, apoi se alocă ComboBox1 (lista verticală) și trece în ObiectInspector. Aici trebuie să evidențiați secțiunea „Evenimente“ și de a efectua acțiuni complexe „onkeydown“ DoubleKlike on-line. DoubleKlike trebuie să fie făcut în jumătatea dreaptă a liniei. Dacă nu vă amintiți în cazul în care să fie „dreapta“ :), apoi faceți clic pe lista drop-down (aceasta este „dreapta“). Ca și înainte, Delphi va crea o procedură. Acesta va fi numit de fiecare dată când veți introduce orice literă în „ComboBox“. Aici trebuie să scrie următoarele:

NOTĂ! Tastarea pe o tastatură este necesară numai ceea ce este scris între începutul și sfârșitul, tot ceea ce trebuie să fie creat Delphi. În acest caz, trebuie să formați numai „în cazul în care cheia = VK_RETURN apoi WebBrowser1.Navigate (ComboBox1.Text)“, și fără ghilimele. Citez doar liniile rămase pentru a face să vă simțiți confortabil să se holbeze și compara cu ceea ce face Delphi pentru tine.

Acum, același lucru, dar conceptele de:

Îmbunătățirea browser-ul dvs.

Faceți clic pe ToolBar1 și re-intră în ObiectInspector. Aici trebuie să modificați proprietățile „autosize“, „ShowCaption“ și „plat“ la „true“ (în mod implicit acestea sunt toate false). Acum, faceți clic dreapta pe ToolBar1 și meniuri din care apare selectați elementul „butonul New“. Pe ToolBar1 ar trebui să apară cu noul Pimp „ToolButton1“ nume. Marcați-l și ObiectInspector-e pentru a schimba proprietatea Caption la „Open.“ Creați un alt ca butoane cu subtitrări: Înapoi, Înainte, permanent, Update, și imprimare.

Instalați o altă formă de tab-ul „OpenDialog“ a „Dialoguri“ paleta de componente. El în curând va avea nevoie de noi.

Acum, „Open“ dublu-clic pe butonul, și Delphi va crea automat o procedură care va fi numit atunci când este apăsat butonul. În această procedură, trebuie să scrie următoarele:

Ca de obicei, am explica conceptele de:

Acum puteți rula un program și deschis cu această Pimp orice fișier de pe disc. Dar, cred că nu este nevoie să se grăbească. Forțată să lucreze restul butoanelor! „Înapoi“ Dublu-click pe butonul. Care va fi rezultatul, ați ghicit deja. Scrie aici următoarele:

Cred că nu este nevoie să explic nimic aici. Tocmai am face WebBrowser1 pentru a merge la pagina anterioară.

Se repetă aceeași operație pentru butonul „Forward“ pentru a crea o procedură. Scrieți codul de mai jos pentru a-l:

Pentru butonul scrie „Stop“: „permanent încă fluierat pe cer, mâinile la părțile lui.“ Glumeam :). Scrie mai bine acest lucru:

Există doar o singură linie, dar este foarte complicat, deci nu voi explica. Pot spune doar că, în această linie, voi trimite o comandă prin miezul OLE IE. Trebuie doar să copiați unul câte unul în codul sursă, și să ia cuvântul meu.

Acum puteți apăsa „F9“, iar programul ar trebui să ruleze. Încearcă să se joace cu ea. Bună senzație? Inchide browser-ul, au fost ultimele retușuri!

Browser-ul dvs. este aproape gata. Tocmai am adus un mic marafet.

Pentru a începe, exprimate pe formularul StatusBar de file „Win32“ și pentru a schimba proprietatea sa „SimplePanel“ true (implicit false). Acum, Mark WebBrowser1 și faceți clic pe fila „Evenimente“ din ObjecInspector-lea. Dublu click pe linia „OnStatusTextChange“ și scrie Creați următoarea procedură:

Aici am stabilit variabila „Text“ (deține textul tooltip) în StatusBar1. Acum puteți vedea sfaturi în bara de stare.

Hai adăuga mai multe indicatoare de încărcare. Pentru a face acest lucru, se aruncă în formă de marcaje ProgressBar „Win32“. Schimbarea proprietatea sa „Align“ pe „alBottom“, astfel încât să fie de-a lungul partea de jos a formularului de frontieră. Din nou, Mark WebBrowser1 și faceți clic pe fila „Evenimente“ din ObjecInspector-lea. Dublu-click pe linia „OnProgressChange“ și scrie în cadrul procedurii stabilite:

Aici am creat ProgressBar1 (indicator de sarcină) este setat la o valoare maximă (ProgressMax) și valoarea curentă (Progress).

Acum trebuie să decora butoanele noastre, dar ele arata ca el IE. Pentru a face acest lucru, se arunca pe formular și să facă ImageList pe ea DoubleKlik. o fereastră se va deschide în fața ta. Aici trebuie să adăugați imagini 16x16. Pentru a face acest lucru, faceți clic pe „Add“, și înainte de a deschide o fereastra standard, deschiderea fișierului. Găsiți o imagine și faceți clic pe „Open“. Se repetă acest proces de 6 ori (6 imagini pentru 6 și butoane). După toate acestea, faceți clic pe „OK“.

Acum, Mark ToolBar1 și ObiectInspector-e Editare imagini proprietate „ImageList1“. Pe butoanele să apară pe imagini. Dacă adăugați imagini, nu în ordinea în care au stați pe formular, le puteți reordona folosind proprietățile ImageIndex la butonul. De exemplu: Faceți clic pe „Stop“ și schimba ImageIndex la 0. Imaginea să apară butonul, primul ImageList1.

Puteți crea un alt ImageList, care este substituit în HotImages. În acest caz, imaginea acestei ImadzheLista va fi înlocuit pe butonul atunci când aduce la mouse-ul ei.

Toate reparații este terminat. Apăsați pe „F9“, iar Delphi a fost ultima dată când va crea versiunea finală.

Vă puteți bucura de un browser cu drepturi depline în plăcerea. Desigur, acest lucru nu este toate caracteristicile care pot fi vytsepit de WebBrowser1. Acest lucru este încă foarte mult posibil pentru a adăuga - principalul lucru pentru a avea suficientă imaginație și abilități. Dar acest lucru este detalii specifice, și nu le voi descrie, pentru că va trebui să explice toate principiile de programare Delphi. Și aceasta - întreaga poveste. Trimite un mesaj pentru mine, în cazul în care, și mult noroc!

El va fi la fel de dorit, deoarece este făcută de mâinile tale.