VPF::IExplor - Форум программистов

Вася

Дата 9.2.2003, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 27.12.2002

Репутация: нет
Всего: нет

Привет!
Я делаю :

Код


ShellExecute(wnd,'open','IExplore','www.somsite.com','',sw_shownormal);

Как узнать, что страница загружена?
Спасибо!

stab

Дата 10.2.2003, 02:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48

поройся в IShellWindows, там можно получить интерфейс IWebBrowser2:

procedure TForm1.Button1Click(Sender: TObject);
var
shw: TShellWindows;
i: Integer;
doc: IHTMLDocument2;
begin
shw := TShellWindows.Create(Self);
lst.Items.Clear;
for i := 0 to shw.Count - 1 do
try
doc := (shw.Item(i) as IWebBrowser2).document as IHTMLDocument2;
lst.Items.Add.Caption := doc.url;
except
end;
shw.Free;
end;

думаю уже все понятно

--------------------

6, 6, 6 - the number of the beast.

Fantasist

Дата 11.2.2003, 01:57 (ссылка)

(нет голосов)

Загрузка ...

Лентяй

Профиль
Группа: Участник Клуба
Сообщений: 1517
Регистрация: 24.3.2002

Репутация: нет
Всего: 41

А лучше сразу брать компонент TWebBrowser (или TInternetExplorer, если в вашей версии он есть) и работать через него.

--------------------

Волны гасят ветер...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »