TWebBrowser полная загрузка

[bibika]

Имеется компонент TWebBrowser, который грузит с диска большое дерево на html и JavaScript. При первом запуске программы наблюдается некоторая задержка при прорисовке страницы. Подскажите, как на время полной загрузки страницы, закрыть ее другой формой - типа сплаш скрина. Я себе так вижу алгоритм "Показывать Сплаш форм пока вся страница не загрузится". Помогите с доработкой вот такого простого кода:

procedure TForm1.FormCreate(Sender: TObject);
var dirsp:string;

begin
GetDir (0, dirsp);
dirsp:=dirsp+'/html/index.htm';
wb1.Navigate(dirsp);
end;

Спасибо

[denisbrain]

Сообщение от bibika

Имеется компонент TWebBrowser, который грузит с диска большое дерево на html и JavaScript. При первом запуске программы наблюдается некоторая задержка при прорисовке страницы. Подскажите, как на время полной загрузки страницы, закрыть ее другой формой - типа сплаш скрина. Я себе так вижу алгоритм "Показывать Сплаш форм пока вся страница не загрузится". Помогите с доработкой вот такого простого кода:

procedure TForm1.FormCreate(Sender: TObject);
var dirsp:string;

begin
GetDir (0, dirsp);
dirsp:=dirsp+'/html/index.htm';
wb1.Navigate(dirsp);
end;

Спасибо

а есть ли вариант дерево реконструировать через Ajax подгружать только нужные компоненты дерева ?!

[bibika]

Сообщение от denisbrain

а есть ли вариант дерево реконструировать через Ajax подгружать только нужные компоненты дерева ?!

Нет к сожалению, программа будет запускаться с носителя. Я думал так, пока грузится страница закрывать ее другой формой, только страница прогрузилась, другую форму закрываем. Но как это сделать

[denisbrain]

Сообщение от bibika

Нет к сожалению, программа будет запускаться с носителя. Я думал так, пока грузится страница закрывать ее другой формой, только страница прогрузилась, другую форму закрываем. Но как это сделать

  webComplit:boolean;
  load:boolean=true;
implementation



{$R *.dfm}


procedure sleep(m:integer);
var i,t:integer;
begin
t:=windows.GetTickCount;
  repeat
   i:=windows.GetTickCount;
   if ((i-t)>m) then exit;
   application.ProcessMessages;
  until false;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
   webComplit:=true;
end;

procedure TForm1.FormActivate(Sender: TObject);
var x:integer;
begin
if load then begin
  load:=false;
  x:=form1.left;
  webComplit:=false;
  form1.left:=form1.width*(-1)-50;
  form1.WebBrowser1.Navigate('netsoftware.ucoz.ru');
  repeat
     sleep(1000);
  until webComplit;
  form1.left:=x;
end;

[bibika]

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

В другом форуме рекомендуют использовать TWebrowser.OnDocumentComplete. Что выбрать?

Люди покажите простой работающий код с этим свойством.
Еще раз спасибо

[bibika]

Как мне прикрутить TWebrowser.OnDocumentComplete к коду с первого сообщения. Народ помогите, а то я уже такое нагуглил, что вообще запутался.

[denisbrain]

Сообщение от bibika

Как мне прикрутить TWebrowser.OnDocumentComplete к коду с первого сообщения. Народ помогите, а то я уже такое нагуглил, что вообще запутался.

примерно так

[bibika]

Сообщение от denisbrain

примерно так

Нет я понимаю что нужно кликнуть по левой панели. Я спрашивал не о том, а о том как все это дело прикрутить к такому коду

procedure TForm1.FormCreate(Sender: TObject);
var dirsp:string;

begin
GetDir (0, dirsp);
dirsp:=dirsp+'/html/index.htm';
wb1.Navigate(dirsp);
end;

что б пока идет отображение index.htm это занимает около 5-8 сек, закрыть форму другой формой с картинкой.

[Пепел Феникса]

кидаете на форму панель делаете её на всю форму, на нее кидете картинку(Image)
изначально она видима.

потом в OnDocumentComplete скрываете(<ваша панель>.Visible:=false) её и все.

denisbrain, код из поста 4 лучше выкинуть.
1)не хорошо называть процедуру так же как другую(причем системная и важная)
2)зачем второй раз входить в цикл сообщений, когда можно просто вернуться к нему?
3)активное ожидание вместо нормально продуманого кода.

[denisbrain]

Сообщение от Пепел Феникса

кидаете на форму панель делаете её на всю форму, на нее кидете картинку(Image)
изначально она видима.

потом в OnDocumentComplete скрываете(<ваша панель>.Visible:=false) её и все.

denisbrain, код из поста 4 лучше выкинуть.
1)не хорошо называть процедуру так же как другую(причем системная и важная)
2)зачем второй раз входить в цикл сообщений, когда можно просто вернуться к нему?
3)активное ожидание вместо нормально продуманого кода.

трудимся!! пишем код "не приходя в сознание"