SHDocVw_TLB是什么?

SHDocVw_TLB是shdocvw.dll的类型库导入单元,你没有的话就改成shdocvw(delphi自带),或者在“Project”菜单下选“Import Type Library”,在弹出的对话框中再选择“Microsoft Internet Controls”,再点“Create Unit”即可。
Delphi 中可以使用 TEdgeBrowser 控件来嵌入 Edge 浏览器,实现网页浏览和交互功能。以下是一个示例代码,演示如何在 Edge 浏览器控件中输入文本: ```delphi uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw_EWB, MSHTML_EWB, EwbCore, EwbAcc; type TForm1 = class(TForm) EdgeBrowser: TEdgeBrowser; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private procedure EdgeBrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var doc: IHTMLDocument2; input: IHTMLInputElement; begin doc := EdgeBrowser.Document as IHTMLDocument2; if Assigned(doc) then begin input := doc.getElementById('input_id') as IHTMLInputElement; if Assigned(input) then input.value := Edit1.Text; end; end; procedure TForm1.EdgeBrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if Assigned(EdgeBrowser.Document) then begin EdgeBrowser.Document.Script := 'function myFunction() { alert("Page loaded!"); }'; EdgeBrowser.Document.InvokeScript('myFunction'); end; end; end. ``` 这段代码中,我们首先获取 EdgeBrowser 的 Document 对象,然后使用 getElementById 方法获取指定的 input 元素,并将 Edit1 中的文本赋值给它。这里的 `input_id` 是指网页中相应 input 元素的 id 属性。 在按钮点击事件中,我们调用了上述的输入文本的代码。当然,为了确保 Edge 浏览器已经加载完成,我们还需要在 Form 的 OnCreate 事件中添加以下代码: ```delphi procedure TForm1.FormCreate(Sender: TObject); begin EdgeBrowser.Navigate('https://www.example.com'); EdgeBrowser.OnDocumentComplete := EdgeBrowserDocumentComplete; end; ``` 这里我们在 EdgeBrowser 控件中加载了一个示例网页,并设置了 OnDocumentComplete 事件,以确保浏览器加载完成后再执行我们的代码。当 Edge 浏览器控件加载完成后,会弹出一个提示框,说明页面已加载完成。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值