Проверка TWebBrowser на пустоту

[Shouldercannon]

Доброго времени суток!
Можно ли проверить TWebBrowser на пустоту?
При обращении к функции

function WB_GetHTMLCode(WebBrowser: TWebBrowser): String;
var
  PS: IPersistStreamInit;
  SS: TStringStream;
  SA: IStream;
  s: String;
begin
  PS := WebBrowser.Document as IPersistStreamInit;
  s := '';
  try
    SS := TStringStream.Create(s);
    SA := TStreamAdapter.Create(SS, soReference) as IStream;
    try
      PS.Save(SA, False);
      Result := SS.Datastring;
    except
    end;
  finally
    FreeAndNil(SS);
  end;
end;

при ещё не загруженной странице нарываюсь на

[JUDAS]

Автор, а чё там проверять
Взял твой код , дописал if Assigned(PS) then и далее всю твою начинку try finally
Всё работает

[Stilet]

при ещё не загруженной странице нарываюсь на

По идее, если запуск будет вне Делфи такого сообщения при try не будет. Однако тебе правильно намекнули - IF гораздо полезнее try в твоем случае.

Можно ли проверить TWebBrowser на пустоту?

В каком смысле пустоту? Отсутствие на странице контента?

[Shouldercannon]

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

В каком смысле пустоту? Отсутствие на странице контента?

Оно самое..

[xxbesoxx]

Я свами не спорю .! Но интересно , Что это функция делаеть ? А зачем вы его копировали от суда http://delphiworld.narod.ru/download...html_code.html
Я магу написать так .

procedure TForm1.Button2Click(Sender: TObject);
begin
 if Edit1.Text<>'' then
 begin
   WebBrowser1.Navigate (Trim(Edit1.Text)) ;
 end;
end;

[JUDAS]

if Edit1.Text<>'' then
begin
WebBrowser1.Navigate (Trim(Edit1.Text)) ;
end;

Проверил работу кода с Edit1.Text = 'http://google.ru';
Начинка в WebBrowser1 появляется через 2-3 секунды, а до этого, даже с URL в середине вот это

WebBrowser.Document as IPersistStreamInit;

даёт nil

Видимо автор хочет написать на базе примера функцию ожидания загрузки страницы. =)
-------------
Автор, если нужно узнать когда страница загрузилась, вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://programmersforum.ru/showthread.php?t=280880');
end;
// Sender - TWebBrowser  pDisp-указатель на dispatch загруженого документа 
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Caption := 'ЗАГРУЖЕНА!';
end;

точнее вот так

 // если страница загружена успешно
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  PS: IPersistStreamInit;
  SS: TStringStream;
  SA: IStream;
  s: String;
begin
  // начинаем в ней ковырять говно
  PS := TWebBrowser(Sender).Document as IPersistStreamInit;
  if Assigned(PS) then
  try
    s := '';
    SS := TStringStream.Create(s);
    SA := TStreamAdapter.Create(SS, soReference) as IStream;
    try
      PS.Save(SA, False);
     // Result := SS.Datastring;
    except
    end;
  finally
    FreeAndNil(SS);
  end;
end;

[xxbesoxx]

JUDAS появляется через 2-3 секунды,

Не какой отличия нету ! Это функция просто хлам он нечего там не ускоряет его надо удалить . Не надо все копировать из интернета . Надо просто подумать и паписать так что байло проще и понятно

[JUDAS]

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

Не какой отличия нету ! Это функция просто хлам он нечего там не ускоряет его надо удалить . Не надо все копировать из интернета . Надо просто подумать и паписать так что байло проще и понятно

Автору темы в личке расскажи Я ответил ему на вопрос почему вылетает его код.

Это функция просто хлам он нечего там не ускоряет его надо удалить .

Вообще то судя по коду, автор не ускорят ничего, он хочет считать страницу к себе в память или в файл.

[Shouldercannon]

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

Вообще то судя по коду, автор не ускорят ничего, он хочет считать страницу к себе в память или в файл.

Ничего не ускоряю, просто получаю исходный код страницы.

[Stilet]

Оно самое..

Ну кроме как получить указатель на Document.body и проверить его innerHTML я не знаю. Но вообще лучше никак не проверять, просто дождаться события окончания загрузки документа.