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

Вниз

TwebBowser access to frames and web-page loading time   Найти похожие ветки 

 
joisy   (2005-09-12 15:27) [0]

Дорогие форумчане!

подскажите как

1.В компоненте TwebBowser (Delphi) получить доступ (скопировать ) содержимое определенного фрейма

2.Как определить загружена ли веб страница или еще загружается?

спасибо,
Jeyx


 
Ihor Osov'yak ©   (2005-09-12 17:12) [1]

2. ReadyState (должно быть равно 4)
 Можно также ловить OnDocumentComplete

1. Пройтись по иерархическому списку фреймов.. На королевстве есть моя древняя статья, кажется, я там рассматривал тот вопрос. Называется "Использование функциональности IE", в "подземелье магов"

можно делать примерно так:

type
 TOneStepSearchCondForHtmlDocWithFrames = function(iDoc: IHtmlDocument2; addPrm: integer): boolean;

function FinderFirstCondForHtmlDocWithFrames(iDoc: IHtmlDocument2;
 addPrm: integer;
 aDoer: TOneStepSearchCondForHtmlDocWithFrames): boolean;
{  The procedure aDoer  will be caused for each IHtmlDocument2, beginning
  from main and finishing any level of frames
  while aDoer will return false;
}
var
 frames: IHTMLFramesCollection2;
 i: integer;
 ov1: OleVariant;
 iDisp: IDispatch;
 IWindow2: IHTMLWindow2;
begin
 result := false;
 if not assigned(aDoer) then
   Exit;
 result := aDoer(iDoc, addPrm);
 if result then
   Exit;
 frames := iDoc.frames;
 if not assigned(frames) then
   exit;
 if frames.length = 0 then
   exit;

 for i := 1 to frames.length do
 begin
   ov1 := i - 1;
   try
     iDisp := frames.item(ov1);
     iDisp.QueryInterface(IHTMLWindow2, IWindow2);
     if assigned(IWindow2) then
     begin
       result := false;
       try
         if assigned(IWindow2.document) then
           result := FinderFirstCondForHtmlDocWithFrames(IWindow2.document, addPrm, aDoer);
       except
       end;
       if result then
         exit;
     end;
   except
   end;
 end;
end;



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
1-1126250459
Prov
2005-09-09 11:20
2005.10.02
TImage и массив


3-1123590776
PAI
2005-08-09 16:32
2005.10.02
Динамическое создание Lookup полей.


3-1124241947
Strech
2005-08-17 05:25
2005.10.02
BLOB поля в dbf через ADO


1-1125990091
Monk
2005-09-06 11:01
2005.10.02
Двойное срабатывание события onMouseWheel


1-1126534510
Grol
2005-09-12 18:15
2005.10.02
Автоматизировать установку компонентов в Delphi





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