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

URL/HTML открытого окна MS IE   Найти похожие ветки 

← →
Scarllett   (2007-10-05 12:29) [0]

Моя задача выглядит так - есть открытое окно MS Internet Explorer
Как\где\чем перехватить с помощью Делфи-приложения URL/HTML открытого окна
в строку либо файл
Заранее благодарна

---

← →
clickmaker ©   (2007-10-05 13:29) [1]

как вариант

uses ShDocVw

TInternetExplorer
ConnectionKind := ckRunningInstance
LocationURL

---

← →
Альберт Мобайл   (2007-10-05 13:56) [2]

если подробнее опишешь задачу, то думаю можно использовать другой механизм.

---

← →
Scarllett   (2007-10-05 14:11) [3]

А нельзя ли чуть подробнее. Насколько я понимаю ShDocVw это юнит, содержащий TWebBrowser. Кто такой TInternetExplorer в Вашем примере и чье оно ConnectionKind (должно быть TInternetExplorer-а, или как?).
Я на всякий случай уточню, что открыт у меня обычный MS Internet Explorer, а не приложение исп. TWebBrowser. Вот из этого открытого MS IE  мне и надо перехватить данные.

Премного благодарна за ответ

---

← →
Scarllett   (2007-10-05 14:18) [4]

2 мобайл
могу уточнить так
открыт MS Internet Explorer.

URL в нем такой, например,
http://v3.espacenet.com/results?sf=n&DB=EPODOC&PGS=10&CY=ep&NUM=WO03075629&LG=en&ST=number
или такой
http://v3.espacenet.com/textdoc?DB=EPODOC&IDX=WO03075629&F=0

мне нужно ухапшить URL этого эксплорера в свое приложение. хоть в в строку, хоть в TWebBrowser, хоть еще куда

Спасибо за внимание

---

← →
Scarllett   (2007-10-05 15:51) [5]

2clickmaker © большое спасибо. вьехала с TInternetExplorer

---

← →
Плохиш ©   (2007-10-05 21:20) [6]

http://www.swissdelphicenter.ch/de/showcode.php?id=198

---

← →
Johnnnnn   (2007-10-12 01:38) [7]

unit Unit1;

interface

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

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

var
 Form1: TForm1;
 okno:iShellWindows;
 brawser:iwebbrowser2;
   implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
Okno:=CoShellWindows.Create;
for i:=0 to Okno.Count-1 do
begin
Brawser:= Okno.Item(i)as IWebBrowser2;
memo1.Lines.Add(brawser.LocationURL);
end;
okno:=nil;
end;

end.

---

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

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



Память: 0.46 MB
Время: 0.011 c