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

Hitman_yg

Дата 18.7.2003, 07:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть окно Интернет Експлорера. Есть его Хендл. Вопрос: как из своей программы получить адрес веб страницы, которая открыта в данный момент. Заранее благодарен.

p0s0l

Дата 18.7.2003, 14:18 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

В FAQ где-то видел такое:

Цитата

uses windows, ddeman, ......

function Get_URL(Servicio: string): String;
var
Cliente_DDE: TDDEClientConv;
temp:PChar;
begin
Result := '';
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,'WWW_GetWindowInfo');
temp := RequestData('0xFFFFFFFF');
Result := StrPas(temp);
StrDispose(temp); //<<-Предотвращаем утечку памяти
CloseLink;
end;
Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
showmessage(Get_URL('Netscape'));
или
showmessage(Get_URL('IExplore'));
end;

Автор ответа: Song

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

С уважением, г-н Посол.

Hitman_yg

Дата 18.7.2003, 23:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Да я тоже видел. И по другому видел. Но этот вариант возвращает УРЛ окна, которое было открыто последним, что не совсем то, что мне нужно. А другой вфще нерабочий...

p0s0l

Дата 19.7.2003, 13:32 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Попробуй сделать это с помощью просмотра всех дочерних окон IE и если окно имеет класс
Edit или ComboBox(Ex) то узнай текст окна с помощью сообщений EM_GETLINE или CB_GETLBTEXT.

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

С уважением, г-н Посол.

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