Текущий архив: 2003.09.25;
Скачать: CL | DM;

Вниз

Как отобразить в Label титль веб-страницы (показываемой webbrowse   Найти похожие ветки 

← →
InspectorNET   (2003-09-14 07:36) [0]

Как отобразить в Label титль веб-страницы (показываемой webbrowser)?

---

← →
Ihor Osov'yak ©   (2003-09-14 10:25) [1]

Как и любой иной текст.. Например:

MyLabel.Caption := TitleWePageFromSuperPuperWB;

ps. как получить TitleWePageFromSuperPuperWB - это уже другой вопрос..

---

← →
Рамиль ©   (2003-09-14 10:35) [2]

Если страничка есть уже локально, то просто вывести текст между тегами <title></title>

---

← →
Ihor Osov'yak ©   (2003-09-14 11:18) [3]

2 [2] Рамиль © (14.09.03 10:35)

Есть слухи, что LocationName помогает (TWebBrowser)

---

← →
inspectorNET   (2003-09-14 11:23) [4]

Я имею ввиду не имя файла, а именно текст между тегами title. Как его на наклейку-то поместить?

---

← →
Anatoly Podgoretsky ©   (2003-09-14 11:28) [5]

Еще раз Наклейка.Caption := то_что_между_тегами

Caption это свойство типа string

---

← →
Плохиш_   (2003-09-14 11:30) [6]

TLabel + F1

---

← →
Ihor Osov'yak ©   (2003-09-14 11:32) [7]

2 [4] inspectorNET (14.09.03 11:23)

а [1] и [3] свести воедино не судьба?

Зы - в качестве гумманитарной помощи:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
Edit1: TEdit;
WebBrowser1: TWebBrowser;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Label1.Caption := WebBrowser1.LocationName;
end;

end.

---

← →
inspectorNET   (2003-09-14 15:28) [8]

Я ж сказал: не ИМЯ файла, а что написано между тегами <title> и </title>!!!

---

← →
Anatoly Podgoretsky ©   (2003-09-14 15:48) [9]

inspectorNET (14.09.03 15:28) [8]
Не ты вообще то немного другое сказал, цитата Как отобразить в Label, а как получить правую часть ты не спрашивал, поскольку видимо она у тебя есть или не является проблемой.

---

← →
Ihor Osov'yak ©   (2003-09-14 15:51) [10]

2 [8] inspectorNET (14.09.03 15:28)

Вар 1

implementation

{$R *.DFM}

uses msHTML;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var iDoc: IHtmlDocument2;
begin
if not assigned(WebBrowser1.Document) then exit;
WebBrowser1.Document.QueryInterface(IHtmlDocument2, iDoc);
if not assigned(iDoc) then exit;
Label1.Caption := iDoc.title;
end;

Вар 2


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var v: OleVariant;
begin
v := WebBrowser1.Document;
Label1.Caption := v.Title;
end;

Ps - фи, такие нервные..
Зы - см. еще [9] Anatoly Podgoretsky © (14.09.03 15:48)

---

← →
nikkie ©   (2003-09-14 22:01) [11]

OnTitleChange
но там не только заголовок документа пролетать будет...

---

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

Текущий архив: 2003.09.25;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.026 c