Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899425 Sun, 28 Jan 2024 21:39:40 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899425 Цитата Katerina1993 @ 28.01.24, 20:39

macomics, Inline поддерживается начиная с delphi 2005, а у меня Delphi 7.

Это не критично, если она будет не inline (просто уберите этот модификатор, я по привычке его использовал). У меня так вообще Lazarus на Linux и адаптировать под Delphi 7 c Internet Explorer бывает сложно.]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899424 Sun, 28 Jan 2024 20:39:51 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899424 macomics, Inline поддерживается начиная с delphi 2005, а у меня Delphi 7.]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899423 Sun, 28 Jan 2024 11:48:38 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899423

const

constInvalidHTML = 'Invalid HTML document';

constInvalidHTMLStructure = constInvalidHTML + ' structure';

// Функция поиска элемента на странице с учетом тэга, индекса и имени идентификатора (id) или класса (className)

// aDocument = WebBrowser.Document,

// iNum = номер вхождения элемента в документ с таким ID (начинаются с 1),

// sClassNameOrID = строка с именем класса начинающимся с точки

// или строка с id (не должна начинаться с точки),

// sTagName = имя тэга у элемента

function QueryElement(const aDocument: IDispatch; iNum: LongInt = 1;

const sClassNameOrID: String = '';

const sTagName: WideString = ''): IDispatch;

function AnyID(const s1: String; const s2: String): Boolean; begin Result := True; end;

function min(a, b: LongInt): LongInt; inline; begin if a < b then Result := a else Result := b; end;

function PosDef(const aPattern: WideString; const aText: WideString; iDefault: LongInt): LongInt;

begin Result := Pos(aPattern, aText); if Result = 0 then Result := iDefault; end;

const

aTabChar: WideString = ' ';

aSpaceChar: WideString = #9;

var

Doc: IHTMLDocument2;

Body: IHTMLElement2;

Tags: IHTMLElementCollection;

Tag: IHTMLElement;

c, i, l, n, Count: LongInt;

f, m: Boolean;

w, s: WideString;

comp: function (const s1: String; const s2: String): Boolean;

begin

f := False;

Result := nil;

if iNum < 1 then Exit;

if (sClassNameOrID <> '*') and (sClassNameOrID <> '') then begin

comp := @AnsiSameText;

f := sClassNameOrID[1] = '.';

end else comp := @AnyID;

if Supports(aDocument, IHTMLDocument2, Doc) then begin

if Supports(Doc.body, IHTMLElement2, Body) then begin

if sTagName = ''

then Tags := Body.getElementByTagName('*')

else Tags := Body.getElementsByTagName(sTagName);

Count := Tags.length;

c := 0;

for i := 0 to Count - 1 do begin

Tag := Tags.item(i, EmptyParam) as IHTMLElement;

if f then begin // Если ищем по имени класса, тогда надо вручную

// разбить строку className на составляющие и сравнивать имя класса отдельно для каждого класса у элемента

m := False; // Флаг совпадения одного из классов

w := Tag.className; // сохраняем значение в локальную переменную для изменения

l := Length(w); // можно не буду описывать тривиальные действия

while l > 0 do begin // цикл достижения конца строки (в строке не осталось имен классов)

inc(l); // можно не буду описывать тривиальные действия

// нахождение позиции ближайшего к началу строки разделителя имен классов

n := min(PosDef(aSpaceChar, w, l), PosDef(aTabChar, w, l));

s := '.' + Copy(w, 1, n - 1); // копирование очередного имени класса в отдельную переменную

// пропуск всех символов разделителей между именами (вместо этого можно воспользоваться trim после Delete, но так лучше)

while (n < l) and ((w[n] = aSpaceChar) or (w[n] = aTabChar)) do inc(n);

Delete(w, 1, n - 1); // Убираем из строки className очередное имя класса со всеми последующими разделителями

l := Length(w); // можно не буду описывать тривиальные действия

if comp(s, sClassNameOrID) then begin // Сравнение имен классов с именем в параметре

m := True; // При совпадении устанавливаем флаг ...

break; // ... и прерываем цикл по именам классов

end;

if m then inc(c); // Если флаг установлен, тогда совпадение найдено и просто увеличиваем счетчик совпадений

end else if comp(Tag.id, sClassNameOrID) then inc(c); // тоже самое, но для id

if c = iNum then begin // Счетчик совпадений равен индексу элемента из параметра

Result := Tag; // Возвращаем этот элемент как найденный...

break; // ... и прерываем цикл по элементам

end;

end else raise Exception.Create(constInvalidHTMLStructure + '!');

end else raise Exception.Create(constInvalidHTML + '!');

end;

Вот как-то так. Но проверьте код. Я опять печатал в браузере. Могут быть очепятки или не исправленные имена переменных. Пройдите по шагам для лучшего представления о происходящем.
Я оставил комментарии в коде. Надеюсь они помогут вам исправить ошибки (особенно проверьте индексы).

Добавлено 28.01.24, 12:02
Ну и примеры поиска элементов с её помощью

procedure TForm1.Button4Click(Sender: TObject);

var

Elem: IHTMLElement;

Text: WideString;

begin

try

Elem := QueryElement(WebBrowser1.Document, 'title', 1) as IHTMLElement; // Поиск первого среди всех на странице по id

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 1) as IHTMLElement; // Поиск первого среди всех на странице по className

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, 'title', 5) as IHTMLElement; // Поиск пятого элемента среди всех на странице по id и индексу

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 3) as IHTMLElement; // Поиск третьего элемента по className и индексу

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди input по id

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 1, 'input') as IHTMLElement; // Поиск только среди input по className

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, 'title', 2, 'input') as IHTMLElement; // Поиск второго элемента только среди input по id и индексу

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '.submitbutton', 4, 'input') as IHTMLElement; // Поиск четвертого элемента только среди input по className и индексу

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '') as IHTMLElement; // Поиск первого элемента на странице по индексу (неявно)

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '*', 1) as IHTMLElement; // Поиск первого элемента на странице по индексу (явно)

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '', 3, '*') as IHTMLElement; // Поиск третьего элемента на странице по индексу (явно и с указанием маски тэгов)

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

Elem := QueryElement(WebBrowser1.Document, '*', 4, 'input') as IHTMLElement; // Поиск четвертого элемента только среди input по индексу

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

except

end;

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899421 Sun, 28 Jan 2024 05:09:54 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899421

procedure TForm1.Button4Click(Sender: TObject);

var

Elem: IHTMLElement;

Text: WideString;

begin

try

Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

except

end;

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899420 Sat, 27 Jan 2024 23:08:02 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899420

procedure TForm1.Button4Click(Sender: TObject);

var

Elem: IHTMLElement;

Text: OleVariant;

Caption : WideString;

begin

try

Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок

if Assigned(Elem) then begin

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

end;

except

end;

]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899419 Sat, 27 Jan 2024 21:52:59 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899419 macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899418 Sat, 27 Jan 2024 21:28:44 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899418

var

Elem: IHTMLElement;

Text: OleVariant;

Caption : WideString;

.....

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

Цитата

[Error] Unit1.pas(232): Variable required

]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899416 Sat, 27 Jan 2024 17:18:15 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899416 Цитата Katerina1993 @ 27.01.24, 17:11

Работает, только первые две строчки не пойму для чего getAttribute и WideCharToString? Мне удалось запусить только через Elem.setAttribute.

Первые две строчки это получение. Необходима дополнительная переменная типа WideString перед преобразованием кодировок. Свойство Caption у формы требует для установки строку в кодировке ANSI, а из интерфейса будет получен OleVariant. Присвоение его к строке нужного типа автоматически преобразует данные в строку WideString. А вот дальше из WideString надо руками преобразовать текст в ANSI путем вызова WideCharToString. Но в качестве параметра этой функции нужна строка типа PWideChar. Преобразовать сразу из OleVariant в PWideChar не так просто. Гораздо проще использовать дополнительную переменную, которая уже будет содержать исходные данные для перекодировки в ANSI. И уже в заголовке формы строка будет отображена в правильной кодировке символов.

И третья строка изменяет значение свойства value на 'Send text!'. Но помните, что там тоже используются не String, а WideString и требуется соблюдать и преобразовывать кодировку текста.]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899415 Sat, 27 Jan 2024 17:11:01 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899415 Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899414 Sat, 27 Jan 2024 16:35:49 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899414

Text := Elem.getAttribute('value', 0);

Caption := WideCharToString(@Text[1]);

Elem.setAttribute('value', 'Send text!', 0);

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899413 Sat, 27 Jan 2024 16:26:32 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899413 Цитата

Текст для input задается не как innerText или innerHTML, а в поле value!

У меня почему-то выдает сообщение об ошибке.

Err1.png (, : 107) ]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899412 Sat, 27 Jan 2024 15:43:45 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899412 Цитата Katerina1993 @ 27.01.24, 14:36

Еще интерсно как можно на одну кнопку button4 повесить и заполнение полей и отправку?

Смотря какую кнопку вы имеете ввиду. Если кнопку на странице, тогда просто измените её тип с submit на button и добавьте обработчик onClick. На JavaScript в обработчике нажатия добавляете заполнение полей формы, а в конце вызываете submit для формы

function clickOnButton(e) {

const f = e.target.form; // Получаем форму, на которой находится кнопка

e.preventDefault(); // Прерываем цепочку передачи сообщений к нижерасположенным элементам

f.title.value = "Hello world"; // Заполняем поля формы (заголовок)

f.textbox.innerText = "Autofilled by click!"; // и текстовое поле тоже (не забудьте у textarea добавить name="textbox")

f.submit(); // Отправка формы

}

const formButton = document.querySelector(".submitButton");

if (formButton) {

formButton.addEventListener("click", clickOnButton);

}

Если надо заполнить поля формы перед отправкой при нажатии на кнопке Delphi, тогда придется найти каждое поле формы отдельно и установить его соответствующие атрибуты.

Если вы хотите, чтобы я вам заполнил поля на форме Delphi для найденного элемента, тогда это будет так (не забудьте выключить таймер)

procedure TForm1.Button3Click(Sender: TObject);

var

Elem: IHTMLElement;

begin

try

Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 1, 'test', 'a') as IHTMLElement; // Поиск первой только среди ссылок с id="test" (по тэгу и id)

if Assigned(Elem) then begin

// Делаем с элементом что хотим

edElementTag.Text := WideCharToString(@Elem.tagName[1]);

edElementId.Text := WideCharToString(@Elem.id[1]);

edElementinnerHTML.Text := WideCharToString(@Elem.innerHTML[1]);

edElementclassName.Text := WideCharToString(@Elem.className[1]);

edElementinnerText.Text := WideCharToString(@Elem.innerText[1]);

Elem.click; // Кликнуть по ссылке (выполнить OnClick или переход по href)

end;

except

// Ошибки поиска элементов

end;

Если же надо выполнять поиск по названию класса, тогда можно написать похожую функцию

const

constInvalidHTML = 'Invalid HTML document';

constInvalidHTMLStructure = constInvalidHTML + ' structure';

// aDocument = WebBrowser.Document, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1), sClassName = строка ID, sTagName = имя тэга у элемента

function GetElementByIndexClassNameAndTagName(const aDocument: IDispatch; iNum: LongInt = 1; const sClassName: String = '*'; const sTagName: WideString = '*'): IDispatch;

function AnyID(const s1: String; const s2: String): Boolean; begin Result := True; end;

var

Doc: IHTMLDocument2;

Body: IHTMLElement2;

Tags: IHTMLElementCollection;

Tag: IHTMLElement;

i, c, Count: LongInt;

comp: function (const s1: String; const s2: String): Boolean;

begin

Result := nil;

if iNum < 1 then Exit;

if (sClassName <> '*') and (sClassName <> '') then comp := @AnsiSameText else comp := @AnyID;

if Supports(aDocument, IHTMLDocument2, Doc) then begin

if Supports(Doc.body, IHTMLElement2, Body) then begin

Tags := Body.getElementsByTagName(sTagName);

Count := Tags.length;

c := 0;

for i := 0 to Count - 1 do begin

Tag := Tags.item(i, EmptyParam) as IHTMLElement;

if comp(Tag.className, sClassName) then inc(c);

if c = iNum then begin

Result := Tag;

break;

end;

end else raise Exception.Create(constInvalidHTMLStructure + '!');

end else raise Exception.Create(constInvalidHTML + '!');

end;

Добавлено 27.01.24, 15:50
И еще

Цитата Katerina1993 @ 27.01.24, 14:36

Сделала заполнение полей.

procedure TForm1.Button4Click(Sender: TObject);
var
Elem: IHTMLElement;
begin
try

Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок
if Assigned(Elem) then begin
Elem.innerText:='Название';

end;
Elem := GetElementById(WebBrowser1.Document, 'message', 1, 'textarea') as IHTMLElement; // Поиск только среди ссылок
if Assigned(Elem) then begin
Elem.innerHTML:='Тестовое описание'
end;
except

end;
end;

А вот в кнопке у меня только класс прописан, пример на картинке.

Текст для input задается не как innerText или innerHTML, а в поле value!

Elem.value := 'Отправить сообщение';

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899411 Sat, 27 Jan 2024 14:36:37 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899411 macomics, в 8 посту несколько примеров, как искать по блоку, id и по индексу, а как по классу.

Сделала заполнение полей.

procedure TForm1.Button4Click(Sender: TObject);

var

Elem: IHTMLElement;

begin

try

Elem := GetElementById(WebBrowser1.Document, 'title', 1, 'input') as IHTMLElement; // Поиск только среди ссылок

if Assigned(Elem) then begin

Elem.innerText:='Название';

end;

Elem := GetElementById(WebBrowser1.Document, 'message', 1, 'textarea') as IHTMLElement; // Поиск только среди ссылок

if Assigned(Elem) then begin

Elem.innerHTML:='Тестовое описание'

end;

except

end;

А вот в кнопке у меня только класс прописан, пример на картинке.
img1.jpg (, : 93)
Еще интерсно как можно на одну кнопку button4 повесить и заполнение полей и отправку?]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899410 Sat, 27 Jan 2024 11:10:22 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899410

procedure TForm1.Button3Click(Sender: TObject);

var

Elem: IHTMLElement;

begin

try

Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 1, 'test', 'a') as IHTMLElement; // Поиск первой только среди ссылок с id="test" (по тэгу и id)

if Assigned(Elem) then begin

// Делаем с элементом что хотим

Elem.click; // Кликнуть по ссылке (выполнить OnClick или переход по href)

end;

except

// Ошибки поиска элементов

end;

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899408 Sat, 27 Jan 2024 10:29:25 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899408

Цитата

// Делаем с элементом что хотим

Все таки, что нужно сделать, чтобы был переход по ссылке и открылась форма?]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899407 Sat, 27 Jan 2024 09:59:54 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899407

const

constInvalidHTML = 'Invalid HTML document';

constInvalidHTMLStructure = constInvalidHTML + ' structure';

// aDocument = WebBrowser.Document, ID = строка ID, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1)

function GetElementByIndexIdAndTagName(const aDocument: IDispatch; iNum: LongInt = 1; const sID: String = '*'; const sTagName: WideString = '*'): IDispatch;

function AnyID(const s1: String; const s2: String): Boolean; begin Result := True; end;

var

Doc: IHTMLDocument2;

Body: IHTMLElement2;

Tags: IHTMLElementCollection;

Tag: IHTMLElement;

i, c, Count: LongInt;

comp: function (const s1: String; const s2: String): Boolean;

begin

Result := nil;

if iNum < 1 then Exit;

if (sID <> '*') and (sID <> '') then comp := @AnsiSameText else comp := @AnyID;

if Supports(aDocument, IHTMLDocument2, Doc) then begin

if Supports(Doc.body, IHTMLElement2, Body) then begin

Tags := Body.getElementsByTagName(sTagName);

Count := Tags.length;

c := 0;

for i := 0 to Count - 1 do begin

Tag := Tags.item(i, EmptyParam) as IHTMLElement;

if comp(Tag.id, sID) then inc(c);

if c = iNum then begin

Result := Tag;

break;

end;

end else raise Exception.Create(constInvalidHTMLStructure + '!');

end else raise Exception.Create(constInvalidHTML + '!');

end;

procedure TForm1.Button3Click(Sender: TObject);

var

Elem: IHTMLElement;

begin

try

Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 1, 'test', 'a') as IHTMLElement; // Поиск первой только среди ссылок с id="test" (по тэгу и id)

if Assigned(Elem) then begin

// Делаем с элементом что хотим

end;

except

// Ошибки поиска элементов

end;

try

Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 10) as IHTMLElement; // Поиск по индексу десятого элемента в документе (только по индексу)

if Assigned(Elem) then begin

// Делаем с элементом что хотим

end;

except

// Ошибки поиска элементов

end;

try

Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 2, 'myid') as IHTMLElement; // Поиск второго элемента с id="myid" (по индексу и id)

if Assigned(Elem) then begin

// Делаем с элементом что хотим

end;

except

// Ошибки поиска элементов

end;

try

Elem := GetElementByIndexIdAndTagName(WebBrowser1.Document, 3, '', 'div') as IHTMLElement; // Поиск третьего блочного элемента (<div>...</div>) (по индексу и тэге)

if Assigned(Elem) then begin

// Делаем с элементом что хотим

end;

except

// Ошибки поиска элементов

end;

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899405 Sat, 27 Jan 2024 08:30:15 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899405

Elem := GetElementById(WebBrowser1.Document, 'element_id', 1, 'a') as IHTMLElement;

Вместо element_id нужно использовать значения атрибута ссылки? У меня например test.]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899402 Fri, 26 Jan 2024 22:42:06 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899402

const

constInvalidHTML = 'Invalid HTML document';

constInvalidHTMLStructure = constInvalidHTML + ' structure';

// aDocument = WebBrowser.Document, ID = строка ID, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1)

function GetElementById(const aDocument: IDispatch; const ID: String; iNum: LongInt = 1; const tagName: WideString = '*'): IDispatch;

var

Doc: IHTMLDocument2;

Body: IHTMLElement2;

Tags: IHTMLElementCollection;

Tag: IHTMLElement;

i, c, Count: LongInt;

begin

Result := nil;

if iNum < 1 then Exit;

if Supports(aDocument, IHTMLDocument2, Doc) then begin

if Supports(Doc.body, IHTMLElement2, Body) then begin

Tags := Body.getElementsByTagName(tagName);

Count := Tags.length;

c := 0;

for i := 0 to Count - 1 do begin

Tag := Tags.item(i, EmptyParam) as IHTMLElement;

if AnsiSameText(Tag.id, ID) then inc(c);

if c = iNum then begin

Result := Tag;

break;

end;

end else raise Exception.Create(constInvalidHTMLStructure + '!');

end else raise Exception.Create(constInvalidHTML + '!');

end;

procedure TForm1.Button3Click(Sender: TObject);

var

Elem: IHTMLElement;

begin

try

Elem := GetElementById(WebBrowser1.Document, 'element_id', 1, 'a') as IHTMLElement; // Поиск только среди ссылок

if Assigned(Elem) then begin

// Делаем с элементом что хотим

end;

except

// Ошибки поиска элементов

end;

Вот исправленный. Я вместо Doc.body передавал Doc и не поправил GUID интерфейса после копирования.]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899401 Fri, 26 Jan 2024 21:43:47 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899401

Цитата

Access violation at adress 43CFCDAA in module 'mshtml.dll'

Вот скриншот ошибки.
Screenshot_1.jpg (, : 91)
Когда я нажимаю OK выделяется эта строка, я решила что с ней что-то не так и нужно в скобках изменить параметр.
Screenshot_2.jpg (, : 99) ]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899400 Fri, 26 Jan 2024 19:35:52 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899400 Цитата Katerina1993 @ 26.01.24, 19:23

А вот здесь, что указываем. Вместо звездочки.

Ничего. Используйте как есть. '*' получает все тэги из body в document. Или можете передать её через параметры и тогда можно будет искать не просто по id но еще и конкретный тэг (например, только ссылки, указав там 'a' или только блочные тэги, указав 'div').]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899399 Fri, 26 Jan 2024 19:23:36 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899399

Tags := Body.getElementsByTagName('*');

]]> Katerina1993 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899395 Fri, 26 Jan 2024 17:55:33 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899395

const

constInvalidHTML = 'Invalid HTML document';

constInvalidHTMLStructure = constInvalidHTML + ' structure';

// aDocument = WebBrowser.Document, ID = строка ID, iNum = номер вхождения элемента в документ с таким ID (начинаются с 1)

function GetElementById(const aDocument: IDispatch; const ID: String; iNum: LongInt): IDispatch;

var

Doc: IHTMLDocument2;

Body: IHTMLElement2;

Tags: IHTMLElementCollection;

Tag: IHTMLElement;

i, c, Count: LongInt;

begin

Result := nil;

if iNum < 1 then Exit;

if Supports(aDocument, IHTMLDocument2, Doc) then begin

if Supports(Doc.body, IHTMLElement2, Body) then begin

Tags := Body.getElementsByTagName('*');

Count := Tags.length;

c := 0;

for i := 0 to Count - 1 do begin

Tag := Tags.item(i, EmptyParam) as IHTMLElement;

if AnsiSameText(Tag.id, ID) then inc(c);

if c = iNum then begin

Result := Tag;

break;

end;

end else raise Exception.Create(constInvalidHTMLStructure + '!');

end else raise Exception.Create(constInvalidHTML + '!');

end;

procedure TForm1.Button3Click(Sender: TObject);

var

Elem: IHTMLElement;

begin

try

Elem := GetElementById(WebBrowser1.Document, 'myid', 1) as IHTMLElement;

if Assigned(Elem) then begin

// Делаем с элементом что хотим

end;

except

// Ошибки поиска элементов

end;

]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899393 Fri, 26 Jan 2024 16:46:57 +0000 Как сделать автоматическое нажатье по ссылке в окне браузера? https://forum.sources.ru/index.php?showtopic=441696&view=findpost&p=3899393 user posted image

Подскажите можно как-нибудь по id найти в документе html и заставить нажать по ссылке автоматически.

В своей программе я подключаю дополнительные файлы.

Цитата

WBFuncs – для процедуры WB_Navigate.
MSHTML – для интерфейса IHTMLElement.

Для работы использую компонент WebBrowser.

Код полностью (исходники: ExampleSource.zip (, : 15) )

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls, ExtCtrls, WBFuncs;

type

TForm1 = class(TForm)

WebBrowser1: TWebBrowser;

Button1: TButton;

PageControl: TPageControl;

Panel1: TPanel;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

PageControl1: TPageControl;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

TabSheet5: TTabSheet;

GroupBox1: TGroupBox;

edSearchAndHighlight: TEdit;

Button2: TButton;

PnlElementInfo1: TPanel;

PnlHandle: TPanel;

edElementTag: TEdit;

Label1: TLabel;

Panel3: TPanel;

edElementId: TEdit;

Label2: TLabel;

Panel4: TPanel;

edElementinnerHTML: TEdit;

Label3: TLabel;

Timer1: TTimer;

Panel5: TPanel;

edElementclassName: TEdit;

Label4: TLabel;

Panel6: TPanel;

edElementinnerText: TEdit;

Label5: TLabel;

Panel7: TPanel;

edElementhref: TEdit;

Label6: TLabel;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

FPrevBrowser: TWebbrowser;

public

{ Public declarations }

function GetCurrentWB: TWebbrowser;

end;

var

Form1: TForm1;

implementation

uses

MSHTML;

{$R *.dfm}

function TForm1.GetCurrentWB: TWebbrowser;

begin

Result := nil;

with PageControl do

if ActivePage.ControlCount > 0 then

begin

if ActivePage.Controls[0] is TWebbrowser then

begin

Result := (TWebbrowser(ActivePage.Controls[0]));

end else

Result := FPrevBrowser;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

WB_Navigate(GetCurrentWB, 'http://mysite1.su');

WB_SetFocus(GetCurrentWB);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

MausPos: TPoint;

Element: IHTMLElement;

imgElement: IHTMLIMGElement;

scrElement: IHTMLLinkElement;

x, y: Integer;

Doc: IHTMLDocument2;

CurrentWB: TWebbrowser;

begin

CurrentWB := GetCurrentWB;

if Assigned(CurrentWB) then

begin

Doc := CurrentWB.Document as IHTMLDocument2;

if Assigned(doc) then

begin

GetCursorPos(MausPos);

mauspos := CurrentWB.ScreenToClient(mauspos);

x := MausPos.x;

y := MausPos.y;

Element := GetElementAtPos(doc, x, y);

if Assigned(Element) then

begin

edElementTag.Text := Element.tagName;

edElementId.Text := Element.id;

edElementinnerHTML.Text := Element.innerHTML;

edElementclassName.Text := Element.className;

edElementinnerText.Text := Element.innerText;

Element.QueryInterface(IHTMLIMGElement, imgElement);

if assigned(imgElement) then

edElementhref.Text := imgElement.href;

Element.QueryInterface(IHTMLLinkElement, scrElement);

if assigned(scrElement) then

edElementhref.Text := scrElement.href;

end;

end.

Исходники приложила. Там сама программа и сайт который я использую для тестирования.]]> Katerina1993 Delphi: Общие вопросы