Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

URL/HTML открытого окна MS IE [D7, XP]

Scarllett © (2007-10-05 12:29:00)
Моя задача выглядит так - есть открытое окно MS Internet Explorer
Как\где\чем перехватить с помощью Делфи-приложения URL/HTML открытого окна
в строку либо файл
Заранее благодарна

Johnnnnn (2007-10-12 01:38:00) [1]
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.

Плохиш (2007-10-05 21:20:00) [2]
http://www.swissdelphicenter.ch/de/showcode.php?id=198

Scarllett (2007-10-05 15:51:00) [3]
2clickmaker © большое спасибо. вьехала с TInternetExplorer

Scarllett (2007-10-05 14:18:00) [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 14:11:00) [5]
А нельзя ли чуть подробнее. Насколько я понимаю ShDocVw это юнит, содержащий TWebBrowser. Кто такой TInternetExplorer в Вашем примере и чье оно ConnectionKind (должно быть TInternetExplorer-а, или как?).
Я на всякий случай уточню, что открыт у меня обычный MS Internet Explorer, а не приложение исп. TWebBrowser. Вот из этого открытого MS IE мне и надо перехватить данные.

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

Альберт Мобайл (2007-10-05 13:56:00) [6]
если подробнее опишешь задачу, то думаю можно использовать другой механизм.

clickmaker (2007-10-05 13:29:00) [7]
как вариант

uses ShDocVw

TInternetExplorer
ConnectionKind := ckRunningInstance
LocationURL

Наверх

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