Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.
Solved
Twebbrowser Elements at runtime ?
Posted on 2008-10-05
In code, how can i control a webpage's controls (elements) at runtime.
For example, if you look at the google page in a TWebBrowser.
http://www.google.com/
1.) At runtime (using code) how can i place text in the search box and click the search button?
2. a) At runtime (using code) how can i click the "About Google" link
2. b) At runtime (using code) how can determine that step 2.a was successful (wait for) before I do something else.
thanks
For example, if you look at the google page in a TWebBrowser.
http://www.google.com/
1.) At runtime (using code) how can i place text in the search box and click the search button?
2. a) At runtime (using code) how can i click the "About Google" link
2. b) At runtime (using code) how can determine that step 2.a was successful (wait for) before I do something else.
thanks
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
5-
4
- +1
11 Comments
ad 1: why to click the search button,
directly call the querry
TWebbrowser.navigate('http://www.google.de/search?hl=de&q=test+query&btnG=Google-Suche&meta=')
test and query are the key words
directly call the querry
TWebbrowser.navigate('http://www.google.de/search?hl=de&q=test+query&btnG=Google-Suche&meta=')
test and query are the key words
ad 2 b:
Called when a navigation operation has completed or been interrupted. Downloading should not be confused with rendering of the page (see also OnDocumentComplete).
procedure YourForm.WebBrowser_OnDown
Sender: TObject);
see --> Called when a navigation operation has completed or been interrupted. Downloading should not be confused with rendering of the page (see also OnDocumentComplete).
procedure YourForm.WebBrowser_OnDown
Sender: TObject);
Called when a navigation operation has completed or been interrupted. Downloading should not be confused with rendering of the page (see also OnDocumentComplete).
procedure YourForm.WebBrowser_OnDown
Sender: TObject);
see --> Called when a navigation operation has completed or been interrupted. Downloading should not be confused with rendering of the page (see also OnDocumentComplete).
procedure YourForm.WebBrowser_OnDown
Sender: TObject);
>ad 2 b:
>Called when a navigation operation has completed or been interrupted. Downloading should not be >confused with rendering of the page (see also OnDocumentComplete).
>procedure YourForm.WebBrowser_OnDown
> Sender: TObject);
>see --> Called when a navigation operation has completed or been interrupted. Downloading should >not be confused with rendering of the page (see also OnDocumentComplete).
>procedure YourForm.WebBrowser_OnDown
> Sender: TObject);
sorry, none of this makes any sense to me. I dont understand what you are trying to say
>Called when a navigation operation has completed or been interrupted. Downloading should not be >confused with rendering of the page (see also OnDocumentComplete).
>procedure YourForm.WebBrowser_OnDown
> Sender: TObject);
>see --> Called when a navigation operation has completed or been interrupted. Downloading should >not be confused with rendering of the page (see also OnDocumentComplete).
>procedure YourForm.WebBrowser_OnDown
> Sender: TObject);
sorry, none of this makes any sense to me. I dont understand what you are trying to say
if it is very general approach:
go and get the HTML file, look for the buttons definition and get the methodes post .....
what about that ?
go and get the HTML file, look for the buttons definition and get the methodes post .....
what about that ?
are you using the TWebbRowser component for reading HTML files ?
if yes -> TWebbrowser has an event if a file is completly loaded. Please read the complete doku for TWebbrowser.
if yes -> TWebbrowser has an event if a file is completly loaded. Please read the complete doku for TWebbrowser.
all in code:
var
Form1: TForm1; loading:boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
el:OleVariant;
begin
WebBrowser1.Navigate('http://www.google.com');
while WebBrowser1.ReadyState<>4 do Application.ProcessMessages; //wait while page loading
el:=WebBrowser1.OleObject.Document.forms.item(0).elements;
for i:=0 to el.Length-1 do begin
if el.item(i).type='text' then el.item(i).value:='hellow world'; //place text
if el.item(i).name='btnG' then begin loading:=true;el.item(i).click;break;end; //click on the button
end;
while loading do Application.ProcessMessages; //wait while page loading
showmessage('Search done !');
//------ click on link
WebBrowser1.Navigate('http://www.google.com');
while WebBrowser1.ReadyState<>4 do Application.ProcessMessages; //wait while page loading
el:=WebBrowser1.OleObject.Document.links;
for i:=0 to el.Length-1 do
if pos('about.html',el.item(i).href)<>0 then el.item(i).click;
end;
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
loading:=false;
end;
there are to different approaches
a) know where you are and what you have to do :
call the search page directly withe the webbrowser.navigate function
b) get the HTML Code, look for the button coomand and try to understand and then navigate there
a) know where you are and what you have to do :
call the search page directly withe the webbrowser.navigate function
b) get the HTML Code, look for the button coomand and try to understand and then navigate there
@wd123:
On line 13 it should be something like
On line 13 it should be something like
While WebBrowser1.ReadyState<> 4 Do
begin
Sleep(50);
Application.ProcessMessages;
end;
@wd123
See my question here:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23786385.html
Post a link to your answer answer and I will award you the posts to that one as well
See my question here:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23786385.html
Post a link to your answer answer and I will award you the posts to that one as well
Featured Post
Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Hello everybody
This Article will show you how to validate number with TEdit control,
What's the TEdit control?
TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text.
Usua…
Introduction
I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need.
This article will address some of the concepts when dealing with a multithreaded delphi database…
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Suggested Courses
Course of the Month11 days, 18 hours left to enroll
730 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.