TChromium в Delphi XE3
Разбираю работу с компонентом TChromium в Delphi XE3
нужно добраться до содержания загруженной страницы
на форумах нашел примеры рабочих кодов:
Но отладчик почему-то упрямо минует исполнение процедуры DoWork. В чем может быть загвоздка?
нужно добраться до содержания загруженной страницы
на форумах нашел примеры рабочих кодов:
Код:
procedure DoWork (const doc: ICefDomDocument);
var
q: ICefDomNode;
begin
q := doc.GetElementById('q');
if Assigned(q) then q.SetElementAttribute('value', 'Hello, world');
end;
procedure actDomExecute;
var
q: ICefDomNode;
begin
crm.Browser.MainFrame.VisitDomProc(DoWork);
var
q: ICefDomNode;
begin
q := doc.GetElementById('q');
if Assigned(q) then q.SetElementAttribute('value', 'Hello, world');
end;
procedure actDomExecute;
var
q: ICefDomNode;
begin
crm.Browser.MainFrame.VisitDomProc(DoWork);