Your question, your audience. Choose who sees your identity—and your question—with question security.
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
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
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
A lot of questions regard threads in Delphi.
One of the more specific questions is how to show progress of the thread.
Updating a progressbar from inside a thread is a mistake.
A solution to this would be to send a synchronized message to the…
Introduction
Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview. I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Watch the video of Kernel Migrator for SharePoint, which demonstrate the process easily of migration from SharePoint to SharePoint, OneDrive for Business & Google Drive servers, Public Folder to SharePoint, File Server to SharePoint. The tool has va…
Watch the video to know the process of migration of Exchange or Office 365 mailboxes in absence of MS Outlook. It is an eminent tool which can easily migrate Public, Archive user mailboxes from one another Exchange server and Office 365. Kernel Migr…
Suggested Courses
Course of the Month11 days, 11 hours left to enroll
601 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.