FillForm(FieldName: string; Value: string):This function allow you to auto insert details into a web page
procedure
TfrmMain.FillFormWithPersonalDetails1Click(Sender: TObject);
begin
EmbeddedWB1.Navigate('http://edit.yahoo.com/config/eval_register?.
done=
http://groups.yahoo.com%2fgroup%2fdelphi-webbrowser%2f&.src="">);
while EmbeddedWB1.ReadyState <> READYSTATE_COMPLETE do
begin
Forms.Application.ProcessMessages
;
end;
with EmbeddedWB1 do
begin
FillForm('login', 'Mozart');
FillForm('passwd', 'Bethoven');
FillForm('.fn', 'lol1');
FillForm('.ln', 'lol2');
FillForm('.ln', 'lol2');
FillForm('.pw', 'lol3333');
FillForm('.pw2', 'lol444');
FillForm('.pw_a', 'lolypop');
FillForm('.pwqa_a', 'lolypop');
FillForm('.em', '
[EMAIL PROTECTED]');
FillForm('.pc', '123456');
FillForm('.secword', ':)');
end;
end;
Hi All.I am using an embedded TWebBrowser in an app, and I need to append some data to the data about to be posted.So, in the BeforeNavigate2 event, the POSTDATA is a VAR variable, and so I decode the PostData, add my extra bit of data, then re-encode it (back to a var array) but it seems to me that the PostData variable is NOT being updated with my new data, as when the page posts the data to a webpage, the new bit of data I add is not there.Anyone else tried to do this and found the same problem, and/or is there a solution?Jeremy
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi
_______________________________________________ Delphi mailing list [email protected] http://ns3.123.co.nz/mailman/listinfo/delphi
