Скачать: CL | DM;

Как узнать имя?   Найти похожие ветки 

← →
Mozgan   (2006-12-02 21:13) [0]

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

---

← →
Dmitrij_K   (2006-12-02 21:54) [1]

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

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

---

← →
Mozgan   (2006-12-03 17:50) [2]

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

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

---

← →
Anatoly Podgoretsky ©   (2006-12-03 18:10) [3]

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

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

---

← →
Mozgan   (2006-12-03 18:13) [4]

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

---

← →
Anatoly Podgoretsky ©   (2006-12-03 18:15) [5]

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

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

---

← →
Mozgan   (2006-12-03 18:16) [6]

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

---

← →
Плохиш ©   (2006-12-03 20:30) [7]

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

---

← →
palva ©   (2006-12-03 23:30) [8]

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

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

---

← →
alex810 ©   (2006-12-03 23:39) [9]

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

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.



---

← →
Zeqfreed ©   (2006-12-04 02:15) [10]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c