delphi chrome获取html5,如何使用delphi从Chrome获取网址

以下是我从活动选项卡中检索URL之前的操作方法.您可以将其扩展为包含Chrome的所有标签.

另外一个注意事项,正如您所看到的,它抓住了它找到的chrome.exe的第一个句柄.要使此功能适应多个Chrome运行实例,您需要对其进行调整以获取每个Chrome实例的句柄.

我把它放在一起非常快,所以不要考虑这种“生产”质量.只需创建一个新的vcl应用程序并在表单上删除TMemo和TButton,并将Button1Click分配给TButton的OnClick事件.

unit main;

interface

uses

Windows,

Messages,

SysUtils,

Classes,

Controls,

Forms,

StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

function GetActivePageUrlFromChrome(Handle: HWnd; Param: LParam): Bool; stdcall;

var

Form1 : TForm1;

implementation

{$R *.dfm}

function GetActivePageUrlFromChrome(Handle: HWnd; Param: LParam): Bool; stdcall;

var

List: TStrings;

hWndChrome, hWndChromeChild: HWND;

Buffer : array[0..255] of Char;

begin

List := TStrings(Param);

//get the window caption

SendMessage(Handle, WM_GETTEXT, Length(Buffer), integer(@Buffer[0]));

//look for the chrome window with "Buffer" caption

hWndChrome := FindWindow('Chrome_WidgetWin_0', Buffer);

if hWndChrome <> 0 then

begin

hWndChromeChild := FindWindowEx(hWndChrome, 0, 'Chrome_AutocompleteEditView', nil);

if hWndChromeChild <> 0 then

begin

SendMessage(hWndChromeChild, WM_GETTEXT, Length(Buffer), integer(@Buffer));

List.Add(Buffer);

end;

end;

Result := True;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

slChromeUrl : TStringList;

begin

slChromeUrl := TStringList.Create;

try

EnumWindows(GetActivePageUrlFromChrome, LParam(slChromeUrl));

Memo1.Lines.AddStrings(slChromeUrl);

finally

FreeAndNil(slChromeUrl);

end;

end;

end.