Скачать: CL | DM;

Может ли кто-нибудь объяснить?   Найти похожие ветки 

← →
Николай Быков ©   (2003-01-10 11:04) [0]

Здравствуйте.
Нашел ответ на свой вопрос про TWebBrowser (в разделе "Основной вопрос есть") Не могли бы вы объяснить как он работает, а то просто так перекатывать неинтересно+охота на это основе еще фишечек модных сделать?

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags("FORM").Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;

ЗЫ
А как можно было до такого догадаться без единного слово в хелпе про это?

---

← →
Николай Быков ©   (2003-01-10 11:19) [1]

up

---

← →
Opuhshii ©   (2003-01-10 11:28) [2]

не в том хэлпе смотрели,... МСДН купите... Николай,. не скупитесь.. или перепишите у кого-нибудь... а вообще известно что,.. Variant может в себе хранить ссылку на объект автоматизации и что IE является сервером автоматизации,... так что хэлп нужно было смотреть по работе с IE,..

можно было бы конечно реализовать используя MSHTML

_________________________________________________________
примерно так,.. поправьте если что не так,..

---

← →
Darts   (2003-01-10 11:33) [3]

Ищет тэги, содержащие слово "FORM". Если их нет - выход из процедуры. Если есть, перебирает в цикле на предмет нахождения FieldName. Если нашел, присваивает Value и возвращает победоносный результат в виде True.

Более подробно, раз тебе уж так хочется. Набери TWebBrowser в поиске и гуляй на Королеве Дельфи.

Теперь изучению С++ дана отставка?

---

← →
Николай Быков ©   (2003-01-10 12:08) [4]

можно поподробнее чуть чуть?
Непонятен кусочек, который ищет контрол и изменяет его вэлью

---

← →
Darts   (2003-01-10 12:17) [5]

> Непонятен кусочек, который ищет контрол и изменяет его вэлью

Контрол? Сильно сказано. Я бы сказал - документ. А так данный кусочек просто меняет свойства документа (примерно так, как в поиске с заменой по всему тексту). Аналогию понял?

---

← →
Николай Быков ©   (2003-01-10 13:49) [6]

> Darts (10.01.03 12:17)

Я про то, что здесь Итем из докУмента присваивается какой-то левой переменной. Все пробразования идут только с ней, а в результате изменяется вэлью из докУмента..
Ни черта не понимаю.

---

← →
gek ©   (2003-01-10 13:59) [7]

> Николай Быков © (10.01.03 13:49)


Вообще-то именно документ, именно так ищется и в JScript
т.е. проход по всему документу


> присваивается какой-то левой переменной


Ну какая она левая, передана как параметр.

Николай, ты калькулятор написал?

---

← →
Opuhshii ©   (2003-01-10 14:27) [8]

var
i, j: Integer;
FormItem: Variant; // -Это что-ли левая переменная???

---

← →
Николай Быков ©   (2003-01-13 17:11) [9]

> Opuhshii © (10.01.03 14:27)

А какая еще? Мы можем у ней изменить value, а это самое value поменяется у <input type="..."...> в браузере.
ну разве так можно ?
это все равно, что написать
var
a,b:integer;
begin
a:=1;
b:=a;
b:=2;
end.
и на выходе получить а=2

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c