Форум: "Основная";
Текущий архив: 2003.09.25;
Скачать: [xml.tar.bz2];
ВнизКак отобразить в 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c