|
Вопрос # 2 177/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!Есть компонент браузер. Нужно чтобы url (например http://testcom) сверялся с тем url что в браузере (например http://testcom/test), и если в браузере будет не http://testcom/test а http://boolcom/test то браузер не переходил на эту страницу и выдовал ошибку. (http://testcom/test и т.п. только примеры).т.е. надо сверять только домен, а всё то что потом неважно.
 |
Вопрос задал: Pein (статус: Посетитель)
Вопрос отправлен: 9 декабря 2008, 17:31
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Nasgool
Здравствуйте, Pein!
Вот вам работающий пример использования свойства TWebBrowser.LocationURL.
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, OleCtrls, SHDocVw;
-
- type
- TForm1 = class(TForm)
- WebBrowser1: TWebBrowser;
- Button1: TButton;
- Edit1: TEdit;
- procedure WebBrowser1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- if not (WebBrowser1.LocationURL = Edit1.Text) then
- begin
- WebBrowser1.Navigate(Edit1.Text);
- end
- else
-
- end;
-
- procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
- const pDisp: IDispatch; var URL: OleVariant);
- begin
- Edit1.Text := WebBrowser1.LocationURL;
- end;
-
- end.
-
 |
Ответ отправил: Nasgool (статус: 2-ой класс)
Время отправки: 10 декабря 2008, 09:29
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 9 декабря 2008, 18:03; участников в обсуждении: 1.
|
Вадим К (статус: Академик), 9 декабря 2008, 18:03 [#1]:
У этого компонента есть события соответствующие, но как то они работают странно. поэтому лучше запустить его через самопальный прокси.Можно будет даже править страницы на лету
Галочка "подтверждения прочтения" - вселенское зло.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
