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

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.

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