Главная страница
    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.46 MB
Время: 0.009 c
1-96704
SVM
2003-01-21 21:21
2003.01.30
Ссылка на последний сервис-пак к DELPHI 6


14-96967
:)
2002-12-17 05:59
2003.01.30
Приколы с форума: http://g3af8.narod.ru/dhf.htm


1-96800
Pk
2003-01-20 12:52
2003.01.30
Одинаковые события форм


1-96859
Vlad
2003-01-21 10:46
2003.01.30
OnKeyDown


1-96783
Oleg_G
2003-01-22 13:03
2003.01.30
Создание СОМ порта с сетевым адресом





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский