| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать имя? [D7, XP]

Mozgan ©   (2006-12-02 21:13:00) 

Все привет! Как можно узнать значение в окне браузера URL? Стандартного?

---

Zeqfreed   (2006-12-04 02:15:00) [1]

> Я понимаю. Хочу написать программку которая отслеживает,
>  какие адреса посещаются.


Вы все ещё извращаетесь? Тогда мы с proxy-сервером идем к вам.

---

alex810   (2006-12-03 23:39:00) [2]

Попробуй у меня только что показало

unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls,  ddeman;

type
 TForm2 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

function Get_URL(Servicio: string): string;
var
 Cliente_DDE: TDDEClientConv;
 temp: PChar;      //<<-------------------------This is new
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 TForm2.Button1Click(Sender: TObject);
begin
showmessage(Get_URL('Netscape'));
// или
  showmessage(Get_URL('IExplore'));

end;

end.



---

palva   (2006-12-03 23:30:00) [3]

Если браузер запущен в режиме автоматизации, то можно узнать URL, который светится после загрузки страницы. Но он будет отличаться от того URLа, который вы набрали.

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

---

Плохиш   (2006-12-03 20:30:00) [4]

Чем [1] не устраивает?

---

Mozgan   (2006-12-03 18:16:00) [5]

Я понимаю. Хочу написать программку которая отслеживает, какие адреса посещаются.

---

Anatoly Podgoretsky   (2006-12-03 18:15:00) [6]

> Mozgan  (03.12.2006 18:13:04)  [4]

Зачем тебе знать как я указываю URL?
У меня между прочим нет проблемы.

---

Mozgan   (2006-12-03 18:13:00) [7]

В URl вы адрес пишите в IE самолично или провайдера просите соединить вас? Мне нужно получить строку символов, набранную мноюв URL в программе Microsoft Internet Explorer....

---

Anatoly Podgoretsky   (2006-12-03 18:10:00) [8]

> Mozgan  (03.12.2006 17:50:02)  [2]

А где у тебя URL?
И что у тебя в нем адрес?

---

Mozgan   (2006-12-03 17:50:00) [9]

Вечер добрый!

Ребята, я наверное не так вопрос задал. Моя задача получить адрес, записанные в поле "Адрес" Internet Explorer. Точнее это строка, набранная в поле URL. Подскажите пожалуйста, как до этого можно жобраться?

---

Dmitrij_K   (2006-12-02 21:54:00) [10]

http://www.swissdelphicenter.ch/en/showcode.php?id=2056

У IWebBrowser2 есть параметр LocationURL

---

Наверх