要使用Delphi从Chrome获取网址,您可以使用以下步骤:
- 首先,您需要确保您的Delphi项目中已经包含了Chromium Embedded Framework(CEF)组件。如果没有,您可以从以下网址下载并安装:https://github.com/hgourvest/dcef3procedure TForm1.Button1Click(Sender: TObject);
var
URL: string;
begin
URL := Chromium.Browser.MainFrame.Url;
ShowMessage(URL);
end;
- 在您的Delphi项目中,添加一个TChromium组件,并将其命名为Chromium。
- 在您的Delphi项目中,添加一个TButton组件,并将其命名为Button。
- 在Button的OnClick事件中,添加以下代码:
- 运行您的Delphi项目,并在Chromium组件中打开一个网页。
- 单击Button按钮,您将会看到一个包含当前网址的弹出窗口。
这样,您就可以使用Delphi从Chrome获取网址了。请注意,这个方法只适用于使用Chromium Embedded Framework的Delphi项目。如果您使用的是其他类型的项目,您可能需要使用其他方法来获取网址。