我现在能获得ie的句柄,怎么找到某个edit的句柄啊,添加文字用sendmessage就可以了吧
解决方案 »
- 关于循环进行数据库操作的性能问题?
- 这个提示是什么意思?
- delphi 怎么调用access表,-----在线等
- activeX控件是如何处理消息循环的(不够在加分)
- 一个超难问题,高手们请进。
- 请问再ADO或dExPress下有没有类似BDE的 TBatchMove 控件
- dxdbgrid中如何把某一行记录画成一种颜色,该颜色由这条记录的某个字段决定
- 哪位高手能举一个例子说明指针有什么用啊?我怎么觉得哪也用不上啊?
- 中程里面关于软件工程的部分多么?
- 请指点: ActiveForm 不能下载到IE?
- 有点难度的控件移动问题,达人请进研究研究
- 企业的一个进销存管理软件,向另外一个用户发信息时要求在接收方有提示信息。
This example shows how to automatically fill in a search string
in the "Search Tip" page and click the search button.
}uses
MSHTML_TLB;// first navigate to tipspageprocedure TForm1.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');
end;// Try to access IE instance and fill out the search field with
// a text and click the search buttonprocedure TForm1.Button3Click(Sender: TObject);
var
hIE: HWND;
ShellWindow: IShellWindows;
WB: IWebbrowser2;
spDisp: IDispatch;
IDoc1: IHTMLDocument2;
Document: Variant;
k, m: Integer;
ovElements: OleVariant;
i: Integer;
begin
ShellWindow := CoShellWindows.Create;
// get the running instance of Internet Explorer
for k := 0 to ShellWindow.Count do
begin
spDisp := ShellWindow.Item(k);
if spDisp = nil then Continue;
// QueryInterface determines if an interface can be used with an object
spDisp.QueryInterface(iWebBrowser2, WB); if WB <> nil then
begin
WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
if iDoc1 <> nil then
begin
WB := ShellWindow.Item(k) as IWebbrowser2;
begin
Document := WB.Document; // count forms on document and iterate through its forms
for m := 0 to Document.forms.Length - 1 do
begin
ovElements := Document.forms.Item(m).elements;
// iterate through elements
for i := 0 to ovElements.Length - 1 do
begin
// when input fieldname is found, try to fill out
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
(CompareText(ovElements.item(i).type, 'text') = 0) then
begin
ovElements.item(i).Value := 'FindWindow';
end;
except
end;
// when Submit button is found, try to click
try
if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
(CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
(ovElements.item(i).Value = 'Search') then // Suchen für German
begin
ovElements.item(i).Click;
end;
except
end;
end;
end;
end;
end;
end;
end;
end;