Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

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

 
Николай Быков   (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 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.01 c
3-96552
asf
2003-01-08 23:45
2003.01.30
Decision Cube и запрос SQL


4-97099
vasa
2002-12-17 02:02
2003.01.30
Окно верхнего уровня от дочернего окна..


9-96503
Deadlock
2002-08-04 00:40
2003.01.30
X (TDxInput)


1-96677
Opryshok
2003-01-19 23:39
2003.01.30
Если я унаследовал одну форму от другой, то ...


1-96793
alexnmsk
2003-01-22 15:40
2003.01.30
Как сделать dll





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский