| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Isaev
Зарегистрирован: 27.07.2007
Сообщения: 6
|
 Добавлено: Пт Июл 27 2007 00:41 Заголовок сообщения: Адрес текущей закладки в Opera |
 |
|
Всем привет!
Как получить адрес текущей страницы (текст из строки адреса)?
Был бы там ComboBox, было бы всё просто, но там какой-то свой компонент (OpWindow (OperaWindowClass)) и какое у него свойство содержит текст неизвестно...
PS: Delphi 7, WinXP |
|
| Вернуться к началу |
|
 |
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005
Сообщения: 358
Откуда: откуда все люди родятся
|
| Добавлено: Пн Июл 30 2007 16:28 Заголовок сообщения: |
|
|
| GetWindowText(); |
|
| Вернуться к началу |
|
|
Isaev
Зарегистрирован: 27.07.2007
Сообщения: 6
|
| Добавлено: Вт Июл 31 2007 14:23 Заголовок сообщения: |
|
|
Ну GetWindowText(); это первое что я попробывал (на всякий случай), хотя он и не должен возвращать www-адрес текущей закладки, т.к. адрес находится не в заголовке окна...
Поэтому этот способ не работает.
Ещё предложения есть?
--> Вот <-- например прога (3.9 MB)
Для отслеживания изменений на сайтах...
Там есть кнопка "Добавить в закладки" она добавляет в закладки адрес текущей страницы из браузера
Значит точно можно... Вопрос только КаК? |
|
| Вернуться к началу |
|
|
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005
Сообщения: 358
Откуда: откуда все люди родятся
|
| Добавлено: Пт Авг 03 2007 04:28 Заголовок сообщения: |
|
|
| Я с Оперой не работал, но в IE - точно знаю - можно в ран-тайме отправить скрипт на выполнение такого дела. |
|
| Вернуться к началу |
|
|
Isaev
Зарегистрирован: 27.07.2007
Сообщения: 6
|
| Добавлено: Пт Авг 03 2007 04:34 Заголовок сообщения: |
|
|
| в IE там всё просто до безобразия... Простой Edit, из которого тем же GetWindowText() получаешь то, что нужно... |
|
| Вернуться к началу |
|
|
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005
Сообщения: 358
Откуда: откуда все люди родятся
|
|
| Вернуться к началу |
|
|
Isaev
Зарегистрирован: 27.07.2007
Сообщения: 6
|
| Добавлено: Пт Авг 03 2007 13:37 Заголовок сообщения: |
|
|
Спасибо, то, что надо... Толко на VB 
Никто не поможет на Delphi перевести? |
|
| Вернуться к началу |
|
|
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005
Сообщения: 358
Откуда: откуда все люди родятся
|
| Добавлено: Пн Авг 06 2007 02:41 Заголовок сообщения: |
|
|
Почему на VB. Там чистый Дельф.
| Код: |
procedure TMainForm.act_AddBookmarkExecute(Sender: TObject);
var
hwnd, chwnd : THandle;
p : array[0..256] of Char;
begin
hwnd := FindWindow(nil, nil);
GetClassName(hwnd, P, SizeOf(P));
while hwnd <> 0 do begin
hwnd := GetWindow(hwnd, GW_HWNDNEXT);
GetClassName(hwnd, P, SizeOf(P));
if string(P) = 'OpWindow' then begin
GetWindowText(hwnd, P, 255);
site_Desc := P;
chwnd := FindWindowEx(hwnd, 0, 'OperaWindowClass', nil);
SendMessage(chwnd, WM_GETTEXT, SizeOf(P), Integer(@P));
site_Url := string(P);
ShowMessage('Opera : '+site_Desc+#13#10+site_Url);
end;
end;
end;
|
|
|
| Вернуться к началу |
|
|
Isaev
Зарегистрирован: 27.07.2007
Сообщения: 6
|
| Добавлено: Пн Авг 06 2007 02:47 Заголовок сообщения: |
|
|
Почему на VB. Там чистый Дельф.
А ты почитай зачем этот код
| Цитата: | | Der folgende Code soll alle Fenstertitel und URLs der geöffneten Browser anzeigen. Wie gesagt bei Firefox und Opera fehlt eben die URL. |
Нет там URLs. Он покажет названия каждой вкладки, а не адреса.
Ссылка ниже: http://www.vbarchiv.net/archiv/tipp_937.html
но там на VB, зато универсально и для всех браузеров...
Аффтар статьи, к сожалению, не знает ни Delphi, ни Asm, ни C |
|
| Вернуться к началу |
|
|
Mytilus Galloprovincialis
Зарегистрирован: 30.08.2005
Сообщения: 358
Откуда: откуда все люди родятся
|
| Добавлено: Пн Авг 06 2007 02:57 Заголовок сообщения: |
|
|
Я по-немецки знаю только "шайзе" и "швайнехунд".
Как я понимаю, тебе нужня функция getURL. Верно? |
|
| Вернуться к началу |
|
|
Isaev
Зарегистрирован: 27.07.2007
Сообщения: 6
|
| Добавлено: Пн Авг 06 2007 03:03 Заголовок сообщения: |
|
|
| ну да, минимум |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
