Hello All;
I have made up a Sample Web Page Set for this Posting.
In hopes that someone will be able to assist me with this issue.
The URL Will be down bottom.
The Code is used to Extract the <Text> from <Input>Fields on the page.
But I cannot have the code listed like it is in the 1st sample code here.
This is the Code that I am using
Code Example #1
==========================
==========
==========
=====
OnDownloadBegin(Send: TOBject);
begin
edit1.text := WebBrowser.OleObject.docum
ent.forms.
item('Form
1').elemen
ts.item('s
atitle').v
alue;
edit1.text := WebBrowser.OleObject.docum
ent.forms.
item('Form
2').elemen
ts.item('s
atitle').v
alue;
edit1.text := WebBrowser.OleObject.docum
ent.forms.
item('Form
3').elemen
ts.item('s
atitle').v
alue;
end;
==========================
==========
==========
=====
Code Example #2
==========================
==========
==========
=====
var
Form1: TForm1;
Submit : boolean; // Global
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
EmbeddedWB1.Align := alClient;
Submit := false;
end;
procedure TForm1.Edit1Change(Sender:
TObject);
begin
// I thought we could search for EE Stuff while we was at it :)
EmbeddedWB1.Navigate(WideS
tring('
http://search.experts-exchange.com/search.jsp?query='+Edit1.Text+'&searchType=all¤tTAID=85'))
end;
procedure TForm1.EmbeddedWB1Navigate
Complete2(
Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Submit := true;
end;
procedure TForm1.EmbeddedWB1Download
Begin(Send
er: TObject);
begin
If Submit = true then
edit1.text := EmbeddedWB1.OleObject.docu
ment.forms
.item('For
m1').eleme
nts.item('
satitle').
value;
try
edit1.text := EmbeddedWB1.OleObject.docu
ment.forms
.item('For
m2').eleme
nts.item('
satitle').
value;
Except
try
edit1.text := EmbeddedWB1.OleObject.docu
ment.forms
.item('For
m3').eleme
nts.item('
satitle').
value ;
Finally
end;
end;
end;
end;
end.
==========================
==========
==========
=====
I need to get the <input Field> [Text] that is inserted into "3" different Fields
Which all 3 have Different <FORM> names
The information is better explained on the page about what all I need to do.
http://www.carrz-fox-fire.com/b/1/Set1.aspThank you all so very much,
Carrzkiss
