|
 Forum
Grundkurs
»Introduktion
»Snabbguide
»Komponenter
»Händelser
»Strängar
»Räkna med Delphi »Egna
typer
»Selektion
»Iteration
»Menyer
»Funktioner
»Arraystrukturer
Tips & Tricks
»Nya tips
»Blandat
»Databaser
»Filer
»Forms
»Grafik
»Internet
»Komponenter
»Matematik
»Multimedia
»Objekt/ActiveX
»Skrivare
»Strängar
»System
»Mest lästa tips
Artiklar
»Delphi och ADO
»Bygga en DLL
»Skapa en enkel rapport
»Hantera registret
»Enheter, units
»Klassen TCanvas
»Använd LookUp Controls
 Nya
tips
 Lägg
till tips
 Delphilänkar
 Gästbok
|
|
|
|
|
|
Läs värden i javascript
|
Kategori: Internet
Inlagt: 2004-11-17
Läst: 1326
Inlagt av: Staffan Berg
|
|
Beskrivning |
|
Exempel som gör det möjligt att läsa värden som är lokaliserade i javascript. Du tar hjälp av en TWebBrowserkomponent för att hämta hem websaidan i det här exemplet.
|
|
Kod |
// Just add a Webbrowser and two Buttons to the form and insert the following code
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.dasbinich.info/myred/delphi/index.html');
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if (url = 'http://www.dasbinich.info/myred/delphi/index.html') then
ShowMessage('Value lautet: ' + webBrowser1.OleObject.Document.Forms.item
('test').Elements.item('testen').Value);
//read the Javascript value testen of the form test
end;
//this is an example how to use it when there are no names
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Value lautet: ' + webBrowser1.OleObject.Document.Forms.item
(0).Elements.item(0).Value);
end;
//to read the javascript value from a site with a frame use the following
webBrowser1.OleObject.Document.Frames.item('top').Document.Forms.item
('Countdown').Elements.item('Countdown').Value;
//top is the framename in this example
|
|
|