Hvordan lage en ActiveX og koble det til Javascript i en HTML document.With Delphi Aktiv Form det er enkelt å lage en ActiveX (OCX) komponent hva som kan integreres i programmer som VB, VBA (Word, Excel, Access, og Outlook), Delphi, C ++, og i denne casethe IE Web-Browser via en HTML document.From Delphi IDE Fil | Ny meny, viser dialogboksen Nytt element boksen, og fra kategorien ActiveX velger Aktivt Form option.The Aktiv Form oppretter en ny aktiv form, som er en simplerActiveX kontroll (ned fra TActiveForm) forhåndskonfigurert Torun i en nettleser. Kontroll Wizard ActiveX ser ut til å guideyou gjennom prosessen, slik at du kan legge til kontroller tothe danne. The Wizard skaper en ActiveX Bibliotek prosjekt (om nødvendig), en type bibliotek, en form, en utførende enhet og en enhet containingcorresponding typebibliotek declarations.Enter New ActiveX navn i Active skjemaveiviseren. Endre theImplementation Enhetsnavn og Prosjekt navn som needed.Choose den threading modell for å vise hvordan COM serialiserer samtaler toyour ActiveX-kontroll . Merk: threading modell du velger avgjør hvordan objektet isregistered. Du må sørge for at objekt implementationadheres i modellen valgt
Før aktivere OK-knappen sjekke den nødvendige kontroll Options.For mer informasjon bruke hjelpe button.Add en eiendom. Vis prosjektene xx_TLB.Pas fil. Fra Edit Window treffe theF12 å vise .Tlb form.Under prosjektet vil du finne posten Interface. Hvis du expandthe oppføring vil du se flere pre-laget egenskaper. Høyre clickin omrisset området og velg Ny | Eiendom alternativet. TwoProperties er lagt til disposisjon: Den komme og sette Property.Enter navn og type for Properties.In det beskyttede området av klasse vil du finne en funksjon og aprocedure matche den nye eiendommen. I gjennomføringen sectionyou også vil finne de to funksjonene og prosedyre. Legg theappropriated koden til funksjonen og prosedyren -funksjonen TActiveXtest1.Get_Entry: WideString; begynne. Resultat: = EditEntry.Text; //Les TEdit textend, prosedyre TActiveXtest1.Set_Entry (konst Verdi: WideString), begynner EditEntry.Text: = verdi; //Sett TEdit textend;
Legg til en hendelse: Åpne Hendelses delen i disposisjonen og høyreklikk. Velg theNew | Metode alternativet. Gi Method et navn som OnSubmit.Lets si at du ønsker å tilordne en knapp klikk på skjemaet med newevent. Sett inn følgende kode under knapp klikk prosedyren prosedyre TActiveXtest1.ButtonSubmitClick (Sender: TObject.), Begynner Hvis FEvents < > Nil deretter begynne FEvents.OnSubmit; //Onsubmit er den nye hendelsen End, ende,
kompilere programmet. Fra IDE Run-menyen kan du registrere andunregister ActiveX med registry.The IDE kan skape en HTML-testdokument for deg å teste ActiveX. ≪ HTML > < h1 > Delphi 5 ActiveX Test Page < /H1 > < p > Du bør se Delphi 5 skjemaer eller kontroller innebygd i form below.<HR><center><P><OBJECTclassid="clsid:83613669-F82A-4EF6-AADB-F7BD04559711"codebase="C:/A/Delphi5/Test/ActiveX/Test1/ActiveXtest1Proj1.inf"id="ActiveXtest1"width=217height=89align=centerhspace=0vspace=0></OBJECT></HTML>You endre kodebasen til å bruke OCX stedet for INF-filen: codebase = "C: /NTS/Check/CheckIt.Ocx" Koden basen er der ActiveX ligger så hvis det er notregistered med registeret Web Browser vet hvor du finner theOCX.When lastet fra en web-site kodebasen skal peke til URLwhere OCX kan found.codebase = "\\ ActiveX \\ checkit.ocx" Du trenger å lese en skrive ActiveX eiendom, noe som kan gjøres witha VBScript: < script language = "VBScript" > < - skjul fra gamle browsersSub NewAccount (konto) NtsCheckIt.AccountNo = AccountEnd Sub //- > < /script > Eller det kan gjøres med et Javascript: < script language = "Javascript" > < - skjul fra gamle browsersfunction new_account_no (konto) {NtsCheckIt.AccountNo = konto;} //- > < /script >!; så billettpris så bra. Nå får vi til den beste delen forbinder eventin ActiveX OCX og HTML document.In VBScript verden ville du gjøre følgende: < - VBScript f.eks - > < script language = "VBScript" > < !, - hide fra gamle browsersSub NtsCheckIt_OnSubmit () MsgBox NtsCheckIt.AccountNoEnd Sub < /script > det samme kan også gjøres i Javascript: < script language = "Javascript" EVENT = "onsubmit" fOR = "NtsCheckIt" > < - alert ( "Account #" + NtsCheckIt.AccountNo); //- > < /script > Konklusjon: Med Delphi aktive formen du enkelt kan utvikle ActiveX OCX.Drop TEdits og TButtons på skjemaet, og du har innspill og outputto OCX. Med .TLB form du kan legge Egenskaper og Eventwhich kan kobles til et HTML-dokument via VBScript eller Javascript.